Excel / VBA:粘贴数据后自动调整列宽度

Question

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

是否有一种方法使用VBA自动调整每列的宽度到其内容后的数据(文本)已粘贴?

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

Answer 1

您可以使用AutoFit:

 Columns("A:B").EntireColumn.AutoFit

Answer 2

您可以执行以下操作:

Columns("A").Autofit

Answer 3

您可以使用工作表更改事件来执行此操作，但如果在粘贴后以任何方式更改了工作表，则会再次运行。这不是一个问题，除非你试图隐藏列来关注数据的子集，因为它们会不断地自动适配自己。

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