Question

我有一个空白的Excel表保存为模板，我从剪贴板复制数据（源自网站）。

有没有办法在粘贴数据（文本）后使用VBA自动调整每列的宽度到其内容？

编辑：我将始终从A1开始插入我粘贴的数据，并始终填充相同数量的列。

非常感谢蒂姆。

Answer 1

您可以使用AutoFit执行此操作。喜欢这个

Columns("A:B").Select

Selection.EntireColumn.AutoFit

Answer 2

您可以使用工作表更改事件来执行此操作，但是如果在粘贴后以任何方式更改工作表，它将再次运行。除非您试图隐藏列以专注于数据的子集，否则这不是问题，因为它们会不断自我调整。

我建议使用按钮粘贴数据并将列宽设置作为粘贴命令的一部分。