Onko kellään tiedossaa jippoa, jolla saisi lisättyä
tyhjän rivin joka toiselle riville.
Olen klikkaillut CTRL pohjassa rivejä ja sitten lisännyt rivin, mutta tämä alkoi tympiä siinä tuhannen kieppeillä.
Mahdollisesti makro?
tyhjän rivin joka toiselle riville.
Olen klikkaillut CTRL pohjassa rivejä ja sitten lisännyt rivin, mutta tämä alkoi tympiä siinä tuhannen kieppeillä.
Mahdollisesti makro?
Vastaukset 2
Vanhimmat
Sub Makro1()
Set r = Worksheets("Taul1").[A1:A1000]
For i = 1 To r.Rows.Count
If i Mod 2 = 0 Then
r.Rows(i).Insert Shift:=xlDown
End If
Next i
End Sub
Pieni asiakirja kohtainen säätö ja homma toimi täydellisesti.
Kiitän.
Sub Makro1()
Set r = Worksheets("Taul1").[1:2000]
For i = 1 To r.Rows.Count
If i Mod 2 = 0 Then
r.Rows(i).Insert Shift:=xlDown
End If
Next i
End Sub