关于VBA复制时保持行高和列宽的问题

liulang0808

看看附件吧，你可以把名字为wsh的表格内容格式根据需求随便修改，运行代码看看吧
没有示例空讲很难说清楚

乐乐2006201505

wsh.UsedRange.Offset(1).Copy ts.Cells(2, 1).PasteSpecial Paste:=xlPasteColumnWidths
可保持列宽。

qiquwaiyi

5楼是正确答案

忘情的城市

liulang0808 发表于 2014-9-15 19:39
wsh.copy after:=wsh
你看看新表，原来的表格式是否一致的？

1.     '下面全部复制到新工作簿，同时给新工作簿(Sheet1)改名 总收入，
   
2.     ThisWorkbook.Sheets("总收入").UsedRange.Copy wb.Worksheets(1).Range("A1")
   
3.     ThisWorkbook.Sheets("全年目标").UsedRange.Copy wb.Worksheets(2).Range("A1")
   
4.     ThisWorkbook.Sheets("开门红目标").UsedRange.Copy wb.Worksheets(3).Range("A1")

复制代码

请问版主，如何原格式，包括列宽，意思原来的表什么样，复制过去也什么样子
我这个复制过去没列宽，隐藏的也出现了，

忘情的城市

liulang0808 发表于 2014-9-15 19:39
wsh.copy after:=wsh
你看看新表，原来的表格式是否一致的？

    ThisWorkbook.Sheets("总收入").Copy after:=wb.Worksheets(1)
    ThisWorkbook.Sheets("全年目标").Copy after:=wb.Worksheets(2)
    ThisWorkbook.Sheets("开门红目标").Copy after:=wb.Worksheets(3)

改成这样也可以，但是会出现2个总收入，2个全年，2个开门红。共6个表，3个表无数据

leolee82

先保存行高列宽数据，复制完再调整