본문 바로가기
  • Welcome!
VBA Code

Cells 값 비교 하기

by ToolBOX01 2022. 12. 16.
반응형

Range ("B4:B15")의 값들과 Range ("D6:D13")의 값을 비교하여 동일하면 "E"에  "yes"로 표시 합니다.

대, 소 문자를 구분 합니다. 비어 있는 CELL을 표시 하기 위해 "*"를 입력 하였습니다.

 

VBA 코드

Sub CELL값비교()

    Dim i, j As Long
    
    Dim rngCellB As Range: Set rngCellB = Range("B4", Cells(Rows.Count, "B").End(xlUp))
    Dim rngCellD As Range: Set rngCellD = Range("D6", Cells(Rows.Count, "D").End(xlUp))
        
    For i = 0 To rngCellB.Count - 1
    
        For j = 0 To rngCellD.Count - 1
        
                If Cells(i + 4, "B").Value = Cells(j + 6, "D").Value Then
        
                   Cells(j + 6, "E") = "YES"
           
                End If
        Next j  
    Next i
End Sub

ㅁㅁ