复制所有活动单元格并以新工作表+相同格式粘贴值

Question

我尝试过来自不同来源的不同脚本，但没有找到任何真正有效的脚本。

正如标题所说，我正在寻找一个脚本，它可以将所有可见的行/列复制到一个新的.xlsx文件中，同时保持格式和列大小，只粘贴值。

这应该是可行的，对吧？

Answer 1

您需要的不仅仅是：吗

Sub copyToNew()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
Range("A1").PasteSpecial xlPasteValues
Range("A1").PasteSpecial xlPasteColumnWidths
Range("A1").PasteSpecial xlPasteFormats
End Sub