请高手帮我用copy方法将数据复制到另一个工作簿中

renahu

要求选中的所有数据都拷贝过去，包括注释，现在的方法不能把注释拷贝过去
选区拷贝.rar (31.1 KB, 下载次数: 21)

2019-1-22 21:23 上传

点击文件名下载附件

liulang0808

代码见截图，供参考

renahu

liulang0808 发表于 2019-1-23 08:23
代码见截图，供参考

看来要想让批注复制过去，需要打开工作簿？

renahu

liulang0808 发表于 2019-1-23 08:23
代码见截图，供参考

还想请教老师，如果测试表是一张空表，我想将选区复制过去后保持原来的高宽，如何做到呢？

liulang0808

renahu 发表于 2019-1-23 10:34
还想请教老师，如果测试表是一张空表，我想将选区复制过去后保持原来的高宽，如何做到呢？

建议使用sheet1.copy这样的方式

renahu

liulang0808 发表于 2019-1-23 12:14
建议使用sheet1.copy这样的方式

这是整表复制，这么说局部选择复制不行了？

liulang0808

renahu 发表于 2019-1-23 14:15
这是整表复制，这么说局部选择复制不行了？

具体要看实际需求，如果是大部分都要拷贝的，考虑使用整表拷贝吧，然后删除
如果是少部分，数值跟格式拷贝完了，设置列宽，行高之类的吧

ibilong

录的宏

sub aa()
        Dim OperationRegistry, WorkPath
    Dim Sh As Workbook, Ar
    Dim wb As Workbook
   
   
    Set wb = Workbooks.Add
  
    Set Sh = ThisWorkbook
   
    Set OperationRegistry = CreateObject("WScript.Shell")
   
    WorkPath = ThisWorkbook.Path & "\"

   
    With wb
   
   
    Sh.Activate
    Sheets("sheet1").Select 'sheet1是需要复制的sheet名
    Sheets("sheet1").Copy Before:=wb.Sheets(1)'sheet1是需要复制的sheet名
   

    ActiveWorkbook.SaveAs Filename:=WorkPath & "aaa" & "_" & aday & "_" & atime & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
end sub