Excel动态生成跨表错题清单：解决VBA代码重复项问题

问题根源 #

你碰到的重复项问题，核心是原代码只做了追加写入操作，没有在生成新清单前清空旧的错题条目。当错题数量减少时，之前生成的多余条目没被清除，和新写入的内容重叠，就出现了重复。

修正后的VBA代码 #

假设原数据工作表名为答题表，错题清单放在错题集工作表的E5单元格开始的区域，代码如下：

Sub 更新错题清单()
    Dim 答题表 As Worksheet, 错题集 As Worksheet
    Dim 行号 As Integer, 目标行 As Integer
    
    ' 定义工作表对象
    Set 答题表 = ThisWorkbook.Worksheets("答题表")
    Set 错题集 = ThisWorkbook.Worksheets("错题集")
    
    ' 清空错题集的旧数据（从E5开始到该列最后一行）
    错题集.Range("E5:E" & 错题集.Cells(错题集.Rows.Count, "E").End(xlUp).Row).ClearContents
    
    ' 初始化目标行
    目标行 = 5
    
    ' 遍历答题表的D列（对错判断列，行1到15）
    For 行号 = 1 To 15
        ' 判断是否为错题（D列值为0）
        If 答题表.Cells(行号, "D").Value = 0 Then
            ' 写入题号到错题集
            错题集.Cells(目标行, "E").Value = 答题表.Cells(行号, "A").Value
            目标行 = 目标行 + 1
        End If
    Next 行号
End Sub

关键改动说明 #

• 先清空旧数据：通过ClearContents方法清除错题集中E5及以下的所有旧错题条目，确保每次生成的都是全新的清单。
• 遍历写入而非追加：从头遍历原数据的对错列，收集所有当前的错题，再依次写入目标区域，彻底避免残留旧数据。

动态触发更新（可选） #

如果需要修改答案后自动更新清单，可以在答题表的工作表事件中添加触发代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改B列（用户答案）时触发更新
    If Not Intersect(Target, Range("B1:B15")) Is Nothing Then
        Call 更新错题清单
    End If
End Sub

这段代码要放在答题表的代码窗口中（右键工作表标签→查看代码）。

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