用宏命令完成 空白表中取数

来源：百度知道 编辑：UC知道 时间：2024/05/25 10:01:54
求一段宏程序 在电子表格的同一个工作簿中设一个空白表，取它后面各张表的合计数。如 sheet1为空白表 sheet2、sheet3等表中的第一行是合计数，将这些合计数取到sheet1中。请哪位高手帮忙解决一下，谢谢。

End Sub
Sub Macro2()
'
' Macro2 Macro
'
' 快捷键: Ctrl+Shift+W
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "=sum"
Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(Sheet1!RC+Sheet1!RC)"
Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(Sheet2!RC+Sheet3!RC)"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:W1"), Type:=xlFillDefault
Range("A1:W1").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
End Sub