excel中使用vba复制单元格保留原单元格列宽工具/原料moreexcel2013更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。 好人一生平安。 先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。方法/步骤1/6分步阅读

首先我们打开一个工作样表作为例子。

2/6

这里我们看到a6单元格的列宽为3，o6单元格列宽为8.38。

3/6

当我们把a6单元格的数据复制到o6单元格中，数据会复制，但是列宽并不会发生改变。使用vba可以解决这个问题。

4/6

我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub cy()

Sheets(1).Range(a6).Copy

Sheets(1).Range(o6).PasteSpecial xlPasteColumnWidths

End Sub

5/6

这里有个xlpastecolumnwidths参数，是pastespecial方法的参数之一，作用是粘贴原单元格的列宽。

6/6

与excel工作表中的复制无法复制列宽一样，pastespecial中也有一个复制全部数据的参数xlpasteall参数，但是唯独不能复制列宽的参数。

注意事项

谢谢你的观看。

你的投票是我编辑经验的动力。谢谢你。

EXCELVBA列宽PASTESPECIAL