经常要用vba在不同的工作表之间复制内容。

有时候我们需要原单元格区域的内容复制到新的单元格区域后保持大小、位置等都不变化，也就是要一模一样。

如果涉及到合并单元格，同时单元格区域中还有图形时，直接用COPY复制过去大小往往不一致。

这里提供一种思路：复制时先把列宽复制过去，然后整行内容一起复制，同时删除多余部分即可。

以下是一个示例代码：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，公众号：水星Excel
    Dim owk As Worksheet
    Set owk = Excel.ActiveSheet
    iRow = 20
    With owk
        .Range("a1:n13").Copy
        .Range("a" & iRow).PasteSpecial xlPasteColumnWidths
        .Range("a1:n13").EntireRow.Copy .Range("a" & iRow)
    End With
End Sub
其它相关文章推荐：
如何用vba删除单元格区域的同时删除该区域的所有图形对象？
vba代码大全001：如何用vba批量隐藏或显示工作表？
如何用vba获取word文档最后有内容的结尾位置？
如何用vba判断是否打开了excel应用程序？
如何用vba获取excel的用户名?
如何用vba获取word文档中的表格数量?
      
            EXCEL VBA , VBA          
            复制单元格区域大小一致          
                  
声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。 
 
热门文章
        
【工具下载】一键启用Excel、Word、PPT、WPS、Outlook、Access等所有带VBA软件的宏。
                
【工具下载】Office Excel 按钮的图标以及FaceID
                
好玩！微信群疯传的2020年flag动图，用excel也能做！
                
如何用vba实现网站数据采集（网抓、爬虫）？
                
如何用vba操作word的编号列表项？
                
如何用vba获取word文档中的表格数量?
                
如何在C#中判断一个对象是否有具体的实例？
                
如何用vba返回两个数的余数？
                
如何用vba操作切片器？
                
如何用vba对Unicode编码解码？
                
如何用vba复制粘贴文件？
                
如何用vba更改SmartArt图形节点的形状？
                
如何在wps、excel中用公式计算圆的XY散点图坐标？
                
VBA代码大全031：如何在vba中将单元格的文本地址转换为range对象？
        
微信公众号