vba - excel在vba中粘贴特殊功能不粘贴单元格宽度

Question

我正在运行一个宏以从一张纸复制并过去到另一张纸，但是，它没有粘贴单元格宽度。如果我手动执行此操作，即复制列并粘贴特殊>全部。宏的 vba 代码位于：http: //pastebin.com/K2sW1C8x

如您所见，我正在使用：

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

Answer 1

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

  Selection.PasteSpecial Paste:=xlColumnWidths

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