嘿，我懂你这种手动改数据的痛苦！反复删标签、调整格式太费时间了，我给你整了个简单的VBA宏，完全贴合你的需求，而且每一步都给你讲明白，就算VBA新手也能轻松上手~

先给你直接能用的宏代码，之后我会拆解每个部分的作用，方便你理解和调整：

Sub CleanAndFormatData()
    ' 定义变量，方便后续操作
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 替换成你实际要处理的工作表名称，比如"导出数据"
    Set ws = ThisWorkbook.Worksheets("你的工作表名")
    
    ' 选择要处理的单元格范围：这里选A列所有非空的常量单元格
    ' 如果你数据在其他列/范围，改成Range("B2:D1000")这种格式就行
    Set rng = ws.Range("A:A").SpecialCells(xlCellTypeConstants)
    
    ' 遍历每个单元格逐个处理
    For Each cell In rng
        ' 第一步：移除标签（默认处理HTML风格的<xxx>标签，可按需修改）
        Dim regEx As Object
        Set regEx = CreateObject("VBScript.RegExp")
        regEx.Global = True ' 开启全局匹配，移除所有符合规则的标签
        regEx.Pattern = "<[^>]+>" ' 正则规则：匹配所有<开头、>结尾的内容
        
        ' 把标签替换为空字符串，也就是删掉标签
        cell.Value = regEx.Replace(cell.Value, "")
        
        ' 第二步：调整格式为' + 单元格值 + '
        ' 先判断处理后的值不为空，避免生成'' + ''这种无效内容
        If Trim(cell.Value) <> "" Then
            cell.Value = "' + " & cell.Value & " + '"
        End If
    Next cell
    
    ' 处理完成后弹出提示
    MsgBox "数据处理搞定啦！", vbInformation
End Sub

代码细节拆解 #

• 指定工作表：把代码里的"你的工作表名"换成你实际的工作表名称，比如"原始导出数据"，这样宏就知道该处理哪个表了。
• 选择数据范围：ws.Range("A:A").SpecialCells(xlCellTypeConstants)会自动选中A列里所有有实际内容的单元格，跳过空单元格，节省处理时间。如果你的数据在B列到E列的第2行到第1000行，就改成Range("B2:E1000")。
• 移除标签的灵活调整：
  • 如果你的标签是固定文本（比如【系统标签】），可以不用正则，直接把正则那段换成cell.Value = Replace(cell.Value, "【系统标签】", "")，更简单。
  • 如果标签是[xxx]这种格式，把正则的Pattern改成"\[[^\]]+\]"就行。
• 格式调整：用字符串拼接把处理后的值包装成' + 内容 + '的形式，加了Trim(cell.Value) <> ""的判断，防止空单元格生成奇怪的格式。

宏的使用步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器。
2. 在左侧的工作簿列表上右键点击，选择插入→模块。
3. 把上面的代码粘贴到新建的模块里，修改工作表名和数据范围（如果需要）。
4. 按下F5运行宏，或者回到Excel界面，点击开发工具→宏，选中CleanAndFormatData点击执行就行。

小提醒 #

建议先在数据的副本上测试宏，避免误改原始数据哦！如果你的标签格式比较特殊，随时告诉我具体样式，我帮你调整代码~

内容的提问来源于stack exchange，提问作者Grant SDC