안녕하세요..
제목과 같이 동일한폼으로 작성된 360개의 시트에서
A~Q 열의 16~42번행의 내용만 한번에 복사해서 한개의 시트에 정리를 하고 싶은데
고수님들 방법 알려주세요
커뮤니티 전체
다수 시트내 특정 셀만 한번에 복사해서 하나의 시트에 붙여넣기 할 수 있는 방법 문의드려요
박수정 Lv.2
📅 2025년 09월 05일 11:42
👁 조회 319
댓글을 작성하려면 로그인이 필요합니다.
게시글 목록
페이지 1 / 971게시글 제목
날짜
조회
추천
3일 전
조회 132
0
답글 2
답변 완료
주민번호에서 남,여 추출 수식..
3일 전
조회 152
0
답글 4
해결
3일 전
조회 149
0
답글 2
해결
SUMIFS함수
[1]
[1]
4일 전
조회 169
0
답글 1
일부 문구 바꾸기
[3]
[3]
4일 전
조회 180
0
답글 3
4일 전
조회 182
0
답글 2
해결
4일 전
조회 159
0
답글 2
5일 전
조회 208
0
답글 2
해결
5일 전
조회 172
0
답글 1
답변 완료
시트명 참조 문의 드립니다.
6일 전
조회 207
0
답글 3
해결
6일 전
조회 192
0
답글 1
해결
6일 전
조회 296
0
답글 4
2026.02.06
조회 369
0
답글 8
셀 너비 자동화 VBA
[2]
[2]
2026.02.06
조회 302
0
답글 2
2026.02.05
조회 461
0
답글 4
필터문제 급 도움이 필요합니다
[7]
[7]
2026.02.05
조회 336
0
답글 7
2026.02.04
조회 376
0
답글 3
해결
그룹핑을 통한 평균값 구하기
[1]
[1]
2026.02.04
조회 283
0
답글 1
2026.02.04
조회 357
0
답글 1
2026.02.04
조회 350
0
답글 6
해결
현재 시트를 제외한 모든 시트들의 A16:Q42를 누적
Sub Macro1()
Dim Asht As Worksheet, Esht As Worksheet
Dim iRw As Long
Dim rngCo As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set Asht = ActiveSheet
iRw = 2
For Each Esht In ThisWorkbook.Worksheets
If Esht.Name <> Asht.Name Then
Set rngCo = Esht.Range("A16:Q42")
rngCo.Copy
Asht.Cells(iRw, 1).PasteSpecial xlPasteValues
iRw = Asht.Cells(Asht.Rows.Count, 1).End(xlUp).Row + 1
End If
Next Esht
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub