No.1

Excel操作當(dāng)中，表格的高度和寬度可以進行自動調(diào)整。

方法就是使用.AutoFit屬性進行設(shè)置。

下面用一個例子簡單介紹一下，如何對單元高度和寬度格進行自動調(diào)整。

No.2

方法很簡單，如上圖所示。

R.Columns.AutoFit‘自動調(diào)整列寬

R.Rows.AtuoFit'自動調(diào)整行高

上圖為例對表格內(nèi)數(shù)據(jù)隨機生成，然后自動調(diào)整單元格高度和寬度。

如下幾行代碼就可實現(xiàn)整個工作表的行高和寬設(shè)置。

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 '自適應(yīng)列寬 .Rows.AutoFit '自適應(yīng)行高 With .Font '設(shè)置文本格式 .Color = RGB(221, 221, 221) .Size = 14 .Name = "微軟雅黑" .Bold = True End WithEnd WithApplication.ScreenUpdating = TrueSet s = NothingSet r = NothingEnd Sub

仔細看上面代碼，也不十分理解。

對于整個表格的操作十分方便。

歡迎關(guān)注、收藏

總結(jié)

以上是生活随笔為你收集整理的单元格自适应宽度_Excel如何对表格进行自适应设置，方法很简单的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。