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
其实真的挺简单的，只要会一点代码知识的同学都能写出批量处理的代码来。
下面我分享一下本人觉得比较实用的代码给大家，分别是批量替换内容、批量取消合并单元格、批量处理字段顺序，如果有需要批量处理其它可以自行参照写，或者给我消息
[i]
链接: https://pan.baidu.com/s/1x8fwTxcuN7Du1Odzl8Dmqg?pwd=m6fr
提取码: m6fr
