Такая дилема. Имеется колонка (числовые значения и название колонки) в которой есть и точки и запятые.
Необходимо удалить сначала все запятые (как разделители тысяч), затем заменить точки (как разделители дробных частей) на запятые.
Имеется кусок макроса отвечающий за это:
| Код |
|---|
Sheet5.Activate
With ActiveSheet.Range("D:D")
.NumberFormat = "General"
.Replace What:=",", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End With
|
Так вот. Проблема в том, что каждый раз при запуске макроса (при его работе создается новый лист), активным листом является то 4, то 5 лист. Как решить эту проблему с постоянно меняющимся номером листа?
