반응형
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
ㅁㅁ
'VBA Code' 카테고리의 다른 글
Highlight Selected Column (0) | 2023.01.09 |
---|---|
문자열 응용 하기 (0) | 2023.01.01 |
엑셀 셀 선택시 열,행 색상으로 표시하기 (0) | 2022.12.14 |
엑셀 파일을 열면, 프로그램을 자동으로 실행하는 코드 (0) | 2022.12.13 |
DB Query 결과 엑셀로 가져오기 (0) | 2022.12.06 |