Excel精品宏教程

【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).SelectActiveCell.FormulaR1C1=NameRange(B1).SelectActiveCell.FormulaR1C1=AgeRange(A2:B3).SelectRange(A2).ActivateActiveCell.FormulaR1C1=BUGRange(B2).ActivateActiveCell.FormulaR1C1=12Range(A3).ActivateActiveCell.FormulaR1C1=ArcherRange(B3).ActivateActiveCell.FormulaR1C1=37五、得到指定单元格中的值Range(单元格地址).Text六、插入单元格Selection.InsertShift:=XlDirection值Selection.EntireRow.InsertSelection.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=152.设置字体样式Selection.Font.Bold=True/False‘加粗Selection.Font.Italic=True/False‘斜体Selection.Font.Underline=XlUnderlineStyle(下划线样式)‘下划线XlUnderlineStyle(下划线样式):xlUnderlineStyleDouble‘双下划线xlUnderlineStyleDoubleAccounting‘会计用双下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）xlUnderlineStyleNone没有下划线xlUnderlineStyleSingle‘单下划线xlUnderlineStyleSingleAccounting‘会计用单下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）3.设置字体的颜色Selection.Font.ColorIndex=0到56之间的数字Selection.Font.Color=RGB值4.设置字体的特殊效果Selection.Font.Strikethrough=True/False‘删除线Selection.Font.Superscript=True/False‘上标Selection.Font.Subscript=True/False‘下标八、清空选中单元格里的内容Selection.ClearContents例：Range(“A1:A2,B7,2:2”).Select‘选中“A1”、“A2”、“B7”五个不连续的单元格和第二行Selection.ClearContents‘清空“A1”、“A2”、“B7”五个不连续单元格中的所有内容九、设置选中单元格的边线属性XlBordersIndex(边线):xlEdgeLeft'单元格左边线xlEdgeTop‘单元格上边线xlEdgeRight‘单元格右边线xlEdgeBottom‘单元格下边线xlDiagonalDown‘单元格左上右下斜线xlDiagonalUp‘单元格左上右下斜线xlInsideVertical‘多个单元格内垂直线xlInsideHorizontal‘多个单元格内水平线1.设置边线的类型Selection.Borders(边线).LineStyle=XlLineStyle(边线类型)XlLineStyle(边线类型):xlLineStyleNone‘无样式xlContinuous‘单线xlDash‘破折号线(间隔线)xlDashDot‘破折号点线xlDashDotDot‘破折号点点线xlDot‘点线xlDouble‘双横线xlSlantDashDot‘斜点线2.设置边线的宽度Selection.Borders(边线).Weight=XlBorderWeight(边线的宽度值)XlBorderWeight(宽度值):xlHairline‘极细xlThin‘细xlMedium‘中等xlThick‘粗3.设置边线的颜色Selection.Borders(xlEdgeLeft).ColorIndex=0到56之间的数字Selection.Borders(xlEdgeLeft).Color=RGB值十、删除选中的单元格Selection.DeleteXlDirection值Selection.EntireRow.DeleteSelection.EntireColumn.Delete例：Selection.DeleteShift:=xlToLeft‘删除选中的单元格,并将已删除单元格所在位置右面的单元格向左移动Selection.DeleteShift:=xlUp‘删除选中的单元格,并将已删除单元格所在位置下面的单元格向上移动Selection.EntireRow.Delete‘删除选中单元格所在的行Selection.EntireColumn.Delete‘删除选中单元格所在的列十一、设置单元格背景色及图案1.背景色Selection.Interior.ColorIndex=0到56之间的数字Selection.Interior.Color=RGB值2.图案样式Selection.Interior.Pattern=Constants(图案样式)Constants(图案样式):xlSolid'实心xlGray75'75%灰色xlGray50'50%灰色xlGray25'25%灰色xlGray16'12.5%灰色xlGray8'6.25%灰色xlHorizontal'水平条纹xlVertical'垂直条纹xlDown'逆对角线条纹xlUp'对角线条纹xlChecker'对角线剖面线xlSemiGray75'粗对角线剖面线xlLightHorizontal'细水平条纹xlLightVertical'细垂直条纹xlLightDown'细逆对角线条纹xlLightUp'细对角线条纹xlGrid'细水平剖面线xlCrissCross'细对角线剖面线3.图案颜色Selection.Interior.PatternColorIndex=0到56之间的数字Selection.Interior.PatternColor=RGB值十二、返回工作表中的行数Sheet1.UsedRange.Rows.Count‘返回从最小已输入内容的行号到最大已输入内容的行号之间的行数Sheet1.UsedRange.Rows(Sheet1.UsedRange.Rows.Count).Row‘最大已输入内容的行号十三、得到当前EXCEL的文件名ThisWorkbook.Path‘文件路径ThisWorkbook.Name‘文件名ThisWorkbook.FullName‘全路径十四、批注的操作1.添加批注AddComment([Content])例：Range(A1).AddComment(Writesthecontentinhere!)2.修改批注内容Comment.Text例：Range(B1).Comment.TextText:=Writesthecontentinhere!3.显示/隐藏批注Comment.Visible=True/False4.删除批注ClearComments例：Selection.Range(B1).ClearComments5.选中批注Comment.Shape.SelectTrue例：Range(D8).Comment.Shape.SelectTrue6.改变批注大小和位置Selection.ShapeRange.ScaleWidth宽度比例,msoFalse,MsoScaleFromSelection.ShapeRange.ScaleHeight高度比例,msoFalse,MsoScaleFrom例：Selection.ShapeRange.ScaleWidth1.5,msoFalse,msoScaleFromTopLeft‘每次增加5%的宽度Selection.ShapeRange.ScaleHeight0.6,msoFalse,msoScaleFromTopLeft‘每次减少6%的宽度Selection.ShapeRange.Left=左边距Selection.ShapeRange.Top=上边距Selection.ShapeRange.Width=宽度值Selection.ShapeRange.Height=高度值十五、剪切、复制、粘贴Selection.Cut‘剪切Selection.Copy‘复制ActiveSheet.Paste‘粘贴例：Range(A1).SelectSelection.CutRange(A2).SelectActiveSheet.PasteSelection.CopyRange(A3).SelectActiveSheet.Paste十六、选择性粘贴Selection.PasteSpecialoption十七、改变列宽Selection.ColumnWidth=宽度值‘指定列宽例：Columns(A:A).SelectSelection.ColumnWidth=30‘改变已选列的宽度EntireColumn.AutoFit‘自动改变列宽例：Columns(C:C).EntireColumn.AutoFit‘根据C列的内容自动改变列的宽度在Excel97中，宏是一个难以理解的概念，但对于一个具体的宏而言，却是容易理解的，如果说将一块文字变为注释：黑体注释：，字号为注释：三