Windows Office Excel 数据字典的批量替换代码

最新推荐文章于 2024-11-20 11:07:31 发布

原创最新推荐文章于 2024-11-20 11:07:31 发布 · 2.1k 阅读

2 ·

CC 4.0 BY-SA版权

欢迎转载，注明作者和出处就好！如果有任何问题或文章存在明显的谬误，请留言说明原因谢谢，我也可以知道原因，不断进步！

文章标签：

#visual-basic #批处理宏命令 #office

【程序人生】➣ 程序人生专栏收录该内容

20 篇文章

订阅专栏

本文介绍了一个使用VBA实现的批量替换宏示例，该宏能够在Excel中批量替换Sheet1工作表中的指定字符串。宏通过从Sheet2读取要替换的字符串及其对应的新值，然后在Sheet1中进行替换操作。

部署运行你感兴趣的模型镜像

Sub batchReplace()
'
' 批量替换 宏
'

'字符串声明
 Dim str1 As String
 Dim str2 As String
'两层循环嵌套，i表示行号
 For i = 1 To 500
'拼接An，并取其中的值
    str1 = Sheets("Sheet2").Cells(i, "A").Value
    str2 = Sheets("Sheet2").Cells(i, "B").Value
    Sheets("Sheet1").Select
    Cells.Replace What:=str1, Replacement:=str2, LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
 Next
End Sub

您可能感兴趣的与本文相关的镜像