No.1

Excel操作当中，表格的高度和宽度可以进行自动调整。

方法就是使用.AutoFit属性进行设置。

下面用一个例子简单介绍一下，如何对单元高度和宽度格进行自动调整。

No.2

方法很简单，如上图所示。

R.Columns.AutoFit‘自动调整列宽

R.Rows.AtuoFit'自动调整行高

上图为例对表格内数据随机生成，然后自动调整单元格高度和宽度。

如下几行代码就可实现整个工作表的行高和宽设置。

No.3

代码

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

仔细看上面代码，也不十分理解。

对于整个表格的操作十分方便。

欢迎关注、收藏