excel单元格的标识方法(编辑修改稿)内容摘要:

下这一句: Sheets(sheet1).Range(A2:L9 ).Copy Sheets(合并 ).Cells(10, 1) 改正这样: Sheets(sheet1).Range(A2:L amp。 i).Copy Sheets(合并 ).Cells(j, 1) 前面区域也要加入变量 大家看看两句的区别了吗。 Cells(j, 1)这个用法,大家都明白 Range(A2:L amp。 i)这一句的用法大家注意,变量是不要加“”的 好了 ,这是一种 Range在区域中的用法,我们看看另外几种用法 Sheets(sheet1).Range(A2:L amp。 i).Copy Sheets(合并 ).Range(A amp。 j) Sheets(sheet1).Range(2: amp。 i).Copy Sheets(合并 ).Range(j amp。 : amp。 j) Sheets(sheet1).Rows(2: amp。 i).Copy Sheets(合并 ).Rows(j) Range(Sheets(sheet1).Cells(2, 1), Sheets(sheet1).Cells(i, 13)).Copy Sheets(合并 ).Cells(j, 1) 结果都一样,至于怎么用,就要看每个人的习惯了 还有其它用法 ,大家去试一试 当然 代码越简单越好,少敲键盘 最后一句注意,在模块里都要加上工作表名称,不管是 Range还是 Cells,否则 VBA就不知道找那一个工作表了 ,第一个 Range 表示区域的意思 ,就不用加工作表名称 ,关键是括号内的区域 ,要引用工作表名称 这就是为什么第一段代码给大家后 ,大家出错的原因 这样完成了第一个工作表的复制 这个工作簿四个工作表,除了合并工作表这外还有三个,代码如下: Sub 拷贝 sheet1数据 () Dim i As Integer, j As Integer i = Sheets(sheet1).Range(A65536).End(xlUp).Row j = Sheets(合并 ).Range(A65536).End(xlUp).Row + 1 Sheets(sheet1).Range(A2:L amp。 i).Copy Sheets(合并 ).Cells(j, 1) End Sub Sub 拷贝 sheet2数据 () Dim i As Integer, j As。
阅读剩余 0%
本站所有文章资讯、展示的图片素材等内容均为注册用户上传(部分报媒/平媒内容转载自网络合作媒体),仅供学习参考。 用户通过本站上传、发布的任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权,请联系我们反馈本站将在三个工作日内改正。