每天重复合并单元格、调整格式、计算数据？今天教你用Excel自带的"魔法棒"——宏和VBA，把3小时的工作变成3秒钟！无需编程基础，看完就能上手。
一、宏是什么？办公室里的"录音机"
想象你有一台可以记录鼠标和键盘操作的录音机——这就是“宏（Macro）”。
场景重现：
每天早上都要把A列姓名和B列电话合并成"张三 138-1234"，手动操作需要：
1. 插入新列
2. 输入=A2&" "&B2
3. 下拉填充公式
4. 设置单元格颜色
录制宏：
① 点击【开发工具】-【录制宏】（找不到？在文件-选项-自定义功能区开启）
② 取名"合并信息" 按快捷键Ctrl+Shift+M
③ 正常操作一遍上述步骤
④ 点击停止按钮
现在按下Ctrl+Shift+M，1秒完成所有操作！
二、VBA：打开自动化的"魔法书"
宏的本质是自动生成的VBA代码。按Alt+F11打开神秘代码库，你会看到类似这样的文字：vba
Sub 合并信息()
Columns("C:C").Insert
Range("C2").FormulaR1C1 = "=RC[-2]&"" ""&RC[-1]"
Range("C2").AutoFill Destination:=Range("C2:C10")
Range("C:C").Interior.Color = RGB(255, 255, 0)
End Sub
解读代码：
- `Columns("C:C").Insert` → 在C列插入新列
- `RC[-2]` → 当前行向左2列（A列）
- `RGB(255,255,0)` → 黄色背景
动手改造：
把`.AutoFill Destination:=Range("C2:C10")`改为`Range("C2").AutoFill Destination:=Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row)`
这个改动会让公式自动填充到A列最后一行，数据量变化也不怕！
三、真实案例：日报表自动处理
需求：
每天收到20个分公司的Excel报表，需要：
1. 删除前3行说明
2. 将D列数字转为万元单位
3. 标记超100万的数据
**VBA解决方案：**
vba
Sub 处理日报()
' 删除行
Rows("1:3").Delete Shift:=xlUp
' 转换单位
LastRow = Cells(Rows.Count, "D").End(xlUp).Row
Range("D2:D" & LastRow).Value = "=ROUND(D2/10000,1)"
' 条件格式
Range("D2:D" & LastRow).FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="100"
Range("D2:D" & LastRow).FormatConditions(1).Interior.Color = vbRed
End Sub
运行后，原本需要30分钟的手工操作变成3秒自动完成。
四、重要提示（避坑指南）
1. 文件保存：必须存为**.xlsm**格式（启用宏的工作簿）
2. 安全警告：首次打开需点击"启用内容"（可在信任中心设置白名单）
3. 代码备份：修改前右键模块选择【导出文件】备份
4. 谨慎操作：可在测试文件练习，避免误删数据
结语：
宏就像智能家居遥控器，VBA则是可以自定义的编程开关。从今天开始，试着把重复操作交给Excel自己完成。当同事惊叹"你怎么下班这么早"时，你可以笑着说："因为我有魔法呀~"
（本文案例均为原创设计，转载请注明出处）
下期预告：
《VBA高效开发：用用户窗体打造个性化数据录入工具，突破传统表格限制！》
点击关注不错过！