VBA代码修改请求：实现资源对应任务的横向列表生成

问题说明 #

原代码存在以下核心问题导致输出不符合预期：

• 错误在Table1的A列（主任务列）搜索资源，实际资源分配在C、D、E列
• 输出逻辑错误，所有结果都写入B列，未按资源横向扩展到对应列
• 未处理Table1中主任务的合并单元格，无法正确获取主任务名称
• 遍历整列A:A效率低下，且会处理大量空行

修正后的代码 #

Sub SearchResourceNames()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim tbl1 As ListObject, tbl2 As ListObject
    Dim resourceRow As Range, taskRow As Range
    Dim resourceName As String
    Dim outputCol As Long, outputRow As Long
    Dim foundFlag As Boolean
    Dim mainTask As String, subTask As String
    
    ' 设置工作表（保留原工作表分离的设置）
    Set ws1 = ThisWorkbook.Sheets("Table1")
    Set ws2 = ThisWorkbook.Sheets("Table2")
    
    ' 使用ListObject操作结构化表格，适配动态行数
    Set tbl1 = ws1.ListObjects("Table1") ' 确保Table1是正式的Excel表格（插入-表格）
    Set tbl2 = ws2.ListObjects("Table2") ' 确保Table2是正式的Excel表格
    
    ' 遍历Table2中的每个资源（从第2行开始，跳过表头）
    For Each resourceRow In tbl2.ListRows
        resourceName = resourceRow.Range(1).Value
        outputCol = resourceRow.Index + 1 ' 资源所在行对应的输出列（B列开始）
        outputRow = 2 ' 输出从第2行开始（跳过表头）
        foundFlag = False
        
        ' 清空当前资源列的旧数据
        ws2.Range(ws2.Cells(2, outputCol), ws2.Cells(ws2.Rows.Count, outputCol)).ClearContents
        
        ' 遍历Table1的每一行任务
        For Each taskRow In tbl1.ListRows
            ' 检查当前任务行的C、D、E列是否包含当前资源
            If taskRow.Range(3).Value = resourceName Or _
               taskRow.Range(4).Value = resourceName Or _
               taskRow.Range(5).Value = resourceName Then
                
                foundFlag = True
                ' 处理合并的主任务单元格：如果当前单元格是合并单元格的一部分，取合并区域的第一个值
                If taskRow.Range(1).MergeCells Then
                    mainTask = taskRow.Range(1).MergeArea.Cells(1).Value
                Else
                    mainTask = taskRow.Range(1).Value
                End If
                subTask = taskRow.Range(2).Value
                
                ' 输出主任务+子任务到对应列
                ws2.Cells(outputRow, outputCol).Value = mainTask & " - " & subTask
                outputRow = outputRow + 1
            End If
        Next taskRow
        
        ' 如果未找到该资源的任务，弹出提示（可选）
        If Not foundFlag Then
            MsgBox "资源 " & resourceName & " 未分配任何任务。"
        End If
    Next resourceRow
    
    MsgBox "任务匹配完成！"
End Sub

关键修改点 #

• 使用结构化表格（ListObject）：适配动态行数，无需手动指定范围，自动识别表格边界
• 修正资源搜索范围：改为在Table1的C、D、E列（对应ListRow的第3、4、5列）搜索资源
• 实现横向输出逻辑：每个资源对应Table2中自身行的右侧列（如A2的资源输出到B列，A3的资源输出到C列）
• 处理合并单元格：通过MergeCells属性判断，正确获取合并的主任务名称
• 优化性能：仅遍历表格数据行，避免空行，提前清空旧数据防止残留
• 输出格式优化：将主任务与子任务合并为主任务 - 子任务的格式，更清晰

使用注意事项 #

1. 确保Table1和Table2是Excel的正式结构化表格（通过插入→表格创建，而非普通单元格区域），否则需修改代码为使用普通单元格范围的逻辑
2. 若不需要合并主任务与子任务的格式，可单独拆分输出到多列

内容的提问来源于stack exchange，提问作者Thembelihle Sindiswa Sithole