编写一个简单的 VBA 宏来自动化处理 Excel 数据后缀

0 阅读2分钟

在办公中,我们经常需要处理大量的 Excel 数据。比如给一批产品编号、订单号或员工 ID 统一添加特定的后缀(如“-”、“_2026”等)。虽然可以使用公式或“快速填充”功能,但这些方法往往需要占用新的列,或者操作步骤繁琐。

今天,简鹿办公将分享一个高效且专业的技巧:利用 VBA 宏直接在原单元格中批量修改数据。我们将以“为所有选中数据后面添加 - 符号”为例,带你掌握这一自动化技能。

目前使用的是 VBA 的方法

1、按 Alt + F11 打开 VBA 编辑器,在菜单栏点击 “插入” -> “模块”。

打开 VBA 编辑器

在弹出的空白窗口中粘贴以下代码:

Sub AddDash()

    Dim cell As Range

    ' 遍历选中的每一个单元格

    For Each cell In Selection

        If cell.Value <> "" Then

            cell.Value = cell.Value & "-"

        End If

    Next cell

End Sub

然后关闭 VBA 窗口,回到 Excel 表格。

2、选中你想要修改的那些数据单元格(例如 MT5785 到 MT5802)。

选择想要替换单元格

按 Alt + F8,选择 AddDash,然后点击 “执行”。完成!原数据直接变成了带横杠的格式。

进行批量重命名

如果你不想加 -,而是想加其他内容(比如 _VIP 或 2026),只需微调代码即可:

将引号内的 - 改为你想要的任何字符。

例如改为 _VIP:cell.Value = cell.Value & "_VIP"

例如改为  (已审核):cell.Value = cell.Value & " (已审核)"

保存后,再次运行宏即可生效。

需要注意的是 VBA 宏直接修改单元格数值,无法通过 Ctrl+Z 撤销。在执行宏之前,建议先备份原始数据,或者确认选中区域无误。

当然,如果你想批量更改文件名或对不同类型的文档、文件夹等进行批量重命名,你也可以使用简鹿文件批量重命名,它支持 Windows 和 Mac 系统,提供了大量且专业的文件批量重命名规则。