[excel教程 2.docVIP

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.Insert Shift:=XlDirection值 Selection.EntireRow.Insert Selection.EntireColumn.Insert ? 例：Selection.Insert Shift:=xlToRight?? ‘在当前选中单元格的位置插入单元格并将当前选中的单元格向右移动 Selection.Insert Shift:=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.???? 设置字体的颜色 Se