excel宏教程.pdf

Excel宏教程

一、选中单个单元格

Range(“<单元格地址>“).Select

例：Range("C9").Select‘选中“C9”单元格

二、选中多个单元格

Range(“<单元格地址>:<单元格地址>[,<单元格地址>……]”).Select

例：Range(“A1:B2”).Select‘选中“A1”、“A2”、“B1”、“B2”四个连续的单元格

Range(“12:12”).Select‘选中第12行

Range(“B:B”).Select‘选中第B列

Range(“A1:A2,B7,2:2”).Select‘选中“A1”、“A2”、“B7”五个不连续的单元格和第二行

Cells.Select‘选中当前SHEET中的所有单元格

Rows("<行地址>:<行地址>").Select‘选中整行

Columns("<列地址>:<列地址>").Select‘选中整列

例：Rows(“2:2”).Select‘选中第2行

Rows(“2:5”).Select‘选中2到5行

Columns("A:A").Select‘选中A列

Columns("E:B").Select‘选中E到B列

三、设置活动单元格

Range("<单元格地址>").Activate

注：设置活动单元格与选中单元格类似，不同之处就是
后者在选中指定的单元格之前会将在此前已被选中的单元格取消掉。
前者在设置之前不会取消已选中的单元格，

如果此时操作的单元格不是被选中的单元格，这时他实现的功能与选一个单元格相同。

四、给活动的单元格赋值

ActiveCell.FormulaR1C1=<值>

例：Range("A1").Select

ActiveCell.FormulaR1C1="Name"

Range("B1").Select

ActiveCell.FormulaR1C1="Age"

Range("A2:B3").Select

Range("A2").Activate

ActiveCell.FormulaR1C1="BUG"

Range("B2").Activate

ActiveCell.FormulaR1C1="12"

Range("A3").Activate

ActiveCell.FormulaR1C1="Archer"

Range("B3").Activate

ActiveCell.FormulaR1C1="37"

五、得到指定单元格中的值

Range("<单元格地址>").Text

六、插入单元格

Selection.InsertShift:=<XlDirection值>

Selection.EntireRow.Insert

Selection.EntireColumn.Insert

例：Selection.InsertShift:=xlToRight‘在当前选中单元格的位置插入单元格并将当前选中
的单元格向右移动

Selection.InsertShift:=xlDown‘在当前选中单元格的位置插入单元格并将当前选中的单
元格向下移动

Selection.EntireRow.Insert‘在当前选中单元格的上面插入一行

Selection.EntireColumn.Insert‘在当前选中单元格的左侧插入一列

七、设置字体属性

1.设置字体名称和大小

Selection.Font.Name=<字体名称>

Selection.Font.Size=<字号>

例：Selection.Font.Name="隶书"

Selection.Font.Size=15

2.设置字体样式

Selection.Font.Bold=<True/False>‘加粗
Selection.Font.Italic=<True/False>‘斜体

Selection.Font.Underline=<XlUnderlineStyle(下划线样式)>‘下划线

XlUnderlineStyle(下划线样式):

xlUnderlineStyleDouble‘双下划线

xlUnderlineStyleDoubleAccounting‘会计用双下划线（如果当前单元格中的数据是数字时
则下划线的宽度是当前单元格的宽度）

xlUnderlineStyleNone没有下划线

xlUnderlineStyleSingle‘单下划线

xlUnderlineStyleSingleAccounting‘会计用单下划线（如果当前单元格中的数据是数字时则
下划线的宽度是当前单元格的宽度）

3.设置字体的颜色

Selection