Question

我想：使用工作表索引替换每个工作表中每个单元格中搜索到的txt（将其添加到“ replacetxt”中。

这是我尝试过的代码。

但是：code运行，但是什么也没发生

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

在每个工作表中的每个单元格（而不是整个单元格）中替换值

1 个答案: