这是一段有关年终接转报表的记录宏,修改了多次,有谁帮我解释一下吗?(1)

来源：百度知道 编辑：UC知道 时间：2024/07/04 02:06:25
Sub Macro2()
'
' 年报结帐结转模块
' 宏由 wwdjs 录制，时间: 2007-1-15,年报结帐结转模块，平时不可使用的！
'
Range("C6:D24").Select
Sheets("上月损益表").Select
Selection.ClearContents
Sheets("平衡表").Select
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
Range("G5:g18,I5:I18").Select
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=8
Range("G20:G30,i20:i30").Select
Application.CutCopyMode = False
Selection.Copy
Range("C20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=12
Range("G32:G36,I32:I36").Select

Range("C6:D24").Select '当前表选中C6:D24区域
Sheets("上月损益表").Select '选中 上月损益表
Selection.ClearContents '清除选中区域
Sheets("平衡表").Select '选中 平衡表
ActiveWindow.ScrollColumn = 4 '当前表的第四列滚动至最左边, 此行可以去除
ActiveWindow.ScrollColumn = 3 '当前表的第三列滚动至最左边
Range("G5:g18,I5:I18").Select '选择数据区域
Selection.Copy '复制选中区域
Range("C5").Select '选中C5单元格
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False '将之前复制的内容粘贴到以C5开始的区域
ActiveWindow.SmallScroll Down:=8 '表格向下滚动8行
Range("G20:G30,i20:i30").Select '选择数据区域
Application.CutCopyMode = False '消除使用copy复制后产生的虚线框
Selection.Copy '复制选取区域
Range("C20").Select '定位C20单元格
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False '粘贴
ActiveW