Excel操作当中，表格的高度和宽度可以进行自动调整。
方法就是使用.AutoFit属性进行设置。
下面用一个例子简单介绍一下，如何对单元高度和宽度格进行自动调整。
方法很简单，如上图所示。
R.Columns.AutoFit‘自动调整列宽
R.Rows.AtuoFit'自动调整行高
上图为例对表格内数据随机生成，然后自动调整单元格高度和宽度。
如下几行代码就可实现整个工作表的行高和宽设置。
代码
Private Sub setRowsColumnsWidthHeight()
Application.ScreenUpdating = False
Dim s As Worksheet
Dim r As Range
Set s = ThisWorkbook.Worksheets("Sheet1")
Set r = s.Range("A2:G15") '定义Range对象
With r
.Clear '清除表格
' .ColumnWidth = 10'
.Interior.Color = RGB(21, 131, 82) '背景色
.Borders.LineStyle = 1 '边框样式细线条
.Borders.ColorIndex = 12 '边框颜色
.Value = VBA.Format(Rnd(9), "0.000") '值
.Columns.AutoFit '自适应列宽
.Rows.AutoFit '自适应行高
With .Font '设置文本格式
.Color = RGB(221, 221, 221)
.Size = 14
.Name = "微软雅黑"
.Bold = True
End With
End With
Application.ScreenUpdating = True
Set s = Nothing
Set r = Nothing
End Sub
仔细看上面代码，也不十分理解。
对于整个表格的操作十分方便。
欢迎关注、收藏
