本节介绍一个简单属性，在以前的文章中也有提及，这里拿来重点说明一下，如何对列宽进行自动设置宽度。
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之下。它们分别代表了工作表的列和行，就是这个意思。
明白了这一点，就不难理解上述代码了。