Hej
Zakładam dane w kolumnie A (opis) i B (cyferki) i zaczynają się w drugim wierszu
Sub uzupełnij() Dim a AsLong Dim opis AsString For a = 2 To Range("B65536").End(xlUp).Row If Cells(a, 1) <> "" Then
opis = Cells(a, 1) Else
Cells(a, 1) = opis EndIf Next a EndSub
Pozdrawiam
napisał: Anna74 postów: 2
umieszczony: 30 października 2006 15:39
Mam następujący problem ma tabelke natępującej postaci
Opis Wartość
a 1
2
2
2
b 1
2
1
4
c 1
2
5
gdzie tylko dla pierwszej wartości z grupy jest opis , dla pozostałych jest pusto
Potrzebuje wyfiltrować po kolumnie wartośc a ponieważ opis ma tylko tyko pierwszy wersz z grupy , dobrze byłoby go skopiować
Inaczej mówiąc docelowa postać tabeli ma wyglądać następująco
Opis Wartość
a 1
a 2
a 2
a 2
b 1
b 2
b 1
b 4
c 1
c 2
c 5
wstecz 1 dalej
otwarty rozpoczął: Anna74
postów: 3
