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

【问题标题】：Replace Values Within(not the whole cell) Every Cell in Each Worksheet替换每个工作表中的每个单元格中的值（不是整个单元格）
【发布时间】：2019-04-21 02:03:09
【问题描述】：

我想：使用工作表索引替换每个工作表中每个单元格中的搜索文本（将其添加到“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

你们有谁知道这里有什么问题，或者有其他解决方案吗？

【问题讨论】：

如果这是一次性的，您是否考虑过编辑：查找/替换功能？
有什么问题？错误信息？你真的是指每个细胞吗？每个人满为患的细胞？只有一行中的单元格？
i target cells(1,1) 在每个工作表中，第一行已经只有一个单元格，问题是代码运行但没有任何反应

标签： excel vba text replace

【解决方案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

【讨论】：

我错了，我没有想到它是因为我是 vba 的初学者，这很好，但我试图做的是在目标单元格中搜索部分文本而不是整个单元格。我稍后会尝试找到它。无论如何感谢您的参与和帮助。
如果您知道我正在尝试做的事情的解决方案，我将不胜感激
这会搜索单元格的一部分。工作表 2 中单元格 (A1) 中的 aba 变为 b 2 bb 2。你得到了什么？
它没有用，因为单元格包含大量数据；大约 14000 行文本我认为这种方法不适用于大量数据，但无论如何我已经找到了一种方法来完成我的工作想用这个，非常感谢您的帮助。