excel如何合并多个工作簿中的指定工作表

.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

LeftCol = ActiveWindow.ScrollColumn

Dim LastRow As Long, R As Long

LastRow = edRange.Rows.Count + edRange.Row - 1

Application.ScreenUpdating = False

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 = LeftCol

Application.ScreenUpdating = True

MsgBox "工作表合并已经完毕", "0", "提示"

End Sub