更新时间:2022-11-14 11:07:53
请参阅下面的代码,了解我提出的解决方案.谢谢!
Please see the code below for the solution that I came up. Thank you!
For Each ws In Sheets(Array("N-Q1", "N-Q2", "N-Q3", "N-Q4", "N-D", _
"JK-Q1", "JK-Q2", "JK-Q3", "JK-Q4", "JK-D", "SK-Q1", "SK-Q2", "SK-Q3", "SK-Q4", "SK-D"))
lastRow = ws.Cells(Rows.Count, "C").End(xlUp).Row
For r = 9 To lastRow
If ws.Cells(r, 3) = CStr(ThisWorkbook.Sheets("HOME").Range("K11").value) Then
If ws.Cells(r, 16) = "0" Or ws.Cells(r, 16) = "" Then
ws.Cells(r, 16) = "1"
Debug.Print "STUDENTS: " & ws.Cells(r, 3) & " Verified!"
Else
Debug.Print "STUDENTS: " & ws.Cells(r, 3) & " Already Verified!"
End If
End If
Next r
Next ws