엑셀 시트별 내용 합치기 > Etc

본문 바로가기
사이트 내 전체검색

Etc

엑셀 시트별 내용 합치기

페이지 정보

profile_image
작성자 관리자
댓글 0건 조회 127회 작성일 21-09-10 10:29

본문

VBA코드

--------------------------

Sub sheetMerge()

Dim i As Integer

Dim sht As Worksheet

Dim rng As Range

Set sht = Sheets(1)

For i = 2 To Sheets.Count

Set rng = sht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

Sheets(i).UsedRange.Copy rng

Next i

End Sub
--------------------------

매크로 실행

댓글목록

등록된 댓글이 없습니다.

회원로그인

회원가입

Copyright © neion.co.kr All rights reserved.