自动调整表格怎么设置

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 = TrueEnd WithEnd WithApplication.ScreenUpdating = TrueSet s = NothingSet r = NothingEnd Sub

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

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

欢迎关注、收藏