book2.xlsx中的sheet1。
book3.xlsx中的sheet1。
book4.xlsx中的sheet1。
~~~~~~~~~~
合并到book汇总.xlsx中的sheet1中
如果你的建议是复制~~粘贴~就算了！这个我知道如何使用！
如果提供宏的朋友可以加入详细说明，以便我学习，我将酌情加分！
谢谢！
excel如何合并多个工作簿中的指定工作表
浏览次数：1256次悬赏分：30|解决时间：2010-4-14 02:10|提问者：lanxue88888
每天要汇总很多数据！
浪费太多时间！
现在求一个宏，或者工具！
可以将指定目录下的excel工作簿中的指定表！汇总到一起！
例如！将book1.xlsx中的sheet1。
For R = LastRow To 1 Step -1
If WorksheetFunction.CountA(Rows(R)) = 0 Then
Rows(R).Delete
End If
Next R
UserSheet.Activate
ActiveWindow.ScrollRow = TopRow
ActiveWindow.ScrollColumn = Le True
MsgBox "工作表合并已经完毕", "0", "提示"
End Sub
Next
.Close False
End With
End If
dirname = Dir
Loop
Dim UserSheet As Worksheet
Set UserSheet = ActiveSheet
Dim TopRow As Long
Dim LeftCol As Integer
TopRow = ActiveWindow.ScrollRow
nm =
dirname = Dir(lj & "\*.xls")
Application.ScreenUpdating = False
For Each sh In Sheets
edRange.Offset(3, 0).Clear
Next
Do While dirname <> ""
最佳答案
Sub Macro1()
Dim lj$, dirname$, nm$, wb As Workbook, sh As Worksheet, a, b
Set wb = ThisWorkbook
a = Array(0, 2, 1)
b = Array(0, -1, 0)
lj = ThisWorkbook.Path
LeftCol = ActiveWindow.ScrollColumn
Dim LastRow As Long, R As Long
LastRow = edRange.Rows.Count + edRange.Row - 1
Application.ScreenUpdating = False
If dirname <> nm Then
With GetObject(lj & "\" & dirname)
For i = 1 To 2
If IsSheetEmpty = IsEmpty(.Sheets(i).UsedRange) Then _
.Sheets(i).UsedRange.Offset(3, 0).Copy wb.Sheets(.Sheets(i).Name).Cells(65536, a(i)).End(xlUp).Offset(1, b(i))