教程 | Excel的Range用法知多少（下）

21

设置格式

将所选单元格区域中的文本左右对齐方式设为居中。

ActiveSheet.Range("A1:A10").HorizontalAlignment = xlHAlignCenter

ActiveSheet.Range("A1:A10").RowHeight = 36ActiveSheet.Range("A1:A10").VerticalAlignment = xlVAlignCenter

将所选单元格区域的行高设置为36，文本上下对齐方式设为居中

'将所选单元格区域中的文本缩排值加1ActiveSheet.Range("A1:A10").InsertIndent 1'将缩排值恢复ActiveSheet.Range("A1:A10").InsertIndent -1

'将所选单元格中的文本顺时针旋转45度ActiveSheet.Range("A1").Orientation = 45'将文本由横向改为纵向ActiveSheet.Range("A1").Orientation = xlVertical'将文本方向恢复原值ActiveSheet.Range("A1").Orientation = xlHorizontal

'将所选单元格设置为自动换行ActiveSheet.Range("A1").WrapText = True'将比单元格列宽长的文本缩小到能容纳列宽大小ActiveSheet.Range("A1").ShrinkToFit = True

22

设置文本颜色

'在所选单元格区域中将单元格值小于10的单元格中的文本变为红色ActiveSheet.Range("A1:A10").FormatConditions.Add Type:=xlCellValue, _Operator:=xlLessEqual, Formula1:="10"ActiveSheet.Range("A1:A10").FormatConditions(1).Font.ColorIndex = 3'恢复原状ActiveSheet.Range("A1:A10").FormatConditions(1).Font.ColorIndex = xlAutomatic

23

设置批注

'在当前单元格中输入批注ActiveCell.AddComment ("你好")ActiveCell.Comment.Visible = True

24

显示批注

'切换当前单元格批注的显示和隐藏状态ActiveCell.Comment.Visible = Not (ActiveCell.Comment.Visible)

25

设置区域颜色

'将所选单元格的颜色改为红色ActiveSheet.Range("A1:A10").Interior.ColorIndex = 3'将所选单元格的颜色改为蓝色ActiveSheet.Range("A1:A10").Interior.Color = RGB(0, 0, 255)

26

合并单元格

'合并单元格A2:D2,并将文本设为居中对齐Range("A2:D2").SelectWith Selection.MergeCells = True.HorizontalAlignment = xlCenterEnd With

27

限制移动范围

'将单元格的移动范围限制在单元格区域A2:E6中ActiveSheet.ScrollArea = "A2:E6"'解除移动范围限制ActiveSheet.ScrollArea = ""

28

获取地址

'绝对地址Range("A2:C2").Address'行的绝对地址Range("A2:C2").Address(RowAbsolute:=False)'列的绝对地址Range("A2:C2").Address(ColumnAbsolute:=False)'以R1C1形式显示Range("A2:C2").Address(ReferenceStyle:=xlR1C1)'相对地址Range("A2:C2").Address(False, False)

※本示例使所选区域增加一行一列

29

删除操作

'删除单元格区域A1:E10后,右侧的单元格向左移动ActiveSheet.Range("A1:E10").Delete (xlShiftToLeft)