ExcelVBA遍历代码（批量替换、批量取消合并单元格、批量处...

csx

本人学习Excel VBA有一段时间了，经常会使用到遍历的代码，遍历的代码有好几种，我一般用到以下这个简单的
Sub 批处理()
    Dim strFile, Wb As Workbook, i%, j%, Wjlx As String
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    strPath = ThisWorkbook.Path & "\"
    Wjlx = "Excel文件,*.xls*"
    strFile = Application.GetOpenFilename(FileFilter:=Wjlx, Title:="打开文件", MultiSelect:=True)
    If Not IsArray(strFile) Then MsgBox "没有选择文件": GoTo 300
    For i = 1 To UBound(strFile)
        Set Wb = Workbooks.Open(strFile(i))
        For Each sht In Wb.Worksheets '遍历工作表
            sht.Activate
            sht.UsedRange.Value = sht.UsedRange.Value '这里开始写你要做的事情的代码
        Next
        Wb.Close savechanges:=True '保存关闭工作簿
    Next
    MsgBox "完成"
300
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub


其实真的挺简单的，只要会一点代码知识的同学都能写出批量处理的代码来。
下面我分享一下本人觉得比较实用的代码给大家，分别是批量替换内容、批量取消合并单元格、批量处理字段顺序，如果有需要批量处理其它可以自行参照写，或者给我消息


链接: https://pan.baidu.com/s/1x8fwTxcuN7Du1Odzl8Dmqg?pwd=m6fr
提取码: m6fr