Excel VBA开发求助：同类别用户异常值多行列查找与结果记录

你的需求核心是按类别批量校验指定用户是否为异常值，异常判定规则清晰：若用户ID或用户ID+1完全不在对应类别的数据区域中，标记为「异常值」，否则为「非异常值」，且需要对所有类别循环执行该逻辑。

以下是适配需求的代码，假设你的数据结构为：

• 主数据在Sheet1，A列为类别名称，每个类别对应的数据区域为该类别行开始到下一个类别前一行的B:Z列（可根据实际调整）
• 待检查的团队成员ID列表在Sheet2的A列（A2开始，无空行）
• 检查结果会写入Sheet1的AA列，对应每个类别的首行

Sub CheckUserExceptions()
    Dim wsData As Worksheet, wsUsers As Worksheet
    Dim lastRowData As Long, lastRowUsers As Long
    Dim categoryStartRow As Long, categoryEndRow As Long
    Dim i As Long, j As Long, k As Long
    Dim currentCategory As String
    Dim isException As Boolean
    Dim userId As Long, userIdPlus1 As Long
    
    ' 定义工作表，可根据实际修改名称
    Set wsData = ThisWorkbook.Worksheets("Sheet1")
    Set wsUsers = ThisWorkbook.Worksheets("Sheet2")
    
    lastRowData = wsData.Cells(Rows.Count, "A").End(xlUp).Row
    lastRowUsers = wsUsers.Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 遍历每个类别
    categoryStartRow = 2 ' 假设表头在第1行
    Do While categoryStartRow <= lastRowData
        currentCategory = wsData.Cells(categoryStartRow, "A").Value
        ' 找到当前类别的最后一行
        categoryEndRow = categoryStartRow
        Do While categoryEndRow + 1 <= lastRowData And wsData.Cells(categoryEndRow + 1, "A").Value = currentCategory
            categoryEndRow = categoryEndRow + 1
        Loop
        
        ' 遍历每个待检查用户
        For i = 2 To lastRowUsers
            userId = wsUsers.Cells(i, "A").Value
            userIdPlus1 = userId + 1
            isException = True ' 默认标记为异常
            
            ' 遍历当前类别的所有数据单元格
            For j = categoryStartRow To categoryEndRow
                For k = 2 To 26 ' B列到Z列，可根据实际调整列数
                    If wsData.Cells(j, k).Value = userId Or wsData.Cells(j, k).Value = userIdPlus1 Then
                        isException = False ' 找到匹配值，取消异常标记
                        Exit For ' 跳出列循环
                    End If
                Next k
                If Not isException Then Exit For ' 跳出行循环
            Next j
            
            ' 记录结果到Sheet1的AA列，对应类别首行的同一行
            wsData.Cells(categoryStartRow, "AA").Value = IIf(isException, "异常值", "非异常值")
            ' 如果需要每个用户单独记录，可调整写入位置，比如Sheet3的对应行
            ' wsUsers.Cells(i, "B").Value = IIf(isException, "异常值", "非异常值")
        Next i
        
        ' 跳转到下一个类别
        categoryStartRow = categoryEndRow + 1
    Loop
    
    MsgBox "检查完成！"
End Sub

• 工作表与区域定义：开头的wsData和wsUsers可直接修改为你实际的工作表名称，数据列范围（k=2 To 26）也可根据你的表格调整。
• 类别区域定位：通过循环找到同一类别连续的行范围，避免手动指定区域，适配动态数据。
• 异常判定逻辑：先默认标记为异常，只要在数据区域中找到用户ID或ID+1，就取消异常标记，逻辑简单直接。
• 结果写入：当前代码将结果写入Sheet1的AA列，若需要给每个用户单独记录结果，可注释掉当前写入行，启用右侧的Sheet3写入代码。

1. 打开Excel的开发者工具（若未显示，可通过「文件-选项-自定义功能区」勾选「开发者工具」）
2. 插入模块：点击「开发者工具-Visual Basic-插入-模块」，将上述代码粘贴进去
3. 测试前先备份数据，避免误操作
4. 若数据结构不同，可调整代码中categoryStartRow、列范围、结果写入位置等参数

内容的提问来源于stack exchange，提问作者Blake J Park