[已解决]求代码

danio112

如何复制一个区域到另一个区域，rangeA.copy rangeB行不通，因为rangeA里面有一些合并单元格。求代码，要求不要整列复制。

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-9-28 13:40

粘贴区域只需要选择顶点单元格就可以了，不要选择单元格区域。 如果选择单元格区域就会出错。
这个顶点位置可以随意更改。比如我下面是写成了粘贴到以m6为顶点的单元格区域中。

Sub 复制()
Range(Cells(2, 2), Cells(4, "i")).Copy Range("m6")
End Sub

附件如下：
复制.zip (10.52 KB, 下载次数: 2)

2013-9-28 13:42 上传

点击文件名下载附件

跳转到最佳答案楼层

美斯特邦威

1. Sub abc()
   
2. Range("b2").CurrentRegion.Copy Range("m2")
   
3. End Sub
   

复制代码

yyyydddd8888

粘贴区域只需要选择顶点单元格就可以了，不要选择单元格区域。 如果选择单元格区域就会出错。
这个顶点位置可以随意更改。比如我下面是写成了粘贴到以m6为顶点的单元格区域中。

Sub 复制()
Range(Cells(2, 2), Cells(4, "i")).Copy Range("m6")
End Sub

附件如下：
复制.zip (10.52 KB, 下载次数: 2)

2013-9-28 13:42 上传

点击文件名下载附件

leoyoung

就你示例的要求

1. Range("B2").CurrentRegion.Copy Range("M2")
   

复制代码

danio112

leoyoung 发表于 2013-9-28 13:44
就你示例的要求

之前我也试过这种方法，不行，但现在又行了，甚是奇怪
如果这个需要复制的区域里恰好有一行是空行，那怎么复制呢

yyyydddd8888

danio112 发表于 2013-9-28 13:50
之前我也试过这种方法，不行，但现在又行了，甚是奇怪
如果这个需要复制的区域里恰好有一行是空行，那怎 ...

如果需要复制的区域中有空行，就只能用单元格range(cells1,cells2)来选择要复制的区域。cells1是左上角起始单元格，cells2是右下角结束单元格。