VBA - Excel (2013)如何在每个工作表中“找到”相同的值，但在每个工作表中替换为不同的值？
在VBA中，可以使用循环遍历每个工作表，并使用条件语句来查找和替换相同的值。下面是一个示例代码：
Sub FindAndReplace()
Dim ws As Worksheet
Dim searchValue As String
Dim replaceValue As String
searchValue = "要查找的值"
replaceValue = "要替换的值"
For Each ws In ThisWorkbook.Worksheets
With ws.UsedRange
'查找并替换值
.Replace searchValue, replaceValue, xlWhole, xlByRows, False
End With
Next ws
End Sub在上面的代码中，首先定义了要查找和替换的值，然后使用For Each循环遍历每个工作表。在每个工作表中，使用UsedRange属性获取使用的范围，然后使用Replace方法查找并替换值。其中，searchValue参数是要查找的值，replaceValue参数是要替换的值，xlWhole表示要查找整个单元格的内容，xlByRows表示按行查找，最后一个参数False表示不区分大小写。
这样，代码会在每个工作表中查找并替换相同的值。如果要在不同的工作表中替换不同的值，可以根据需要在循环中修改replaceValue的值。
对于VBA和Excel的更多信息，可以参考腾讯云的Excel开发文档：Excel开发文档。
相关·内容
1回答
对大型文档进行Excel VBA字符串操作导致运行时错误"1004“
string、vba、excel
所以我在RenPy上做了一部视觉小说，我不得不在整个文档上换出句子。
由于修订是在excel文件中进行的，因此我决定使用excel宏自动进行修复。有三列。原始行、建议修复和原始脚本。
所以我写出了一个脚本，看起来像这样：
Sub MacroVOID()
Dim x As Integer
Dim y As Long
x = 2
y = 2
Do While x < 298
If StrComp(Cells(x, 1).Value, Cells(y, 3).Value, vBinaryCompare) = 0 Then
Cells(y, 3).Value = Cells(
浏览 0提问于2017-10-09得票数 3
2回答
Excel 2010宏:替换所有包含大于和小于的数字的单元格
excel、excel-2010、vba
我有一个很大的excel工作表，我想在其中替换几个数字范围(都在相同的单元格范围内)。例如，我希望将所有大于-5且小于5的数字替换为数字0。所有大于5小于10的数字应替换为1，所有大于-10且小于-5的数字应替换为-1，依此类推。
我试着用这个公式
Sub replace()
Dim rng As Range
For Each rng In Range("B2:AI40")
If IsNumeric(rng) < 5 And IsNumeric(rng) > -5 Then
rng = 0
E
浏览 1提问于2013-04-21得票数 2
回答已采纳
3回答
VBA:为每个工作表作为变量使用嵌套的方法遍历工作表
vba、excel
这里是vba的新手。我试图为每个循环应用一个简单的每个循环(它使单元格<0为空)到工作簿中的所有工作表，方法是为每个循环在另一个内嵌套它。
当我尝试运行下面的代码时，我会得到一个错误，并且我不确定它是否与将工作表作为一个Set语句中的变量有关。
似乎找不出解决办法。
谢谢
Sub deleteNegativeValue()
Application.DisplayAlerts = False
Dim lastRow As Long
Dim ws As Worksheet
Dim cell As Range
Dim res As Range
For Each ws In Workbook
浏览 10提问于2016-04-05得票数 0
回答已采纳
1回答
用于更改列引用的VLookup宏
vba、excel
我想为vlookup创建宏，但在我的示例中，列引用会自动从一个条件更改为下一个条件。问题如下：
在一个excel表格中，我列出了所有公司和可用的产品。
现在我有了每家公司的工作表。我想为每个公司的vlookup和把可用的产品在特定的公司表。新的工作表将如下所示。
我不能只是复制和插入列，因为在每个公司列中已经有产品的名称。此外，我希望宏为所有的公司做这件事(每个公司都有一个单独的工作表作为X1)。
谢谢你的帮助。
更新的代码：
Sub UpProd()
Dim ws As Worksheet
Dim DataRange As Range, UpdateRange As Ra
浏览 0提问于2012-08-10得票数 1
回答已采纳
2回答
VBA查找和替换，但为整列着色
vba、excel
我对VBA相当陌生(因为这是我第一次尝试使用VBA)，我正在开发一个宏，在一个名为"AA系列“的电子表格中，用稍微修改过的数字来查找和替换大量的数字。我将它们存储在一个名为"PartNumbers“的电子表格中，现有的电子表格在第一列中，替换器在J中，下面所示的代码对此很好：
Sub Macro1()
Dim i As Integer
Dim WS As Worksheet
Dim FindStr As String
Dim RepStr As String
For i = 1 To 87
For Each WS In Workbooks("
浏览 5提问于2015-06-30得票数 0
回答已采纳
3回答
Excel自动化从MSAccess -替换字符使用VBA？
excel、ms-access、vba
在MSAccess中，我正在创建和填充XLS工作表。一切都如期而至。作为最后一步，我想清理XLS，将"0“值替换为"”。
通过XLS建模，我尝试了以下步骤，但从MSAccess VBA生成了一个必需的错误消息对象：
Dim appXLS As Object
Dim wbk As Object
Dim wks1 As Object
Dim wks2 As Object
Dim wks3 As Object
Dim wks4 As Object
Set appXLS = CreateObject("Excel.Application")
Set wbk = app
浏览 1提问于2016-12-06得票数 0
回答已采纳
4回答
如何修改此VBA代码，使其在工作簿中的所有工作表上运行？
vba、excel、excel-2016
我正在使用Excel 2016，并且我有以下VBA代码，它们可以删除活动工作表的所有单元格中的高亮显示(基于提供的RGB编号)：
Sub RemoveSpecificColorFill()
'PURPOSE: Remove a specific fill color from the spreadsheet
Dim cell As Range
'Turn off ScreenUpdating (speeds up code)
Application.ScreenUpdating = False
'Loop through each cell in the Acti
浏览 0提问于2018-05-08得票数 0
2回答
如果不存在值，则删除文件
vba、excel
我在VBA中寻找一种干净的方法来解决这个问题：
我有一个Excel表，其中包含1行的值。如果在指定的目录中找到该值，则应保留这些值，并删除所有其他文件。
一个简短的例子：
表：
A
1 1000
2 1500
3 2000
4 1800
5 0009
C目录内容：\Temp\1000.pdf；1200.pdf；1800.pdf；0001.pdf
因此，操作应该保留1000.pdf和1800.pdf，并删除所有其他*.pdf的。
这是我的尝试，但这只是一个细胞。
Dim cName As String
cName = Sheets("Blad2")
浏览 6提问于2015-02-11得票数 0
回答已采纳
2回答
如何一次替换多个字符串
excel、vba
我有几行不同的文本字符串，其中包含缩写的单词，例如A1 = "Grw Option"，B1 ="Grth Fund"，C3 = "Growth Account“，而不是"Growth Option"，"Growth Fund"，”Growth Account“。 我有不同缩写的列表，以及我需要用什么来替换它们。 然而，还有大约20个单词有多达5种形式的缩写，我是如何写出完整的VBA代码的，这是非常长的。 我想知道是否有一种可能的方法来列出多个字符串，并将其替换为只使用一行代码的单个字符串。 我已经使用了查找和替换功能来替
浏览 23提问于2019-05-07得票数 1
回答已采纳
1回答
如何循环遍历Excel工作簿中的工作表并转置每个工作表中的数据？
excel、vba
我正在尝试编写一个VBA宏，它将转置Excel工作簿中每个工作表上的数据(将列转换为行，将行转换为列)。
我尝试过以下代码的不同版本，但PasteSpecial在循环中似乎会导致问题。
Dim WS_Count As Integer
Dim i As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For i = 1 To WS_Count
Worksheets(i).UsedRange.Copy
Worksheets(i).Cells.ClearContents
Worksheets(i).Range("
浏览 1提问于2019-10-02得票数 0
2回答
宏按列表到FindReplace仅替换列表中的第一个元素。
excel、vba
我的宏to FindReplace只替换数组中的第一个元素
我不知道是怎么回事
谢谢
Sub sReplace()
'Column header for Search
'List of words to look for
'Word to Change elements is list to
fReplace "location", Array("Saint Paul", "SAINT PAUL", "St Paul", "St. Paul, St. Paul"), "Min
浏览 1提问于2014-04-25得票数 1
回答已采纳
2回答
如何重命名用户定义的函数
excel、vba
在我的(相当复杂的) Excel工作簿中，我使用了许多用户定义的函数。这是没有问题的。
现在我想重命名其中的几个函数，因为最初选择的一些函数名称不是很好。如果我在VBA编辑器中天真地重命名它们，工作簿将不再工作，因为工作簿中的公式中的用户定义函数的名称不会自动重命名。
我现在只有两种可能性：
保留函数的名称，并处理它
在我的工作簿的所有工作表中的每个公式中手动重命名函数。
是否有更有效的方法在所有公式中重命名所有用户定义的函数？
浏览 0提问于2014-12-09得票数 0
回答已采纳
2回答
VBA查找和替换跳过某些单元格
excel、replace、vba
我有一些代码，可以在给定列中查找空格，并将它们替换为“空白”，这在过去工作得很好，并且适用于我正在查看的第一栏的所有工作表。
在“米”表中，整个列是空白的，但是查找和替换填充了空白的所有栏6，没有明显的模式，如下所示。我预计这可能是我周一早上的另一个“用户故障”错误，但如果有任何见解，我将不胜感激。
我知道这在一个循环中会更好，一旦我解决了它缺少一些空格的问题，我就会写下它。
干杯
Public Function FILL_blanks() '''' this searches for blanks
'in the columns in the raw
浏览 0提问于2014-05-12得票数 0
2回答
使用VBA删除公式中对文件名的引用
vba、excel
我正在尝试从Excel工作簿复制一系列工作表，并将它们粘贴到新工作簿中。我遇到的问题是，当我将工作表复制到新的工作簿中时，公式仍然引用公式中的旧工作簿。我试图获取工作簿的名称并将其替换为空字符，但我相信我的代码引用的是新工作簿，而不是旧工作簿。我尝试了一个函数以及'ThisWorkbook‘和'ActiveWorkbook’，但似乎都不起作用。
下面是函数...
Function MyName() As String
MyName = ThisWorkbook.Name
End Function
这是完整的代码...
Sub CopyToNewWorkbook()
浏览 0提问于2017-01-26得票数 1
回答已采纳
2回答
For循环忽略True如果条件在Present存在时
excel、vb.net、if-statement、for-loop
当循环主体中存在一个True IF条件时，让For循环承认我有一个ELSE条件似乎有问题。以下是我所写的：
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'TEST FIND/SEARCH FEATURES
Dim String2Find As String = txtCPUSerial.Text
Dim ColumnNumber As Integer = 1
'Access the worksheet
Dim xl
浏览 8提问于2016-12-10得票数 0
1回答
VBA excel搜索工具
excel、vba、search
尝试对我正在工作的excel工作表(VBA)执行搜索工具。到目前为止，每次搜索文本时，它都只过滤第一行，而不过滤任何具有我所寻找的值的行。我添加了一张图片来显示它返回的内容以及代码。我是否需要更改代码，让它搜索工作表中的所有数据，而不是让它只显示一行？任何帮助都是非常感谢的。
仅搜索第一行的结果：
Sub SearchAllSheets()
Dim ws As Worksheet, OutputWs As Worksheet
Dim rFound As Range
Dim strName As String
Dim count As Long, LastRow As Long
Dim
浏览 5提问于2022-08-20得票数 0
2回答
excel、vba中的搜索工具
vba、excel
我是excel的新手，我真的需要帮助来扩展我的代码。代码在所有工作表中搜索文本。我想在第一张表中列出所有搜索结果，并列出找到文本的完整行。不幸的是，我不知道如何复制找到条件的行。如果我能找到一个检查代码的解决方案，也许会有很大的帮助。
Sub SearchAllSheets()
Dim ws As Worksheet
Dim rFound As Range
Dim strName As String
On Error Resume Next
strName = InputBox("What are you looking for?")
If strN
浏览 4提问于2016-04-25得票数 1
回答已采纳
1回答
如何在其他excel文档中查找和替换
excel、vba
我正在尝试创建一个宏(在excel中)以打开另一个excel工作表，执行查找-替换，然后保存它。
我已经用这样的word文档做到了这一点：
...
Dim wrdDoc As Word.Document
If wrdApp Is Nothing Then Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open(TemplateFilePath)
...
Call WordReplace(wrdDoc,"a","b")
....
Priv
浏览 0提问于2010-12-07得票数 1
回答已采纳
2回答
Excel VBA -使用Array在工作表中移动，然后复制粘贴第n行
arrays、vba、excel
我对VBA有点陌生，我最近才开始在excel中使用它，并且遇到了一个障碍。
我正在创建一个人行横道，以便将我的数据上传到一个商业智能应用程序。不幸的是，我没有连接到数据库来运行我的报告，所以我必须用excel来完成这个任务。我遇到的问题是，我们的应用程序中有一个错误，在excel文档中的第1000行之后，它将跳过第1000行。我们的开发团队知道这一点，但是没有ETA来解决这个问题。作为一项工作，我试图使用VBA将第1000行(从2000年开始)复制到同一页的末尾。
我目前已经编写了在单个工作表上工作的代码，但是我有几个有超过1000行的页面，所以我尝试将这些工作表的名称输入一个数组中，并循环每
浏览 2提问于2016-10-26得票数 0
回答已采纳
2回答
在Excel宏中，如何迭代大量列？
excel、loops、vba
我有以下Excel表和VBA宏，它将列AY、AZ、BA上的每个x替换为单元格AY1、AZ1、BA1的值：
如您所见，我的脚本的列名是硬连接的。我有许多专栏(大约。300)。如何使我的脚本在许多列上自动增加1/迭代的列索引？
浏览 1提问于2017-01-16得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
活动推荐
腾讯云开发者
