Witam,
nie mogę sobie poradzić z pętlą, która musi uzupełniać dane tzn. z A1 musi kopiować do A2 literę "a" dopóki nie napotka "b". Jak ją napotka, kopije "b" itd. do momentu kiedy kolumna B będzie zawierała znaki. Jak poniżej.
A | B
a | 1
| 1
| 1
| 1
b | 1
| 1
| 1
| 1
c | 1
| 1
| 1
d | 1
| 1
| 1
Proszę Was o pomoc jak to ogarnać
Sub x()
Dim iRow As Long, sCopy As String
sCopy = Cells(1, 1).Text
iRow = 2
While Cells(iRow + 1, 2) <> vbNullString
If Cells(iRow, 1) = vbNullString Then Cells(iRow, 1) = sCopy
sCopy = Cells(iRow, 1).Text
iRow = iRow + 1
Wend
End Sub
Wow!!! Dziękuję Ci bardzo za pomoc.
mam jeszcze jeden temat, który chyba jest nie do przejścia, ale... :)
W wierszu mam bliżej nieokreśloną ilość tekstu rozdzielonego spacjami, który posiada słowo "ROZM. za nim jest ciąg znaków w róznych konfiguracjach i kończy się wyrazem "nr " ("nr czasami nie ma albo nie ma spacji pomiędzy teksem a nr). czy jest możliwość wyeksportowania danych pomiędzy rozm. a nr? (jeżeli nie ma nr tzn., że ciąg znaków kończy wyraz :)