[EXCEL] A1:A10 데이터 중 짝수인 데이터만 0으로 바꾸는 메크로

Excel VBA 에디터 열기

• Alt + F11 키를 눌러 VBA 에디터를 열음.
• 삽입 > 모듈을 선택해 새로운 모듈을 추가함.

 

 

 

매크로 코드 작성

• 아래 코드를 복사하여 모듈에 붙여넣음.

 

Sub ReplaceEvensWithZero()
    Dim cell As Range
    For Each cell In Range("A1:A10")
        If IsNumeric(cell.Value) Then
            If cell.Value Mod 2 = 0 And cell.Value <> 0 Then
                cell.Value = 0
            End If
        End If
    Next cell
End Sub

 

 

 

 

매크로 실행

• F5 키를 눌러 매크로를 실행하거나, Excel로 돌아가 Alt + F8 키를 눌러 매크로 목록에서 ReplaceEvensWithZero를 선택하여 실행함.

이 매크로는 A1부터 A10까지의 범위에서 짝수인 값을 찾아 0으로 바꿔줌.