Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Makro zamieniające wartości w kolumnie

cezaryfcb89 · Exceloholic Wersja: Win Office 2019 Posty: 151

Cześć,
mam pytanie do mojego poniższego makra którego zadaniem jest szukanie wartości w kolumnie C i jej zamiana. Mam pytanie czy jest może możliwość poprawy jego aby nie działał na całej kolumnie C tylko od wiersza C12 do ostatniego wypełnionego pola w kolumnie C?

Kod:

Sub Replace_Example()
Range("C12:C100").Replace What:="Krakow", Replacement:="Test A"
Range("C12:C100").Replace What:="Bytom", Replacement:="Test B"
Range("C12:C100").Replace What:="Warszawa", Replacement:="Test C"
End Sub

TEST.xlsm

Pobierz Plik ściągnięto 7 raz(y) 14.44 KB

dm · Wysłany: 25-01-2023, 14:38

Cześć.
Testuj
Bardziej "elegancki" zapis to

Kod:

Sub Replace_Example()
Dim lst As Long
With Sheets("Arkusz1")
lst = .Cells(Rows.Count, "A").End(xlUp).Row
With .Range("C12:C" & lst)
.Replace What:="Krakow", Replacement:="Test A"
.Replace What:="Bytom", Replacement:="Test B"
.Replace What:="Warszawa", Replacement:="Test C"
End With
End With
End Sub

dm

TEST-1.xlsm

Pobierz Plik ściągnięto 8 raz(y) 13.79 KB

cezaryfcb89 · Exceloholic Wersja: Win Office 2019 Posty: 151

Dziękuje za pomoc