[엑셀 vba] 엑셀 셀에 대한 일괄 작업 수행하기

이 코드는 엑셀 워크시트의 모든 셀을 반복하고 각 셀의 값을 가져와 다음 작업을 수행합니다.

값이 숫자인 경우 두 배로 만듭니다.
값이 텍스트인 경우 대문자로 변환합니다.
값이 공백인 경우 "데이터 없음"으로 설정합니다.

 

Sub BatchProcessCells()
    Dim cell As Range
    Dim lastRow As Long
    Dim lastColumn As Long
    
    ' 마지막 행 및 열 가져 오기
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    lastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 각 셀 반복
    For Each cell In Range(Cells(1, 1), Cells(lastRow, lastColumn))
        
        ' 셀 값 가져 오기
        Dim cellValue As Variant
        cellValue = cell.Value
        
        ' 값이 숫자이면 두 배로 만듭니다.
        If IsNumeric(cellValue) Then
            cell.Value = cellValue * 2
        End If
        
        ' 값이 텍스트이면 대문자로 변환합니다.
        If IsText(cellValue) Then
            cell.Value = UCase(cellValue)
        End If
        
        ' 값이 공백이면 "데이터 없음"으로 설정합니다.
        If Len(Trim(cellValue)) = 0 Then
            cell.Value = "데이터 없음"
        End If
        
    Next cell
    
End Sub

#엑셀vba #엑셀매크로 #엑셀자동화 #엑셀코딩