Excel VBA跨sheet页字符串匹配替换

最新推荐文章于 2023-09-28 21:41:14 发布

天马行空KY

最新推荐文章于 2023-09-28 21:41:14 发布

阅读量1.2k

点赞数

分类专栏： VBA编程文章标签： excel

本文链接：https://blog.csdn.net/u011135852/article/details/107938196

版权

本文介绍如何使用Excel VBA进行跨工作表的字符串匹配和替换操作。通过示例代码和结果演示，展示了VBA在处理大量数据时的高效能。

摘要由CSDN通过智能技术生成

代码如下：

Sub 替换()
    ' 表制作循环sheet页变量
    i = 2
    ' 词根循环变量
    j = 2
    '替换后字符串
    replaceStr = ""
    '判断字符串是否在词根存在
    ifExists = 0
    '判断表制作sheet页的单元格是否为空，不为空才遍历
    Do While Not IsEmpty(Cells(i, 1))
        ' 单元格的值赋值给变量
        fromStr = Cells(i, 1)
        '字符串按照空格拆分
        fromArray = Split(fromStr, " ")
        'MsgBox ("The Value of i is : " & fromArray & i)
        ' 遍历数组
        For x = 0 To UBound(fromArray)
             fromStr = fromArray(x)
            'MsgBox fromArray(x)
             j = 2
             ' 判断词根sheet页的单元格是否为空
             Do While Not IsEmpty(Worksheets("词根").Cells(j, 1))
                '将需要比较的单元格赋值
                compareStr = Worksheets("词根").Cells(j, 1)
                '将需要替换的单元格赋值
                toStr = Worksheets("词根").Cells(j, 3)
                ' 如果比较字符串和源字符串