咨询：用Excel多IF语句或宏拆分赛事报名数据至导入模板

看来你已经在尝试用SEARCH+IF的思路拆分赛事报名数据了，这个方向完全没问题！下面给你两种更高效的方案，分别对应公式法和宏（VBA）法，帮你快速达成你标注的目标效果：

如果你的Excel版本支持SWITCH函数（Office 365/2021及以上），可以用更简洁的写法替代多层嵌套IF，可读性和维护性更强：

提取单个属性的公式示例 #

假设你要从G列提取第一个属性（比如包含Production/Design/Marketing/HR这几种取值），在H12单元格输入：

=SWITCH(TRUE,
  ISNUMBER(SEARCH("Production", G12)), "Production",
  ISNUMBER(SEARCH("Design", G12)), "Design",
  ISNUMBER(SEARCH("Marketing", G12)), "Marketing",
  ISNUMBER(SEARCH("HR", G12)), "HR",
  ""
)

如果是Excel 2019及更早版本，用嵌套IF也能实现：

=IF(ISNUMBER(SEARCH("Production", G12)), "Production",
  IF(ISNUMBER(SEARCH("Design", G12)), "Design",
    IF(ISNUMBER(SEARCH("Marketing", G12)), "Marketing",
      IF(ISNUMBER(SEARCH("HR", G12)), "HR", "")
    )
  )
)

批量处理三列属性 #

针对另外两个属性，只需要复制上述公式，替换对应的关键词集合即可（比如把Production换成Team A/Team B，或者Advanced/Beginner等），然后下拉填充整个数据区域。

如果数据量很大，手动下拉公式太麻烦，用VBA宏可以一键完成所有拆分工作：

宏代码示例 #

Sub SplitRegistrationAttributes()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim cellContent As String
    Dim attr1 As String, attr2 As String, attr3 As String
    
    ' 替换成你的目标工作表名称
    Set ws = ThisWorkbook.Worksheets("赛事报名数据")
    ' 获取G列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
    
    ' 遍历所有数据行（假设第1行是表头，从第2行开始处理）
    For i = 2 To lastRow
        cellContent = ws.Cells(i, "G").Value
        ' 初始化属性为空
        attr1 = ""
        attr2 = ""
        attr3 = ""
        
        ' ===== 提取第一个属性（根据你的实际取值修改关键词）=====
        If InStr(1, cellContent, "Production", vbTextCompare) > 0 Then
            attr1 = "Production"
        ElseIf InStr(1, cellContent, "Design", vbTextCompare) > 0 Then
            attr1 = "Design"
        ElseIf InStr(1, cellContent, "Marketing", vbTextCompare) > 0 Then
            attr1 = "Marketing"
        ElseIf InStr(1, cellContent, "HR", vbTextCompare) > 0 Then
            attr1 = "HR"
        End If
        
        ' ===== 提取第二个属性（修改为你的实际属性取值）=====
        If InStr(1, cellContent, "Team A", vbTextCompare) > 0 Then
            attr2 = "Team A"
        ElseIf InStr(1, cellContent, "Team B", vbTextCompare) > 0 Then
            attr2 = "Team B"
        ElseIf InStr(1, cellContent, "Team C", vbTextCompare) > 0 Then
            attr2 = "Team C"
        End If
        
        ' ===== 提取第三个属性（修改为你的实际属性取值）=====
        If InStr(1, cellContent, "Advanced", vbTextCompare) > 0 Then
            attr3 = "Advanced"
        ElseIf InStr(1, cellContent, "Beginner", vbTextCompare) > 0 Then
            attr3 = "Beginner"
        ElseIf InStr(1, cellContent, "Intermediate", vbTextCompare) > 0 Then
            attr3 = "Intermediate"
        End If
        
        ' 将提取的属性写入对应列（H、I、J列，可根据需求调整）
        ws.Cells(i, "H").Value = attr1
        ws.Cells(i, "I").Value = attr2
        ws.Cells(i, "J").Value = attr3
    Next i
    
    MsgBox "属性拆分完成！"
End Sub

宏使用步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器；
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」；
3. 将上述代码粘贴到模块窗口中，修改工作表名称和属性关键词为你的实际内容；
4. 按下F5运行宏，或者回到Excel界面，点击「开发工具」→「宏」，选择SplitRegistrationAttributes执行即可。

• 关键词优先级：如果某个单元格同时包含多个属性的关键词（比如"Production Team A"），要确保判断顺序正确，避免提取错误；
• 大小写忽略：代码和公式里的SEARCH、vbTextCompare都是忽略大小写的，如果需要严格区分大小写，换成FIND或者去掉vbTextCompare；
• 版本兼容：如果你的Excel版本不支持SWITCH，直接用嵌套IF公式即可。

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