엑셀 시트 합치기

Windows/문서 자료 2017. 12. 9. 17:39

우선, 각각의 예제 엑셀 형태는 이렇습니다.



보시다시피 첫 시트부터 마지막 시트까지 상단 제목은 똑같고 내용이 다른 데이터입니다.

손가락 마비를 초래할 수 있는 "컨트롤 C / 컨트롤 V" 신공으로는 도저히 엄두가 나질 않습니다.

첫번째 시트 하단의 시트 이름 "Table 1"에 마우스를 올려놓고 오른쪽 버튼을 클릭합니다.

나오는 메뉴중 "코드 보기"를 선택합니다.

코드 창에 다음의 코드를 복사해서 넣어주세요~

Sub SheetUnit()
Dim i As Integer
Dim ShtA As Worksheet
Dim rngB As Range
Set ShtA = Sheets(1)
For i = 2 To Sheets.Count
Set rngB = ShtA.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets(i).UsedRange.Copy rngB
Next i
End Sub

메뉴에서 실행 -- 사용자 정의 폼 실행 또는 F5 키를 눌러줍니다.

table 1 시트 터 table 280 시트까지 모두 7235행이 합쳐졌네요~

이제 중간중간에 있는 제목 행만 삭제해 주시면 엑셀 시트 합치기 완성입니다.

설정

트랙백

댓글