Mam kod, który do chwili, kiedy używam go na niesformatowanych celach działa bez zarzutu. Niestety w chwili dodaniu dowolnego formatu pustych cel (ramka, kolor itd.) nie zatrzymuje się na ostatniej celi z wartością (tekst, cyfra), lecz na ostatniej sformatowanej celi, co jest nie mile widziane. Jak zmodyfikować go ażeby procedura zatrzymała się na ostatniej celi z wartością (tekst, cyfra) ?
Sub Test()
Dim Rng As Range
Dim cll As Range
On Error Resume Next
Set Rng = Range("B2:B200").Cells.SpecialCells(xlCellTypeBlanks)
Do
Rng.FormulaR1C1 = "=R[-1]C"
Loop Until cll.Value = "END"
For Each cll In Rng
cll.Value = cll.Value + 0.1
Next cll
End Sub |