Sub tianjia_zz()If Sheets(郑州上画).Cells(2, 1).Value = 0 ThenMsgBox (无添加项)Exit SubElseEnd IfDim x, y, n, m, l As LongSheets(郑州).Cells(1, 18) = =counta(郑州上画!a:a)For n = 2 To Sheets(郑州).Cells(1, 18) + 1If Sheets(郑州上画).Cells(n, 1).Value = ThenMsgBox (添加成功)Exit SubElseEnd IfFor x = 4 To 600y = 7If Sheets(郑州).Cells(x, 2) = Sheets(郑州上画).Cells(n, 1) Thenl = 0For m = 7 To 12If Sheets(郑州).Cells(x, m) = Sheets(郑州上画).Cells(1, 7) An