单元格自适应宽度_Excel如何对表格进行自适应设置，方法很简单

No.1

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

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

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

No.2

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

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

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

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

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

No.3

代码

Private Sub setRowsColumnsWidthHeight()Application.ScreenUpdating = FalseDim s As WorksheetDim r As RangeSet 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 WithEnd WithApplication.ScreenUpdating = TrueSet s = NothingSet r = NothingEnd Sub

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

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

欢迎关注、收藏