Excel VBA遍历工作表提取工单状态并汇总到单个单元格问题咨询

• 传入的LookupRange固定归属单个工作表，遍历工作表时没有切换到对应表的查询区域，所有循环都在重复查询同一个表的同一片区域，无法拿到其他工作表的匹配结果
• 工作表列表硬编码在数组中，无法自动适配工作簿内的所有工作表，也没有排除主工作表避免无效查询
• 没有做无匹配结果的容错处理，未查到对应工单时Len(Result)-1会变成负数，触发VBA运行错误
• 字符串拼接逻辑冗余，会产生多余的前置空格

默认约定所有工作表的工单编号统一存放在A列，如果你的工单列是其他列，修改代码中Set LookupRange = ws.UsedRange.Columns(1)的数字1为对应列号即可。

Function SingleCellExtract(Lookupvalue As String, StatusColumn As Integer, MainSheetName As String) As String
    Dim i As Long
    Dim Result As String
    Dim ws As Worksheet
    Dim LookupRange As Range
    
    ' 遍历当前工作簿所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过主工作表，避免重复查询
        If ws.Name <> MainSheetName Then
            ' 取当前工作表工单列的所有已使用单元格作为查询范围
            Set LookupRange = ws.UsedRange.Columns(1)
            For i = 1 To LookupRange.Cells.Count
                If LookupRange.Cells(i, 1).Value = Lookupvalue Then
                    ' 匹配到结果后拼接，用顿号分隔，可自行修改为逗号/分号等其他符号
                    If Result <> "" Then Result = Result & "、"
                    Result = Result & LookupRange.Cells(i, StatusColumn).Value
                End If
            Next i
        End If
    Next ws
    
    ' 无匹配结果直接返回空值，不会报错
    SingleCellExtract = Result
End Function

1. 按Alt+F11打开VBA编辑器，右键点击当前工作簿名称，选择「插入」-「模块」，把上面的代码粘贴到模块窗口中，关闭编辑器回到Excel界面
2. 在主工作表的状态汇总单元格输入公式即可，示例：
   主工作表名为「工单总表」，A2单元格是待查询的工单编号，所有工作表的状态都存在B列，公式为：=SingleCellExtract(A2,2,"工单总表")
3. 下拉填充公式即可批量完成所有工单的状态汇总

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