```vba ' 根据科目余额表科目编码与底稿对应关系工作表的B2单元格开始循环筛选条件 ' 在新工作簿的本年科目余额表工作表的第六行开始筛选A列数据 ' 将每个循环筛选条件筛选出的结果填入对应行的I列 Dim ws1 As Worksheet Dim ws2 As Worksheet Dim lastRow1 As Long Dim lastRow2 As Long Dim i As Long Dim criteria As String Set ws1 = ThisWorkbook.Worksheets("科目余额表科目编码与底稿对应关系工作表") Set ws2 = Workbooks.Add.Worksheets(1) ws2.Name = "本年科目余额表工作表" lastRow1 = ws1.Cells(ws1.Rows.Count, "B").End(xlUp).Row For i = 2 To lastRow1 criteria = ws1.Cells(i, 2).Value lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row ws2.Range("A6:A" & lastRow2).AutoFilter Field:=1, Criteria1:=criteria ' 将筛选结果填入对应行的I列 On Error Resume Next ws2.Range("A6:A" & lastRow2).SpecialCells(xlCellTypeVisible).Offset(0, 8).Value = "是" On Error GoTo 0 Next i ws2.AutoFilterMode = False ``` [2024-12-19 14:55:00 | AI写代码神器 | 626点数解答]