MS Excel

Téma: Přidání řádku za duplicitní hodnoty

Zaslal/a pupack 18.6.2013 13:49

Dobrý den, potřeboval bych poradit s makrem do excelu. Chtěl bych aby se mi vložil prázdný řádek za opakující se hodnoty ve sloupečku B. Toto makro funguje defacto tak jak potřebuji

Sub InsertBlankRows()

Dim LastRow As Long
Dim i As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

For i = LastRow To 2 Step -1
If i = 2 Then
'Do nothing
ElseIf Cells(i, "A") <> Cells(i - 1, "A") Then
Cells(i, "A").Insert
End If
Next i

End Sub

Potřebuji jen poradit jak to upravit (neznám syntaxy) aby makro fungovalo jen na range B4:B60. To je celé :) Díky moc za pomoc

Zaslat odpověď >

Palooo(18.6.2013 14:17)#013964

tak to zapis rovno do For cyklu takto:

For i = 60 To 4 Step -1
next

a "A" zmen na "B"

.. ale neskusal som to :Pcitovat

pupack(18.6.2013 14:49)#013965

Palooo díky, ze me to netrklo samotnyho s tim lastrow ;) jeste sem to upravil na vkladani celeho radku:

Cells(i, "B").EntireRow.Insert

a ted uz to dela co jsem chtel. Diky ;)citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.