data 시트의 AE셀을 지금 시트의 G셀과 비교해서, 일치하는 경우에만 Q셀 값을 '최종완료'로 바꾸는 VBA
Sub 확인완료_갱신()
Dim rngList As Range
Dim rngValue As Range
Dim i As Integer
With Worksheets("data").UsedRange
Set rngList = .Offset(1).Resize(.Rows.Count-1)
End With
For i = 1 To WorksheetFunction.CountA(Range("A:A"))
Set rngValue = rngList.Find(Range("G1").Offset(i, 0))
If Not rngValue Is Nothing Then
Range("Q1").Offset(i, 0) = "최종완료"
End If
Next i
End Sub
