我想你自己应该知道怎么使用，我只需要告诉你宏代码对不对？ 如下：Sub 遍历当前文件夹下工作薄()t = TimerApplication.ScreenUpdating = False
ActiveSheet.Range("2:100000").ClearContents Dim i, r, wk As Workbook, sh As Worksheet, rr
p = ThisWorkbook.Path & "\"
s = Dir(p & "*.xls*")
Do While s""
If sThisWorkbook.Name Then
...
Sub 多薄合并()
Dim i%, xr&, myvar, wk As Worksheet, awk As Worksheet
Application.ScreenUpdating = False
Set wk = ThisWorkbook.Sheets(1)
myvar = FileList(ThisWorkbook.Path) ...
Sub CopyFromSubFiles()
Dim MyFile As String
Dim Arr(1000) As String '最多处理1000个子台帐
Dim count As Integer
Dim CurrentPath As String
Dim MyWorkbook As Workbook...
