求助：如何将考勤表错误信息提取至另一工作表？

嘿，我之前帮朋友处理过类似的考勤表错误提取需求，知道这种学生-导师配对的结构搞提取容易卡壳，给你两个实用方案试试：

先理清楚前提：统一错误标识 #

首先得确认你K99:QR196里的检查公式返回的是什么？是明确的“考勤异常”这类文本，还是#VALUE!、#N/A这类系统错误值？建议先把所有检查公式统一改成返回清晰的文本，比如把K99的公式改成=IF(你的检查条件不满足, "考勤异常", "")，这样后续提取会顺畅很多。

方案1：用Excel公式批量提取（适合不想碰代码的情况） #

假设你要把错误信息放到名为「错误汇总」的工作表里，步骤如下：

• 先在「错误汇总」的A1到E1输入表头：异常行号、学生信息、导师信息、异常内容、考勤项
• 在A2单元格输入这个数组公式（Excel 365/2021直接回车，旧版本要按Ctrl+Shift+Enter）：

  =INDEX(Sheet1!$3:$3, SMALL(IF(Sheet1!$K$99:$QR$196<>"", ROW(Sheet1!$K$99:$QR$196)-98, ""), ROW(A1)))
  

  这个公式的作用是自动筛选出有错误的原始数据行号
• 对应B2单元格提取学生信息（K列）：=VLOOKUP(A2, Sheet1!$A$3:$L$98, 11, FALSE)
• C2提取导师信息（L列）：=VLOOKUP(A2, Sheet1!$A$3:$L$98, 12, FALSE)
• D2提取具体的错误内容：=INDEX(Sheet1!$K$99:$QR$196, A2-2, MATCH("考勤异常", Sheet1!$K$99:$QR$99, 0))
• E2提取对应的考勤项（列表头）：=INDEX(Sheet1!$K$1:$QR$1, MATCH("考勤异常", Sheet1!$K$99:$QR$99, 0))

如果你的检查公式返回的是系统错误值（比如#N/A），把公式里的<>""改成ISERROR()就行，比如IF(ISERROR(Sheet1!$K$99:$QR$196), ROW(...), "")

方案2：用VBA代码自动提取（适合批量处理，更省心） #

要是公式太绕，写个VBA宏一次性搞定会更爽，代码我给你写好了，直接用就行：

Sub 提取考勤错误()
    Dim 源工作表 As Worksheet, 目标工作表 As Worksheet
    Dim 数据行 As Integer, 检查列 As Integer, 目标行 As Integer
    
    '替换成你的实际工作表名称
    Set 源工作表 = ThisWorkbook.Sheets("考勤主表")
    Set 目标工作表 = ThisWorkbook.Sheets("错误汇总")
    
    目标行 = 2 '从第二行开始写入数据（留第一行放表头）
    '清空目标表已有数据（表头保留）
    目标工作表.Range("A2:Z" & 目标工作表.Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
    
    '遍历每一行原始数据（3到98行）
    For 数据行 = 3 To 98
        '遍历每一列检查错误（K列是第11列，QR列是第108列）
        For 检查列 = 11 To 108
            '对应检查行是数据行+96（99行对应3行，100行对应4行...）
            If 源工作表.Cells(数据行 + 96, 检查列).Value <> "" Then
                '写入错误明细
                目标工作表.Cells(目标行, 1).Value = 数据行 '原始数据行号
                目标工作表.Cells(目标行, 2).Value = 源工作表.Cells(数据行, 11).Value '学生信息（K列）
                目标工作表.Cells(目标行, 3).Value = 源工作表.Cells(数据行, 12).Value '导师信息（L列）
                目标工作表.Cells(目标行, 4).Value = 源工作表.Cells(数据行 + 96, 检查列).Value '错误内容
                目标工作表.Cells(目标行, 5).Value = 源工作表.Cells(1, 检查列).Value '对应的考勤项
                目标行 = 目标行 + 1
            End If
        Next 检查列
    Next 数据行
    
    MsgBox "搞定！共提取到" & 目标行 - 2 & "条考勤异常记录"
End Sub

使用方法：

1. 按Alt+F11打开VBA编辑器
2. 右键点击你的工作簿，插入一个新模块
3. 把上面的代码粘贴进去，修改工作表名称（比如把"考勤主表"改成你的实际数据工作表名）
4. 点击运行按钮，或者按F5执行宏

小提醒 #

• 一定要确保检查行（99:196）和数据行（3:98）是严格对应的，比如99行对应3行，100行对应4行，这样代码里的数据行+96才管用
• 如果你的检查公式返回的是系统错误值，把代码里的<>""改成IsError(源工作表.Cells(...).Value)就行

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