Заменить значения внутри (не во всей ячейке) каждой ячейки в каждом рабочем листе

Question

Я хочу: заменить найденный текст в каждой ячейке на каждом листе с помощью индекса рабочего листа (добавив его в «replacetxt».

это код, который я пробовал.

Но: код выполняетсяно ничего не происходит

Sub searchandrep()
Dim WS_Count As integer
Dim i As integer

WS_Count = ActiveWorkbook.Worksheets.Count


For i = 2 To WS_Count


activeworkbook.Worksheets(i).rows(1).Replace _ 
 What:="toreplacetext", Replacement:="replacetxt"+cstr(i), _ 
 SearchOrder:=xlByrows, MatchCase:=True


next i

end sub

Кто-нибудь из вас знает, в чем здесь проблема, или есть альтернативное решение для этого?

Answer 1

Это работает для меня, хотя я еще не совсем уверен в вашей проблеме! Будьте уверены, если у вас нет никаких действий, он настроен правильно для начала. С вашего рабочего листа -> Alt-F11, чтобы открыть VBA. Затем -> вставить -> Модуль. И вставьте туда код.

Sub searchandrep()
Dim WS_Count As Integer
Dim i As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For i = 1 To WS_Count
    ActiveWorkbook.Worksheets(i).Rows(1).Replace _
        What:="a", Replacement:="b" & Str(i), MatchCase:=True
Next i
End Sub