本節介紹一個簡單屬性，在以前的文章中也有提及，這裡拿來重點說明一下，如何對列寬進行自動設置寬度。
Excel表格中的列寬并不是固定的大小，默認情況下不會根據你的内容進行變化，所以需要人為來進行一些變更。
根據表格内容多少的變化，表格的寬度也随之變化。
如下圖所示，可以用三種方式來進行表格寬度設置。
第一種：根據表格最大值來設置列寬。
第二種：根據表題行設置列寬。
第三種：根據指定行來設置列寬。
第二種和第三種實際上一樣，隻不過第三種更加自由一些。
下圖為根據标題行來設置列寬的樣式
看一下代碼
Private Sub CommandButton1_Click()'按整列設置寬度
Dim r As Range
Set r = Range("A:F")
r.Columns.AutoFit
Set r = Nothing
End Sub
Private Sub CommandButton2_Click())'按标題行
Dim r As Range
Set r = Range("A2:F2")
r.Columns.AutoFit
Set r = Nothing
End Sub
Private Sub CommandButton3_Click())'按某列設置
Dim r As Range, ri As Integer
ri = Me.ComboBox1.Value
Set r = Range("A" & ri & ":F" & ri)
r.Columns.AutoFit
Set r = Nothing
End Sub
實際上僅僅是如下一行代碼：
Range.Columns.AutoFit
AutoFit方法是Range對象下的，這裡特别注意一點，AutoFit要應用在Columns和Rows之下。它們分别代表了工作表的列和行，就是這個意思。
明白了這一點，就不難理解上述代碼了。
歡迎關注、收藏
---END---
,更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
