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  '粘贴
ActiveWindow.SmallScroll Down:=12  '向下滚动12行
Range("G32:G36,I32:I36").Select  '选取区域
Application.CutCopyMode = False      '消除使用copy复制后产生的虚线框
Selection.Copy    '复制
Range("C32").Select  '定位C32单元格
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False  '粘贴
ActiveWindow.SmallScroll Down:=0  '向下滚动0行，多余!
Range("E32:F36").Select  '选取
Application.CutCopyMode = False  '消除使用copy复制后产生的虚线框
Selection.ClearContents  '清除选区
Range("E38:F46").Select  '选取
Selection.ClearContents  '清除选区
Range("C38:D46").Select  '选取,
Selection.ClearContents  '清除选区
values翻译Sheets("城建税").Select  '选中  城建税  表
ActiveWindow.ScrollRow = 14  '14行置窗口顶部,
ActiveWindow.ScrollRow = 13  '13行置窗口顶部
ActiveWindow.ScrollRow = 12  '......
ActiveWindow.ScrollRow = 11  '......
ActiveWindow.ScrollRow = 10  '......
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1  '......
'ActiveWindow.ScrollRow = 14到ActiveWindow.ScrollRow = 2应该也可以去掉

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。