엑셀 VBA 매크로 배우기, 인사/재고관리 시트 취합하기 실습

이전 실습에서 이어지는 내용인데요 

여러 시트의 자료를 한 시트로 통합하기 위한 실습 예제입니다.

실무적으로도 자주 사용하는 방법이기 때문에 천천히 따라 해 보시면서 같이 공부하면 좋을 것 같아요

엑셀 VBA 매크로 배우기

엑셀 VBA 매크로 코딩 예제 확인하기

실습에 앞서 미리 강의 파일을 다운로드하셔서 확인해 보시면 공부하기 조금 더 편할 것 같아요

엑셀 버전은 2019로 작성이 되어 있으나 다른 버전도 가능합니다.

(비밀번호 : 1111)

 

인사관리실무 시트취합하기 실습.xlsm

0.03MB

엑셀 VBA 매크로 배우기

🔎 예제 소스 확인하기

Sub TOTAL()
 
'기존 데이터 삭제 (B3~맨 아래까지)
Call CLEAN
 
'각각의 시트에 대해서
For Each sht In Worksheets
 
'시트 이름이 "취합"이 아니라면
    If sht.Name <> "취합" Then
    
        '각 시트 데이터에서 b3부터 오른쪽 아래로 끝까지 내려서 복사
        sht.Range(sht.Range("b3"), sht.Range("b2").Offset(0, 2).End(xlDown)).Copy
        
            '취합시트의 B3셀이 없다면, B3셀에 복사붙이기를하고
            If Worksheets("취합").Range("b3").Value = "" Then
            
                Worksheets("취합").Range("b3").PasteSpecial
            
            '취합시트이 B3셀에 값이 있다면, B2부터 아래로 맨끝의 한칸 아래에  복사붙이기하시오
            Else
                
                Worksheets("취합").Range("b2").End(xlDown).Offset(1, 0).PasteSpecial
            
            End If
        
    End If
 
Next
 
End Sub
 
Sub CLEAN()
 
'b3부터~ b2에서 오른쪽에서 맨아래로 즉 모든데이터 초기화
Set aa = Range(Range("b3"), Range("b2").Offset(0, 2).End(xlDown))
 
aa.ClearContents
 
End Sub
 

 

 

엑셀 VBA 매크로 코딩 원리 살펴보기

✔️ CLEAN()

엑셀 VBA 매크로 배우기

엑셀 VBA 매크로 배우기

 

✔️ TOTAL()

데이터 초기화 후 > 각각의 시트인 sht에 대해서 > 시트의 이름이 취합이 아니라면 > 각 시트의 데이터를 복사하시오

만약 취합시트의 B3값이 공란("")이면 B3셀에 붙여 넣기 그게 아니라면 B2에서 맨 아래로 내려가서 한 칸 아래에 붙여 넣으시오

엑셀 VBA 매크로 배우기

엑셀 VBA 매크로 배우기

 

 

 

 

엑셀 VBA 매크로 배우기, For ~ Next, For Each ~ next 반복문 사용해

엑셀 매크로 IF조건문(IF, ELSEIF, ELSE) 사용하기