对10个表中所有的数据求和

来源:百度文库 编辑:神马文学网 时间:2024/04/24 15:21:24
假设你的总表在SHEET11,A1单元格是需要求和的数据,你在A1中输入=SUM(Sheet1:Sheet10!A1)
批量在同个工作薄中添加多个工作表
Sub Macro1()
'
' Macro1 Macro
For i = 1 To 10   '添加 十个
Sheets.Add After:=Sheets(Sheets.Count) '开始添加
Sheets(i).Name = i  '起名
Next i
End Sub
excel中多表数据合并到一张表上
宏代码如下:
Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示"
End Sub
复制多个表格
1 选定需要复制的工作表 2 按住Ctrl拖动工作表,拖动一次即复制一次你所选定的工作表个数