日常工作中，我们经常遇到这样的需求：
   需要把单元格里的文字拆分成一个一个的字符，并且用逗号隔开。
   比如把“ABCD”变成“A,B,C,D”。

可能你会说：这还不简单？用分列功能加用连接函数都能实现。但如果数据有几千行，而且需要反复操作呢？

典型的场景是——题库处理。很多考试系统导入题目时，要求答案格式必须是“A,B,C,D”这种带逗号的模板。手动改几千道题？

别急，今天给大家带来一段VBA代码，不仅能一键拆分，还能自由选择数据列、自定义分隔符、自定义结果存放位置，彻底告别机械劳动！

📂 示例文件下载

👉 在公众号后台回复 “260214” 获取下载链接 
（示例文件包含原始数据和已经写好的宏，下载后直接启用宏即可使用）

🔧 代码怎么用？

这段代码的操作逻辑非常人性化，运行后会依次弹出三个对话框：

1️⃣ 选择数据列——点击任意单元格，程序会自动识别列号
2️⃣ 输入数据起始行——比如从第2行开始处理
3️⃣ 输入分隔符——默认是逗号，你也可以改成“-”、“/”等
4️⃣ 选择结果存放列——点一个单元格确定列位置
5️⃣ 输入结果起始行——从第几行开始放结果

全部设置好之后，一键运行，成千上万行数据瞬间处理完成！

Option Explicit

Sub SplitTextWithComma2()
    Dim dataCol As Long
    Dim dataStartRow As Long
    Dim varDataLastRow As Long
    Dim resultCol As Long
    Dim resultStartRow As Long
    Dim delimiter As String
    Dim selectedRange As Range
    Dim cell As Range
    Dim resultCell As Range
    Dim strText As String
    Dim arrChars() As String
    Dim i As Integer
    Dim dataRow As Long
    Dim resultRow As Long

    ' ========== 第一步：选择数据列 ==========
    On Error Resume Next
    Set selectedRange = Application.InputBox( _
        Prompt:="请选择数据列（单击任一单元格或区域，程序将使用其列号）" & vbCrLf & _
                "例如：单击C列任意单元格 或 选择C1:C10", _
        Title:="选择数据列", Type:=8)
    On Error GoTo 0
    If selectedRange Is Nothing Then Exit Sub   ' 用户取消

    ' 检查所选区域是否为单列
    If selectedRange.Columns.Count > 1 Then
        MsgBox "只能选择一列数据！", vbExclamation, "错误"
        Exit Sub
    End If

    dataCol = selectedRange.Column   ' 获取数据列号

    ' 输入数据起始行号（默认取所选区域的第一行）
    dataStartRow = Application.InputBox( _
        Prompt:="请输入数据起始行号（例如 2）" & vbCrLf & _
                "程序将从该行开始向下处理，直到该列最后一个非空单元格。", _
        Title:="数据起始行", Default:=selectedRange.Row, Type:=1)
    If dataStartRow = 0 Then Exit Sub   ' 用户取消或输入0取消

    ' 获取数据列的最后非空行号
    varDataLastRow = Cells(Rows.Count, dataCol).End(xlUp).Row
    If dataStartRow > varDataLastRow Then
        MsgBox "起始行大于最后非空行，无数据可处理！", vbExclamation, "错误"
        Exit Sub
    End If

    ' ========== 第二步：自定义分隔符 ==========
    delimiter = InputBox("请输入分隔符（默认为逗号）", "自定义分隔符", ",")
    If delimiter = "" Then delimiter = ","   ' 用户取消或清空时使用默认值

    ' ========== 第三步：选择结果列起始位置 ==========
    On Error Resume Next
    Set selectedRange = Application.InputBox( _
        Prompt:="请选择结果列的起始位置（单击一个单元格，程序将使用其列号）" & vbCrLf & _
                "例如：单击D1，结果将从D列指定行开始存放。", _
        Title:="选择结果起始单元格", Type:=8)
    On Error GoTo 0
    If selectedRange Is Nothing Then Exit Sub

    resultCol = selectedRange.Column   ' 获取结果列号

    ' 输入结果起始行号（默认取所选单元格的行号）
    resultStartRow = Application.InputBox( _
        Prompt:="请输入结果起始行号（例如 5）" & vbCrLf & _
                "程序将从该行开始依次存放结果。", _
        Title:="结果起始行", Default:=selectedRange.Row, Type:=1)
    If resultStartRow = 0 Then Exit Sub

    ' ========== 执行处理 ==========
    Application.ScreenUpdating = False

    ' 循环数据区域（从 dataStartRow 到 varDataLastRow）
    For dataRow = dataStartRow To varDataLastRow
        strText = Trim(Cells(dataRow, dataCol).Value)

        ' 仅处理非空单元格
        If Len(strText) > 0 Then
            ' 将字符串拆分为字符数组
            ReDim arrChars(Len(strText) - 1)
            For i = 1 To Len(strText)
                arrChars(i - 1) = Mid(strText, i, 1)
            Next i

            ' 计算对应的结果行号
            resultRow = resultStartRow + (dataRow - dataStartRow)

            ' 写入结果
            Cells(resultRow, resultCol).Value = Join(arrChars, delimiter)
        End If
    Next dataRow

    Application.ScreenUpdating = True
    MsgBox "处理完成！结果已生成在指定列。", vbInformation, "完成"
End Sub

💡 核心亮点

✅ 灵活性超高：数据可以从任意行开始，结果也可以存到任意行的任意列
✅ 分隔符可自定义：不一定是逗号，想要空格、竖线、分号都可以
✅ 智能识别数据范围：自动从起始行处理到该列最后一个非空单元格
✅ 防错机制完善：选了多列会提示，数据区域为空会退出

有了这段代码，以后再遇到格式转换类的工作，再也不用一个一个手动改了。

⭐ 重要提醒

由于微信公众号平台更改了推送规则，如果你希望每天准时收到Excel每日一学的分享，记得：

✅ 关注公众号
✅ 设为星标⭐
✅ 看完文章点个【在看】
✅ 转发给更多需要的朋友

这样才能第一时间收到推送，不错过每一篇干货！

今日互动：你在工作中遇到过哪些需要批量处理的场景？欢迎在评论区留言，我会挑选典型问题在下期文章中解答~