Excel精品教程.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: 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 ‘加粗 Selection.Font.Italic ‘斜体 Selection.Font.Underline XlUnderlineStyle 下划线样式 ‘下划线 XlUnderlineStyle 下划线样式 : xlUnderlineStyleDouble?? ‘双下划线 xlUnderlineStyleDoubleAccounting?? ‘会计用双下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度） xlUnderlineStyleNone?? 没有下划线 xlUnderlineStyleSingle?? ‘单下划线 xlUnderlineStyleSingleAccounting?? ‘会计用单下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度） 3. 设置字体的颜色 Selection.Font.ColorIndex Selection.Font.Color 4. 设置字体的特殊效果 Selection.Font.Strikethrough ‘删除线 Selection.Font.Superscript ‘上标 Selection.Font.