我正在尝试将标题和一组数据复制到新的工作表中进行打印。
虽然我可以很好地复制数据,但列宽会丢失,并且在其上运行 autofit 会再次破坏页面。最初设计页面时,手动设置列宽。
目前我有:
Dim tmp As Worksheet
Set tmp = Sheets.Add(after:=ActiveSheet)
RD.Copy tmp.Range("A1") ' Range data (set elsewhere)
RH.Copy tmp.Range("A1") ' Range header (set elsewhere)
我试过使用 xlPasteSpecial 和 xlPasteAll 但在使用剪贴板时它们没有区别。
我需要做什么才能跨工作表复制单元格宽度?