excel粘贴vba中的特殊function，不粘贴单元格宽度

我正在运行一个macros从一张纸复制到另一张纸，但是，它不粘贴单元格的宽度。 如果我手动这样做，它的工作原理即复制列和粘贴特殊>所有。 macros的vba代码位于： http ： //pastebin.com/K2sW1C8x

正如你所看到的我正在使用：

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=False 

Answer 1

列宽度的粘贴需要在单独的操作中完成：

  Selection.PasteSpecial Paste:=xlColumnWidths 

此命令偶尔会在以前版本的Excel中引发错误。 如果出现错误，请使用数字8代替xlColumnwidths。