Paweł
unread,Apr 17, 2015, 11:16:42 AM4/17/15You do not have permission to delete messages in this group
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to
Tak w ramach ciekawości zrobiłem sobie takie zadanie na arkuszu Excela. Na
Wordzie też powinno działać, po zmianie indeksów komórek (wiersz, kolumna).
Działa to tak jak opisałeś. Na początku makro tworzy "n" komórek, a potem
przenosi i kasuje wiersze:
-------------------------------------------------------------
Sub komorki()
Dim a, i, n As Integer
i = 1
a = 1
n = 20
For i = 1 To n Step 1
Cells(i, 1).Value = a
a = a + 1
Next i
For i = 1 To n Step 2
Cells(i, 1).Interior.ColorIndex = 4
Next i
i = 2
For i = 2 To n Step 2
Cells(i, 1).Interior.ColorIndex = 6
Next i
For i = 2 To n Step 2
Cells(i, 1).Select
Selection.Copy
Cells(i - 1, 2).Select 'gdzie ma być skopiowane
ActiveSheet.Paste 'Wklejasz
Next i
i = 1
For i = 1 To n Step 1
Cells(i, 1).Interior.ColorIndex = 4
Cells(i, 2).Interior.ColorIndex = 6
Next i
For i = 2 To n 'usuwanie pustego wiersza
If (Cells(i, 2).Value = "") Then
Rows(i).Delete
End If
Next i
End Sub
------------------------------------------------------------
Pozdrawiam
Paweł