国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

Sub aa(Fn As Variant)
Dim WB As Workbook
Dim i As Integer

Set WB = Workbooks.Open(Fn)
    With ThisWorkbook.Sheets('匯總') '假設匯總工作簿將數(shù)據(jù)匯總到“匯總”工作表
        .Range('a1' & i) = .range('a1')+ WB.Sheets(1).Range('a1') '本工作簿（匯總工作簿）的“匯總”工作表的A1累加目標工作簿的第一個工作表的A1

        .Range('b1' & i) = .range('b1')+ WB.Sheets(1).Range('b1')

        ...................
           End With
WB.Close False
End Sub
Sub bb()
Fn = Application.GetOpenFilename('Excel文件(*.xls), *.xls', , '選擇文件', , True)
Application.ScreenUpdating = False
For i = 1 To UBound(Fn)
Call aa(Fn(i))
Next
MsgBox '共匯總' & i - 1 & '個工作簿'
End Sub

運行bb，則彈出選擇工作簿的對話框，鼠標配合shift和ctrl一次將需要匯總的工作簿全部選中，則自動完成匯總