VBA小程序--在第一行搜索_单元格匹配_并将搜索结果更改

VBA批量修改Excel工作表标题

最新推荐文章于 2024-08-14 03:58:31 发布

原创最新推荐文章于 2024-08-14 03:58:31 发布 · 808 阅读

0 ·

CC 4.0 BY-SA版权

VBA 专栏收录该内容

62 篇文章

订阅专栏

本文介绍了一段VBA代码，该代码能够在Excel中循环遍历所有工作表，查找并替换首行中的特定文本。具体操作是在每个工作表的第一行搜索单号并将其更改为订单号，有效提高了批量处理Excel文件的工作效率。

需求：循环每个工作表，在每个工作表的首行搜索“单号”，并将其改为“订单号”

Sub 在第一行搜索_单元格匹配_并将搜索结果更改()
    Dim sht As Worksheet
    Application.ScreenUpdating = False   '禁止屏幕刷新--提升代码执行速度
    Application.Calculation = xlCalculationManual   '计算模式为手动--提升代码执行速度
    On Error Resume Next    '忽略报错
    
    For Each sht In Worksheets
        With sht
            .Activate
            .Rows(1).Select '标题都在第一行，所以就直接写第一行了
            '单元格匹配，搜索单号，通过录制宏得到
            Selection.Find(What:="单号", after:=ActiveCell, LookIn:=xlFormulas, LookAt _
                :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                False, MatchByte:=False, SearchFormat:=False).Activate
            ActiveCell.FormulaR1C1 = "订单号"
            .Range("D2").Select
        End With
    Next
    
    Application.ScreenUpdating = True   '重新启用屏幕刷新
    Application.Calculation = xlCalculationAutomatic   '重新使得计算模式为自动
    On Error GoTo 0 '恢复报错
    MsgBox ("大哥，已完成")
End Sub