VBA 设置Range列宽与行高

VBA有两种方法设置行高与列宽：直接设置区域的宽高、针对行或列设置宽高。

方法1：直接设置Range的列宽与行高

Sub sub5()

  Dim ws As Worksheet
  Set ws = Workbooks.Item("小步教程1.xlsx").Worksheets.Item("Sheet1")
  Dim r As Range
  Set r = ws.Range("A2")

  r.RowHeight = 40  '设置单元格所在行的高度
  r.ColumnWidth = 30 '设置单元格所在列的宽度

End Sub

方法2：通过指定行或列，设置宽高。

Sub sub5_2()

  Dim ws As Worksheet
  Set ws = Workbooks.Item("小步教程1.xlsx").Worksheets.Item("Sheet1")
  Dim r As Range
  Set r = ws.Range("A2")

  r.Rows(2).RowHeight = 40    '设置指定行的高度
  r.Columns(1).ColumnWidth = 30  '设置指定列的宽度

End Sub

❮上一节 VBA 设置Range样式下一节 VBA Range 常用操作❯

第08章 VBA Excel对象

VBA 设置Range列宽与行高

VBA 教程