• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse