VBA로 다른 시트 값과 비교해서 일치하는 경우 셀 값 바꾸기

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

 

Reference

엑셀(Excel) VBA – 다른 시트의 값을 가져와서 데이터를 추가하는 방법