excel中使用vba來自動調整所選列列寬。

1、首先我們打開一個工作樣表作為例子。

2、在例子中，我們屬于一些數值內容，但是因為列寬的設置的太小，數值內容以#號縮略的形式顯示，這個時候我們是看不到數值內容的。

3、這個時候我們只需要修改一下列寬，加大列寬數值，即可以完整顯示原有的數值，調整方法很簡單，可以直接拖拉，或者輸入數值。

4、這里我們可以使用更智能的方法，在vba里設置。使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

ActiveSheet.Range("i:i").EntireColumn.AutoFit

End Sub

5、這里需要注意的是，因為是輸入，所以屬于單元格的修改操作。那么我們在thisworkbook中就要對其單元格修改操作做定義。也就是選擇sheetchange。

6、在thisworkbook中設置的動作不需要運行可以直接生效，我們可以現在在i列輸入數據，可以看到i列自動調整了符合i列內容最長內容列寬。

相關推薦：

excel中怎么利用VBA制作一個登錄數據驗證窗口?

excel怎么利用vba實現批量套打快遞單批量打印單據?

excel中怎么使用Vba批量刪除指定文件夾下的所有文件?