如何将空格分隔的值匹配到Excel对应列名的列中

你好！针对你遇到的这个问题，我给你两个实用的解决方案，完全适配你的Microsoft Office Professional Plus 2019版本：

方法一：公式匹配法（适合少量数据处理） #

假设你的空格分隔值在A1单元格，目标列名在第一行（比如B1到G1分别是2、3、4、5、6、7），可以直接在对应列的单元格中使用以下公式：

1. 在B2单元格（对应列名“2”的位置）输入公式：

=IF(COUNT(FIND(" "&B1&" "," "&$A$1&" "))>0, B1, "")

2. 按住鼠标左键，将B2单元格的填充柄向右拖动到其他列，所有列都会自动匹配并填入对应的值（如果列名存在于A1的空格分隔字符串中）。

原理说明：在字符串前后添加空格，是为了确保匹配的是完整的单个值，避免出现类似把“22”误认为“2”的错误情况。

方法二：VBA宏法（适合批量数据处理） #

如果你需要处理很多行的数据，手动输入公式效率太低，可以用VBA宏自动完成：

1. 按下Alt+F11打开VBA编辑器；
2. 点击菜单栏的「插入」→「模块」，粘贴以下代码：

Sub MatchValuesToColumns()
    Dim ws As Worksheet
    Dim lastCol As Long, lastRow As Long
    Dim valueStr As String
    Dim valueArr As Variant
    Dim i As Integer, j As Integer
    
    Set ws = ActiveSheet ' 这里默认处理当前活动工作表，如需指定工作表可改为Sheets("你的工作表名")
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column ' 获取第一行最后一列的位置
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 获取A列最后一行的位置
    
    ' 遍历每一行数据
    For i = 2 To lastRow
        valueStr = ws.Cells(i, 1).Value ' 假设空格分隔的值在A列
        valueArr = Split(valueStr, " ") ' 按空格拆分字符串为数组
        
        ' 遍历每一列，匹配对应值
        For j = 2 To lastCol
            ws.Cells(i, j).Value = "" ' 先清空单元格
            For Each val In valueArr
                If val = ws.Cells(1, j).Value Then
                    ws.Cells(i, j).Value = val
                    Exit For ' 找到匹配后退出循环，提升效率
                End If
            Next val
        Next j
    Next i
End Sub

3. 回到Excel界面，按下Alt+F8，选择MatchValuesToColumns宏，点击「执行」即可完成批量匹配。

备注：内容来源于stack exchange，提问作者riad