VBA程序翻译.docVIP

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 清除选区 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应该也可以去掉 单元格的范围换个表示方式就好了，这里用的是cells属性。cells（5,1）代表A5单元格，cells（169,1）表示A169单元格。修改后的宏代码如下： 你要循环工作的目的不太明确，但按照你的要求应该用以下语句 Sub 宏1() 宏1 宏 快捷键: Ctrl+z for a=67 to 90 step 2 columns(chr(a) : chr(a+