如何通过VBA将星号分隔的文本数据拆分至Excel对应单元格？

方法一：VBA脚本自动处理 #

以下VBA代码可直接将你的星号分隔数据写入当前激活的工作表，自动生成规范表格：

Sub SplitStarDataToSheet()
    Dim rawData As String
    Dim dataRows() As String
    Dim dataCols() As String
    Dim i As Integer, j As Integer
    Dim ws As Worksheet
    
    Set ws = ActiveSheet
    
    ' 替换为你的原始数据（也可修改为从文本文件直接读取）
    rawData = "1* student 1*2018-01-01*1*1234122" & vbCrLf & _
              "2* student 2*2017-01-01*1*54654654234" & vbCrLf & _
              "3* student 3*2015-01-01*4*54234654654" & vbCrLf & _
              "4* student 4*2012-01-01*5*546542345654"
    
    dataRows = Split(rawData, vbCrLf)
    
    ' 写入表头
    ws.Range("A1:E1") = Array("Roll No", "Student Name", "Date of Birth", "class", "phone")
    
    ' 拆分并写入数据
    For i = LBound(dataRows) To UBound(dataRows)
        If Trim(dataRows(i)) <> "" Then
            dataCols = Split(dataRows(i), "*")
            For j = LBound(dataCols) To UBound(dataCols)
                ws.Cells(i + 2, j + 1).Value = Trim(dataCols(j))
            Next j
        End If
    Next i
    
    ' 自动适配列宽
    ws.Columns("A:E").AutoFit
End Sub

使用步骤： #

• 打开目标Excel文件，按Alt+F11打开VBA编辑器
• 右键点击当前工作簿，选择「插入」→「模块」
• 将上述代码粘贴到模块窗口，按F5运行宏

方法二：Excel内置文本分列功能（无需代码） #

如果偏好手动操作，可通过Excel自带功能快速拆分：

1. 将所有星号分隔的字符串逐行粘贴到Excel的A列
2. 选中A列所有数据，切换到数据选项卡，点击「分列」
3. 分列向导第一步选择「分隔符号」，点击「下一步」
4. 勾选「其他」，在输入框中填入*，点击「下一步」
5. 为各列设置格式（如日期列选「日期」，手机号列选「文本」避免科学计数法），点击「完成」
6. 在第一行手动添加表头：Roll No、Student Name、Date of Birth、class、phone

额外处理： #

若拆分后单元格存在多余空格，按Ctrl+H打开替换窗口，查找内容输入空格，替换为空，点击「全部替换」即可清理。

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