EXCEL使用宏实现复制粘贴有关问题_Office

EXCEL使用宏实现复制粘贴问题
求VBA代码
要求把当前sheet中内容复制到新生成的工作薄的sheet1中并保存
要求格式是完全复制，包括新表格的个别行列的高度宽度，原表格的零值不显示，新表格也要求不显示，新表格的sheet与原sheet尽量完全一样
截止日期明天中午
本人使用宏录制实现的保存的sheet里保存的是图片，或者是行列高度宽度不一样

------解决方案--------------------------------------------------------
那是你宏录制得不对吧。
------解决方案--------------------------------------------------------

XML code

Sub 宏1()'    Sheets("Sheet1").Select '选择当前要复制的表格    Sheets("Sheet1").Copy After:=Workbooks("工作簿2").Sheets(3) '复制到工作簿2中第3个表的后面End Sub
------解决方案--------------------------------------------------------
Sub 宏1()

   Sheets("Sheet1").Select '选择当前要复制的表格
   Sheets("Sheet1").Copy After:=Workbooks("工作簿2").Sheets(3) '复制到工作簿2中第3个表的后面
End Sub

这样复制的工作表的内容/格式和原来的是一模一样的
------解决方案--------------------------------------------------------
你应该录制复制sheet。
------解决方案--------------------------------------------------------
完全一样的话，把这个工作表复制一个副本到另一个工作簿不就行了么
------解决方案--------------------------------------------------------
把之前的删了 重新复制不行吗