Mam pytanie na temat tego jak zapętlić taki kod:
Dim i, j As Integer
i = 7
j = i - 1
Do Until Cells(i, 3) <> ""
Cells(i, 3) = Cells(j, 3)
i = i + 1
Loop
j = i
i = i + 1
Do Until Cells(i, 3) <> ""
Cells(i, 3) = Cells(j, 3)
i = i + 1
Loop
j = i
i = i + 1
Do Until Cells(i, 3) <> ""
Cells(i, 3) = Cells(j, 3)
i = i + 1
Loop
j = i
i = i + 1
Do Until Cells(i, 3) <> ""
Cells(i, 3) = Cells(j, 3)
i = i + 1
Loop
....
Dodatkowo chciałabym żeby te działania byly wykonywane do momentu, aż Excel wykryje pierwszą niepustą komórkę w kolumnie A, startując od wiersza 7 w tej kolumnie.
Do tego ułożyłam sobie pętle if jak poniżej, jednakże chciałabym to wszystko połączyć w całość.
Sub pierwsza_niepusta()
For p = 7 To 10000
If Cells(p, 1) = "" Then
Else
'MsgBox "znalazl niepusta i wynosi ona" & " " & p
Exit For
End If
Next p
End Sub
Z góry dziekuję za pomoc !