如何将单个单元格的特定文本内容拆分至多个对应单元格？

因为杆信息格式多变，纯公式很难覆盖所有场景，下面提供**公式方案（适配多数常见场景）和VBA方案（鲁棒性更强）**两种解决办法：

一、公式方案（逐列提取） #

假设「Pole Info」数据在B列，从第2行开始，以下公式分别对应各目标列：

1. 杆类型（格式化为XXX/XX） #

提取第一块文本中的前5位数字并格式化：

=TEXT(MID(B2,MIN(FIND({0,1,2,3,4,5,6,7,8,9},B2&"0123456789")),5),"000\/00")

2. 挠度值（Flex Number） #

优先提取带小数点的内容，若小数点在第一块文本内则提取对应数字部分：

=IF(ISNUMBER(SEARCH(".",LEFT(B2,FIND(" ",B2)-1))),MID(LEFT(B2,FIND(" ",B2)-1),MIN(FIND({0,1,2,3,4,5,6,7,8,9},LEFT(B2,FIND(" ",B2)-1)&"0123456789")),LEN(LEFT(B2,FIND(" ",B2)-1))-MIN(FIND({0,1,2,3,4,5,6,7,8,9},LEFT(B2,FIND(" ",B2)-1)&"0123456789"))+1),INDEX(FILTERXML("<t><s>"&SUBSTITUTE(B2," ","</s><s>")&"</s></t>","//s[contains(., '.')]"),1))

3. 绘图代码 #

提取非纯数字的第二块内容（适配字母+数字、纯字母等格式）：

=INDEX(FILTERXML("<t><s>"&SUBSTITUTE(B2," ","</s><s>")&"</s></t>","//s[not(number(.))]"),2)

4. 重量 #

提取最后一个纯数字块（排除带小数点的挠度值）：

=INDEX(FILTERXML("<t><s>"&SUBSTITUTE(B2," ","</s><s>")&"</s></t>","//s[number(.) and not(contains(., '.'))]"),COUNTA(FILTERXML("<t><s>"&SUBSTITUTE(B2," ","</s><s>")&"</s></t>","//s[number(.) and not(contains(., '.'))]")))

5. 是否有瑕疵（Is blemish） #

不区分大小写判断是否包含BLEMISH：

=IF(ISNUMBER(SEARCH("BLEMISH",B2)),"Yes","No")

6. 是否报废（Is Scrap） #

不区分大小写判断是否包含SCRAP：

=IF(ISNUMBER(SEARCH("SCRAP",B2)),"Yes","No")

二、VBA方案（适配所有格式变体） #

如果公式还是无法覆盖复杂格式，用VBA宏批量处理更可靠：

步骤1：添加宏代码 #

1. 打开Excel文件，按Alt+F11打开VBA编辑器
2. 右键点击左侧工程窗口的工作表名，选择「插入」→「模块」
3. 粘贴以下代码：

Sub SplitPoleInfo()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim poleInfo As String
    Dim parts() As String
    Dim poleType As String, flexNum As String
    Dim drawingCode As String, weight As String
    Dim isBlemish As String, isScrap As String
    Dim digitStart As Integer, digitStr As String
    
    ' 替换为你的目标工作表名，比如"ThisWorkbook.Worksheets("杆信息")"
    Set ws = ActiveSheet
    ' 假设Pole Info在B列，获取最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 从第2行开始遍历（第1行是表头）
    For i = 2 To lastRow
        poleInfo = UCase(ws.Cells(i, "B").Value)
        parts = Split(poleInfo, " ")
        isBlemish = "No"
        isScrap = "No"
        
        ' 处理末尾的瑕疵/报废标记
        If UBound(parts) >= 0 Then
            Select Case parts(UBound(parts))
                Case "BLEMISH"
                    isBlemish = "Yes"
                    ReDim Preserve parts(UBound(parts) - 1)
                Case "SCRAP"
                    isScrap = "Yes"
                    ReDim Preserve parts(UBound(parts) - 1)
            End Select
        End If
        
        ' 提取杆类型：第一部分的前5位数字
        digitStart = 0
        For j = 1 To Len(parts(0))
            If IsNumeric(Mid(parts(0), j, 1)) Then
                digitStart = j
                Exit For
            End If
        Next j
        poleType = IIf(digitStart > 0, Left(Mid(parts(0), digitStart, 5), 3) & "/" & Right(Mid(parts(0), digitStart, 5), 2), "")
        
        ' 提取挠度值：找带小数点的项，或第一部分内的小数
        flexNum = ""
        For j = 0 To UBound(parts)
            If InStr(parts(j), ".") > 0 Then
                flexNum = parts(j)
                Exit For
            End If
        Next j
        If flexNum = "" And InStr(parts(0), ".") > 0 Then
            flexNum = Mid(parts(0), digitStart)
        End If
        
        ' 提取绘图代码：排除纯数字、挠度值的非首项
        drawingCode = ""
        For j = 1 To UBound(parts)
            If Not IsNumeric(parts(j)) And parts(j) <> flexNum Then
                drawingCode = parts(j)
                Exit For
            End If
        Next j
        
        ' 提取重量：最后一个纯数字且非挠度的项
        weight = ""
        For j = UBound(parts) To 0 Step -1
            If IsNumeric(parts(j)) And parts(j) <> flexNum Then
                weight = parts(j)
                Exit For
            End If
        Next j
        
        ' 写入对应列（可根据你的表头位置修改列号）
        ws.Cells(i, "C").Value = poleType ' 杆类型列
        ws.Cells(i, "D").Value = flexNum ' 挠度值列
        ws.Cells(i, "E").Value = drawingCode ' 绘图代码列
        ws.Cells(i, "F").Value = weight ' 重量列
        ws.Cells(i, "G").Value = isBlemish ' 是否有瑕疵列
        ws.Cells(i, "H").Value = isScrap ' 是否报废列
    Next i
End Sub

步骤2：运行宏 #

1. 修改代码中的工作表名和列对应关系（比如你的杆类型在G列，就把ws.Cells(i, "C")改成ws.Cells(i, "G")）
2. 回到Excel界面，按Alt+F8，选择SplitPoleInfo宏点击「运行」即可批量拆分所有数据

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