Excel技术问询：无分隔符时拆分单元格中Code与Color内容至新列

嘿，这个无分隔符的Code和Color属性拆分问题确实挺头疼的，我给你整理了几个实用的解决方案，你可以根据自己的Excel版本和数据规则来选：

假设你的原始数据在A列，从A2单元格开始：

• 提取Code（B2单元格）：输入以下公式，旧版Excel需按Ctrl+Shift+Enter触发数组计算，新版可直接回车：

  =LEFT(A2,FIND(" ",A2,MAX(IFERROR(FIND({0,1,2,3,4,5,6,7,8,9},A2,ROW($1:$100)),0))+1)-1)
  

• 提取Color（C2单元格）：同样用数组公式（或直接回车）：

  =TRIM(MID(A2,FIND(" ",A2,MAX(IFERROR(FIND({0,1,2,3,4,5,6,7,8,9},A2,ROW($1:$100)),0))+1),100))
  

公式逻辑：先找到单元格内最后一个数字的位置，再定位到该位置后的第一个空格，以此为分界拆分Code和Color。

如果你的Code和Color没有固定的数字/字母区分，或者规则更复杂，自定义VBA函数会更灵活：

1. 按Alt+F11打开VBA编辑器，右键点击左侧项目列表，选择「插入」->「模块」
2. 粘贴以下代码到模块窗口：

   Function SplitCodeColor(cell As Range) As Variant
       Dim parts() As String
       Dim i As Integer
       Dim codePart As String, colorPart As String
       parts = Split(cell.Value, " ")
       
       ' 遍历拆分后的单词，把包含数字的归为Code，剩下的归为Color
       codePart = parts(0)
       For i = 1 To UBound(parts)
           If TextContainsNumber(parts(i)) Then
               codePart = codePart & " " & parts(i)
           Else
               colorPart = parts(i)
               ' 把剩余所有单词拼接成Color
               For i = i + 1 To UBound(parts)
                   colorPart = colorPart & " " & parts(i)
               Next i
               Exit For
           End If
       Next i
       
       SplitCodeColor = Array(codePart, colorPart)
   End Function
   
   ' 辅助函数：判断字符串是否包含数字
   Function TextContainsNumber(text As String) As Boolean
       Dim char As String
       For i = 1 To Len(text)
           char = Mid(text, i, 1)
           If IsNumeric(char) Then
               TextContainsNumber = True
               Exit Function
           End If
       Next i
       TextContainsNumber = False
   End Function
   

3. 返回Excel，在B2单元格输入=SplitCodeColor(A2)(0)获取Code，C2输入=SplitCodeColor(A2)(1)获取Color，下拉填充即可。

如果你的数据量很大，用Power Query批量拆分更高效：

1. 选中原始数据列，点击「数据」选项卡 ->「从表格/区域」（如果提示创建表格，直接确认）
2. 在Power Query编辑器中，点击「添加列」->「自定义列」，输入以下M语言公式（记得把原始列名改成你实际的列名）：

   let
       text = [原始列名],
       words = Splitter.SplitTextByWhitespace()(text),
       codeWords = List.Select(words, each Text.ContainsAny(_, {"0","1","2","3","4","5","6","7","8","9"})),
       colorWords = List.RemoveItems(words, codeWords),
       Code = Text.Combine(codeWords, " "),
       Color = Text.Combine(colorWords, " ")
   in
       [Code=Code, Color=Color]
   

3. 点击「确定」后，点击自定义列右侧的展开按钮，勾选「Code」和「Color」，然后点击「关闭并上载」，拆分好的数据就会导入到新工作表里了。

小贴士：如果你的Code是固定长度的段落（比如示例里是3段：SLV、1234、GGA2），可以直接调整Power Query里的逻辑，用List.FirstN(words,3)提取Code，List.Skip(words,3)提取Color，这样更精准。

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