Excel宏常用命令有哪些核心功能？

Excel宏是自动化Excel任务的强大工具，通过VBA（Visual Basic for Applications）代码实现，掌握常用命令能大幅提升工作效率，以下是Excel宏中常用的命令及其应用场景，涵盖操作工作簿、工作表、单元格、数据处理等多个维度。

在VBA中，操作工作簿是最基础的功能之一，使用Workbooks.Add可以创建一个新的工作簿，相当于Excel界面中的“文件>新建”；Workbooks.Open "文件路径"用于打开指定路径的工作簿，若路径中包含中文或空格，需用双引号括起来并确保路径正确；ActiveWorkbook.Save保存当前活动工作簿，ThisWorkbook.Save则保存包含宏的工作簿本身；ActiveWorkbook.Close关闭当前工作簿，可搭配True参数（如ActiveWorkbook.Close True）实现保存后关闭。Workbooks.Count可获取当前打开的工作簿数量,常用于循环遍历所有工作簿。

工作表操作是宏的另一个核心领域。Worksheets.Add用于添加新工作表，可通过Before或After参数指定位置，如Worksheets.Add After:=Worksheets(Worksheets.Count)可在最后添加工作表；Worksheets("工作表名").Delete删除指定工作表，需注意删除前无保存提示时需加Application.DisplayAlerts = False，操作后恢复Application.DisplayAlerts = True；Worksheets("工作表名").Activate激活指定工作表，ActiveSheet.Name可获取或活动工作表名称，例如重命名活动工作表可用ActiveSheet.Name = "新名称"；Worksheets.Count返回工作表总数,适合用于判断工作表是否存在或循环操作。

单元格及区域操作是数据处理的基础。Range("A1").Value = "数据"为单元格赋值，Range("A1:B10").ClearContents清除区域内容（不格式），Range("A1:B10").Clear与格式；Cells(行号, 列号).Value通过行列号操作单元格，如Cells(1,1)等价于Range("A1")，Range("A1:A10").Value = Array("数据1", "数据2", ...)可批量赋值；Selection.Value获取当前选中区域的值，需配合On Error Resume Next避免未选区域时报错；Range("A1").CurrentRegion.Select选中连续数据区域，相当于Ctrl+A；Range("A1").End(xlDown).Select定位到当前列最后一个非空单元格（xlUp为向上，xlToLeft向左，xlToRight向右）。

格式设置命令能美化输出结果。Range("A1:B10").Font.Name = "微软雅黑"设置字体，.Font.Size = 12设置字号，.Font.Bold = True加粗，.Font.Color = RGB(255,0,0)设置字体颜色；Range("A1:B10").Interior.Color = RGB(200,200,200)设置单元格背景色；Range("A1:B10").NumberFormat = "0.00"设置数字格式，如”0.00%”为百分比格式；Columns("A:A").ColumnWidth = 15设置列宽，Rows("1:1").RowHeight = 20设置行高；Range("A1:B10").Borders.LineStyle = xlContinuous添加边框，xlSolid为实线，xlDash为虚线。

数据处理与计算命令是宏的高级功能。Range("A1:A10").AutoFilter Field:=1, Criteria1:=">" & 10对第一列设置自动筛选，条件为大于10；Range("A1:B10").Sort Key1:=Range("A1"), Order1:=xlAscending按A1列升序排序；WorksheetFunction.Sum(Range("A1:A10"))调用工作表函数求和，支持Average、Count、VLookup等，但需注意VLookup等函数在宏中可能因数据类型不匹配报错；Range("A1").Formula = "=SUM(B1:B10")设置单元格公式，公式需用双引号括起；Range("A1:A10").Copy Destination:=Range("C1")复制区域到目标位置，Destination参数指定目标单元格。

循环与判断语句是实现复杂逻辑的关键。For Each cell In Range("A1:A10")循环遍历区域，cell.Value = cell.Value * 2对每个单元格操作；For i = 1 To 10 Step 2循环变量从1到10，步长为2；If Range("A1").Value > 0 Then MsgBox "正数"条件判断，满足条件则弹出提示；Select Case语句适用于多条件判断，如Select Case cell.Value，Case Is < 60，MsgBox "不及格"，Case Else，MsgBox "及格"；Do While Not IsEmpty(ActiveCell)循环直到遇到空单元格,常用于动态数据处理。

错误处理与交互命令提升宏的容错性。On Error Resume Next忽略错误继续执行，On Error GoTo ErrorHandler出错时跳转至指定标签（如ErrorHandler:），Err.Description获取错误信息；InputBox("请输入数据")弹出输入框获取用户输入，赋值给变量；MsgBox "操作完成"弹出提示框，MsgBox "警告", vbExclamation, "标题"可设置图标和标题；Application.ScreenUpdating = False关闭屏幕更新，执行宏后恢复True，可提升运行速度；Application.Calculation = xlCalculationManual设置手动计算，完成后恢复xlCalculationAutomatic。

以下是相关问答FAQs：

Q1: 如何在Excel宏中实现跨工作簿数据复制？
A: 可通过指定工作簿和工作表对象实现，打开源工作簿后，使用Workbooks("源工作簿.xlsx").Worksheets("Sheet1").Range("A1:B10").Copy Destination:=ThisWorkbook.Worksheets("目标表").Range("C1")，其中ThisWorkbook指包含宏的工作簿，需确保源工作簿已打开且路径正确，若需动态获取路径，可用Application.GetOpenFilename让用户选择文件。

Q2: 宏运行时如何避免弹出“文件已存在”等警告提示？
A: 在宏代码开头添加Application.DisplayAlerts = False，执行完毕后恢复Application.DisplayAlerts = True，删除工作表时默认会弹出警告，添加该语句后可直接删除保存；保存文件时若文件名已存在，也会直接覆盖而不提示，但需注意，关闭警告可能导致用户误操作,建议在非关键操作或自动化流程中使用。