主題B3：VBA 資料處理

Sub Check()

Dim i, j As Integer

For i = 2 To 200

  For j = 2 To 5529

    If Cells(i, 2) = Sheets("Graduated105-107").Cells(j, 5) Then

    Cells(i, 40) = "成"

    Cells(i, 41) = Sheets("Graduated105-107").Cells(j, 27)

    Exit For

    Else

    Cells(i, 40) = "0000"

    Cells(i, 41) = Sheets("Graduated105-107").Cells(j, 27)

    End If

  Next j

Next i

 

End Sub