admin 管理员组

文章数量: 1086019


2024年3月27日发(作者：微量元素常量元素)

Range("C6:D24").Select '当前表选中C6:D24区域

Sheets("上月损益表").Select '选中 上月损益表

ontents '清除选中区域

Sheets("平衡表").Select '选中 平衡表

Column = 4 '当前表的第四列滚动至最左边, 此行可以去除

Column = 3 '当前表的第三列滚动至最左边

Range("G5:g18,I5:I18").Select '选择数据区域

'复制选中区域

Range("C5").Select '选中C5单元格

pecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False '将之前复制的内容粘贴到以C5开始的区域

croll Down:=8 '表格向下滚动8行

Range("G20:G30,i20:i30").Select '选择数据区域

yMode = False '消除使用copy复制后产生的虚线框

'复制选取区域

Range("C20").Select '定位C20单元格

pecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False '粘贴

croll Down:=12 '向下滚动12行

Range("G32:G36,I32:I36").Select '选取区域

yMode = False '消除使用copy复制后产生的虚线框

'复制

Range("C32").Select '定位C32单元格

pecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False '粘贴

croll Down:=0 '向下滚动0行,多余!


本文标签： 区域 复制 选中 产生 使用

版权声明：本文标题：VBA程序翻译 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711489242a596624.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。