黄洛婷:对10个表中所有的数据求和

来源:百度文库 编辑:九乡新闻网 时间:2024/05/03 06:52:50

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

 

假设你的总表在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拖动工作表,拖动一次即复制一次你所选定的工作表个数