Vkládání řádků - pro většinu asi maličkost

Vkládání řádků - pro většinu asi maličkost zodpovězená otázka

Zdravím všechny, potřeboval bych poradit. Mám soubor, ve kterém mám ve sloupci "F" čísla označující počet kartonů. potřeboval bych, zda- li by šlo nějakým makrem udělat, aby to pod řádek s tímto číslem vložilo vždy o jeden řádek méně, než je hodnota čísla tzn. např: pod řádek s jedničkou nevkládat nic, pod řádek s dvojkou vložit jeden řádek,.............pod řádek s pětkou 4 řádky atd. Poradí, prosím, někdo?

nahlásit spam

odpovědět

před 16 lety

Jaroslav Rajchl

33 97

Možná by neškodilo sděliti o jaký soubor se jedná. Pravděpodobně Excel, ale kdo si tím má být jistý?

nahlásit spam

odpovědět

jj, excel, omlouvám se

nahlásit spam

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

před 16 lety

anonym

213.180.53.50

Sub PridejRadky()
  Dim r As Integer
  Dim k As Integer
  For r = 1 To 50  ' upravte si
    k = Range("F" & r).Value
    If k > 1 Then
      For i = 0 To k - 2
        Range("F" & r + 1 + i).EntireRow.Insert
      Next
    End If
  Next
End Sub