makro w Excelu
: 2 sty 2009, o 19:24
mam napisać makro, które scalałoby niepuste komórki na dowolnym obszarze i nie wiem jak sie za to zabrać, mam coś takiego dla pierwszej kolumny:
Dim i, j, K As Long
K = Selection.Rows.Count
j = 1
For i = 1 To K
If Cells(i, 1) "" Then
If i j Then
Cells(j, 1) = Cells(i, 1)
Cells(i, 1) = ""
End If
j = j + 1
End If
Next i
i teraz nie wiem jak to mam zmienić, czy ktoś może wie o co tu chodzi, jak zrobic żeby takie podobne makro działało na dowolnie zaznaczonym obszarze?
Dim i, j, K As Long
K = Selection.Rows.Count
j = 1
For i = 1 To K
If Cells(i, 1) "" Then
If i j Then
Cells(j, 1) = Cells(i, 1)
Cells(i, 1) = ""
End If
j = j + 1
End If
Next i
i teraz nie wiem jak to mam zmienić, czy ktoś może wie o co tu chodzi, jak zrobic żeby takie podobne makro działało na dowolnie zaznaczonym obszarze?