excel粘贴vba中的特殊功能而不粘贴单元格宽度

Question

我正在运行一个宏来从一个工作表复制到另一个工作表但是，它没有粘贴单元格宽度。如果我手动执行此操作，即复制列并粘贴特殊的＆gt;所有。宏的vba代码位于：http://pastebin.com/K2sW1C8x

你可以看到我正在使用：

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

Answer 1

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

  Selection.PasteSpecial Paste:=xlColumnWidths

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