EXCEL用宏按钮导入多个工作薄中指定数据

Question

比如:
我要在工作薄的"棒材"工作表添加一个按钮,从第四行以下导入工作薄"张三.xlsx"\"李四.xlsx"\"王五.xlsx"\"赵六.xlsx"...的"棒材"工作表 第四行以下所有数据且不带任何公式,但是却保留条件单元格的所有设置.而且已经到导入过的行下一次不被再导入

麻烦高手帮帮忙吧,感激不尽,可是我却没有分了.......

Answer 1

只能用宏来实现，具体如下：

Sub TEST()
Application.ScreenUpdating = False
For Each ST In Sheets
ST.UsedRange.Offset(1, 0).ClearContents
Next
MyPath = ThisWorkbook.Path
MYFILE = Dir(MyPath & "\*.xls")
Do Until MYFILE = ""
If MYFILE <> ThisWorkbook.Name Then
Set FS = Workbooks.Open(MyPath & "\" & MYFILE)
For I = 1 To 3
With FS.Sheets(I)
.Range("A2:D" & Range("A65536").End(3).Row).Copy ThisWorkbook.Sheets(I).Range("A65536").End(3)(4)
End With
Next
FS.Close
End If
MYFILE = Dir
Loop
Application.ScreenUpdating = True
End Sub