摘要：以下是五个非常实用的 Excel 自动化宏，可以显著提升工作效率，特别适合处理重复性任务。这些宏基于常见的 Excel 自动化需求，涵盖了数据清理、格式化、报表生成等场景。以下宏均假设用户已启用“开发工具”选项卡（Developer Tab），并通过 VBA（
以下是五个非常实用的 Excel 自动化宏，可以显著提升工作效率，特别适合处理重复性任务。这些宏基于常见的 Excel 自动化需求，涵盖了数据清理、格式化、报表生成等场景。以下宏均假设用户已启用“开发工具”选项卡（Developer Tab），并通过 VBA（Visual Basic for Applications）实现。每个宏都包含简要说明和代码示例。
用途: 删除工作表中选定区域的空白单元格，并将下方单元格上移，适合快速整理数据集。
Sub DeleteBlankcellsDim rng As RangeOn Error Resume NextSet rng = Application.InputBox("请选择要清理空白单元格的范围", Type:=8)On Error GoTo 0If Not rng Is Nothing Thenrng.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUpMsgBox "空白单元格已删除！", vbInformationElseMsgBox "未选择有效范围！", vbExclamationEnd IfEnd Sub使用方法: 运行宏，选择要清理的范围，宏会自动删除空白单元格并上移数据。
用途: 将选定区域的单元格格式化为货币格式（如美元、人民币），适合财务数据处理。
Sub FormatAsCurrencyDim rng As RangeOn Error Resume NextSet rng = Application.InputBox("请选择要格式化为货币的范围", Type:=8)On Error GoTo 0If Not rng Is Nothing Thenrng.NumberFormat = "￥#,##0.00" ' 可改为其他货币格式，如 "$#,##0.00"MsgBox "已应用货币格式！", vbInformationElseMsgBox "未选择有效范围！", vbExclamationEnd IfEnd Sub使用方法: 运行宏，选择需要格式化的单元格范围，自动应用货币格式。
用途: 根据选定数据快速创建数据透视表，适合快速分析和汇总。
Sub CreatePivotTableDim ws As Worksheet, pws As WorksheetDim rng As Range, pCache As PivotCacheSet ws = ActiveSheetOn Error Resume NextSet rng = Application.InputBox("请选择数据范围（包含标题）", Type:=8)On Error GoTo 0If rng Is Nothing Then Exit SubSet pws = Worksheets.AddSet pCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, rng)pws.PivotTables.Add pCache, pws.Range("A3"), "MyPivotTable"MsgBox "数据透视表已创建！请在新的工作表中配置字段。", vbInformationEnd Sub使用方法: 运行宏，选择包含标题的数据范围，新工作表中会生成空白数据透视表，供用户进一步设置。
用途: 自动高亮显示选定范围内大于零的单元格（如余额），适合财务或库存管理。
Sub HighlightPositiveBalanceDim rng As Range, cell As RangeOn Error Resume NextSet rng = Application.InputBox("请选择要检查余额的范围", Type:=8)On Error GoTo 0If Not rng Is Nothing ThenFor Each cell In rngIf IsNumeric(cell) And cell.Value > 0 Thencell.Interior.Color = vbYellow ' 可改为其他颜色End IfNext cellMsgBox "正余额已高亮！", vbInformationElseMsgBox "未选择有效范围！", vbExclamationEnd IfEnd Sub使用方法: 运行宏，选择数据范围，正值单元格将以黄色高亮。
用途: 将当前工作表导出为 PDF 文件，文件名包含工作表名称和日期时间戳。
Sub PrintToPDFDim ws As WorksheetDim FileName As StringSet ws = ActiveSheetfileName = ws.Name & Format(Now, "_yyyymmdd_hhmmss") & ".pdf"ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:=ThisWorkbook.Path & "\" & fileNameMsgBox "已导出为 PDF: " & fileName, vbInformationEnd Sub使用方法: 运行宏，当前工作表将保存为 PDF 文件，存储在工作簿相同路径下。
启用宏: 保存工作簿为 .xlsm 格式，启用宏功能（File > Options > Trust Center > Macro Settings）。测试宏: 建议在备份文件上测试宏，以防数据意外丢失。安全性: 仅运行来自可信来源的宏，防止潜在恶意代码。相对引用: 录制宏时可启用“使用相对引用”（Use Relative References），以提高宏的灵活性。这些宏简单易用，适合初学者和专业用户，能显著减少重复操作时间。
来源：数据分析精选
