汇总数据,算提成
G:\py\210523finance\VBA专题12-课程需用材料
Sub Macro1()
Dim ws As Worksheet
Dim i As Integer
For i = 1 To 20
Set ws = Sheets.Add '不要忘记sheet复数
ws.Name = "部门 " & i
Workbooks.Open ("G:\py\210523finance\VBA专题12-课程需用材料\Dept " & i & ".xls")
Windows("Dept " & i & ".xls").Activate '打开,去复制数据
Sheets("Sheet1").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select '选中到本行最右边
Range(Selection, Selection.End(xlDown)).Select '选中到本行最下边
Selection.Copy
Windows("Demo 1.xlsm").Activate '回来粘贴数据
Sheets("部门 " &