Excel / VBA：粘貼數據后自動調整列寬

Question

我有一個空白的 Excel 表格保存為模板，我將剪貼板中的數據（來自網站）復制到其中。

在粘貼數據（文本）后，有沒有辦法使用 VBA 將每列的寬度自動調整為其內容？

編輯：我粘貼的數據將始終從 A1 開始插入，並將始終填充相同數量的列。

Answer 1

您可以使用AutoFit做到這一點：

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

Answer 2

您可以執行以下操作：

Columns("A").Autofit

Answer 3

您可以使用工作表更改事件來執行此操作，但是如果您的工作表在粘貼后以任何方式發生更改，它會再次運行。 除非您試圖隱藏列以專注於數據子集，否則這不是問題，因為它們會不斷自動適應。

我建議使用按鈕粘貼數據，並將列寬設置作為粘貼命令的一部分。