시트 합치기 vba 강의 부분 질문이요

VBA
작성자
tal****
작성일
2020-11-03 16:04
조회
68
안녕하세요 오빠두엑셀 유툽통해 vba공부중인데요
  1. 시트 합치기를 할때 선택이 아닌 전체 시트를 합치고 싶어요
  2. 마지막 행을 검색하지않고 특정 셀 B2:F200이런식으로 지정해서 시트를 합치고 싶어요..
이제 막 시작해서 어떻게 해야될지 막막하네요ㅜㅜㅜ
전체 3

  • 2020-11-04 18:00
    채택된 답변

    안녕하세요? 🙂
    답변이 늦어 죄송합니다.
    전체 시트, 그리고 특정 범위(B2:F200)을 합치려면 명령문의 아래 부분을

    For i = 0 To Me.lstSheet.ListCount - 1
    If Me.lstSheet.Selected(i) = True Then
    Set WS = WB.Worksheets(Me.lstSheet.List(i))
    With WS
    '// 시트의 마지막 행/열 받아오기에 대한 자세한 설명은 아래 링크를 참고하세요.
    '// https://www.oppadu.com/엑셀-사전/엑셀-vba-마지막-셀-찾기-마지막-행-찾기/
    endRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    endCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    Set Rng = .Range(.Cells(2, 1), .Cells(endRow, endCol))
    Rng.Copy newWS.Cells(j, 1)
    j = j + Rng.Rows.Count
    End With
    End If
    Next

    아래와 같이 수정해보세요. 그럼 전체 시트의 특정 범위를 한번에 병합할 수 있습니다. ^^
    답변이 도움이 되셨길 바랍니다.

    For Each WS in WB.Worksheets
    With WS
    Set Rng = .Range("B2:F200")
    Rng.Copy newWS.Cells(j, 1)
    j = j + Rng.Rows.Count
    End With
    Next

    • 2020-11-04 21:13

      아 정말 감사합니다!! 혹시 5번째 시트부터 시트를 합칠수는 없을까요?

      그리고 사용자폼이 아닌 바로 단추로 합쳐지게 할수 있을까요?


      • 2020-11-04 22:28

        5번째 시트부터 합치시려면 명령문을 아래처럼 수정해보시길 바랍니다.

        Dim i as Long
        For i = 5 to WB.WorkSheets.Count
        Set WS = WB.Worksheets(i)
        With WS
        Set Rng = .Range("B2:F200")
        Rng.Copy newWS.Cells(j, 1)
        j = j + Rng.Rows.Count
        End With
        Next

        단추로 명령문을 실행는 방법은 이전 여러 VBA 강의에서 다뤄드렸으므로 VBA 기초강의를 확인해보시길 바랍니다.^^

        답변이 도움이 되셨길 바랍니다.


전체 1,610
번호 카테고리 제목 작성자 작성일 추천 조회
1605 함수/공식
New Index / Mach 함수 조합의 사용 (2)
zzanginb**** | 2020.12.02 | 추천 0 | 조회 28
zzanginb**** 2020.12.02 0 28
1604 함수/공식
New 엑셀 단체문자 자동완성 (7) 답변완료
왜사는건지 | 2020.12.02 | 추천 0 | 조회 25
왜사는건지 2020.12.02 0 25
1603 함수/공식
New vlookup 수식이 자동으로 적용되는데 수정은 안되요.. 첨부파일 (1)
룰라랄라 | 2020.12.02 | 추천 0 | 조회 21
룰라랄라 2020.12.02 0 21
1602 함수/공식
New 네이버주식웹크롤링 관련문의드려요 (1)
차차차 | 2020.12.02 | 추천 0 | 조회 21
차차차 2020.12.02 0 21
1601 함수/공식
New 통장계좌 등 일정하지 않은 수의 데이터 추출 첨부파일 (2) 답변완료
Ruan | 2020.12.02 | 추천 0 | 조회 25
Ruan 2020.12.02 0 25
1600 VBA
New 발주 취합 정산 부분에 대하여
곰탱이 | 2020.12.02 | 추천 0 | 조회 20
곰탱이 2020.12.02 0 20
1599 함수/공식
New [대시보드 예제] SUMPRODUCT 함수 오류, 피벗테이블 새로고침, 조건부서식 아이콘 적용 누락 첨부파일 (1)
임이사 | 2020.12.02 | 추천 0 | 조회 22
임이사 2020.12.02 0 22
1598 VBA
New 이전 댓글에서 제가 여쭤본건데 하위폴더명을 반환하는 셀 값에 트리구조로 만들고 싶어서요 (1)
밍장군 | 2020.12.02 | 추천 0 | 조회 21
밍장군 2020.12.02 0 21
1597 VBA
New 샐 값을 vba 변수로 사용하는 방법 없을까요? (1)
밍장군 | 2020.12.02 | 추천 0 | 조회 18
밍장군 2020.12.02 0 18
1596 함수/공식
New if를 사용하면 될 것 같은데 잘 안되네요.. 첨부파일 (4) 답변완료
모찌율 | 2020.12.02 | 추천 1 | 조회 46
모찌율 2020.12.02 1 46
1595 VBA
New 네이버 부동산 매물 크롤링_매매/전세가 표시가 안됨 첨부파일 (2)
csh**** | 2020.12.02 | 추천 0 | 조회 29
csh**** 2020.12.02 0 29
1594 함수/공식
New 특정 월,주,일 산출함수문의 첨부파일 (2) 답변완료
H.B | 2020.12.01 | 추천 1 | 조회 33
H.B 2020.12.01 1 33
1593 함수/공식
New sumproduct함수와 같이 여러조건이 맞았을때 결과가 나오는 함수는?? 첨부파일 (1)
선생님 | 2020.12.01 | 추천 0 | 조회 23
선생님 2020.12.01 0 23
1592 함수/공식
New 조건부 서식 관련! 첨부파일 (2)
4Block | 2020.12.01 | 추천 0 | 조회 35
4Block 2020.12.01 0 35
1591 함수/공식
New [모집회원]관리시 어떻게 해야할지 머리가~~ 첨부파일 (2)
선생님 | 2020.12.01 | 추천 0 | 조회 35
선생님 2020.12.01 0 35
1590 함수/공식
New 대표셀에 값 입력 하면 특정셀 값이 바뀌게하는 방법 도와주세요 ㅠ (1)
이문희 | 2020.12.01 | 추천 0 | 조회 24
이문희 2020.12.01 0 24
1589 함수/공식
New if 함수 질문입니다! 첨부파일 (7)
4Block | 2020.12.01 | 추천 0 | 조회 28
4Block 2020.12.01 0 28
1588 피벗테이블
New [대시보드예제] 유튭보고 따라하면서 수정했는데 피벗테이블이 새로고침이 이상해여ㅠ (1)
임이사 | 2020.12.01 | 추천 0 | 조회 26
임이사 2020.12.01 0 26
1587 VBA
New 이번 라이브 강의는 언제 올라오나요? (2) 답변완료
테일즈 | 2020.12.01 | 추천 0 | 조회 23
테일즈 2020.12.01 0 23
1586 함수/공식
New SUM, SUMIF 함수가 안되고있습니다!! (4) 답변완료
으아우아악 | 2020.12.01 | 추천 0 | 조회 29
으아우아악 2020.12.01 0 29
1585 기능/도구
New 엑셀 하이러링크 삽입후 파일이 이동되면 "참조가 잘못되었습니다" 문제 (1)
carg | 2020.12.01 | 추천 0 | 조회 21
carg 2020.12.01 0 21
1584 함수/공식
New 취득세 간편 계산 방식 첨부파일 (1)
khj**** | 2020.12.01 | 추천 0 | 조회 29
khj**** 2020.12.01 0 29
1583 피벗테이블
New 피벗테이블 구현 문제 (2) 답변완료
쿵야 | 2020.11.30 | 추천 0 | 조회 37
쿵야 2020.11.30 0 37
1582 피벗테이블
New 입금일정이 매주마다 변경된다는 가정하에 비교 할수 있는 방법이 있을까요? (2)
이상타 | 2020.11.30 | 추천 1 | 조회 40
이상타 2020.11.30 1 40
1581 파워쿼리/피벗
New 쿼리를 사용한 파일을 열면 마우스 휠이 반응하지 않아요. (2)
Kampi Krein | 2020.11.30 | 추천 0 | 조회 28
Kampi Krein 2020.11.30 0 28
1580 피벗테이블
New 데이터정규화 및 피벗테이블 비율표시 질문 첨부파일 (1) 답변완료
Yooon | 2020.11.30 | 추천 0 | 조회 33
Yooon 2020.11.30 0 33
1579 함수/공식
New 기초적인 문의 드립니다. (3) 답변완료
kspdoori | 2020.11.30 | 추천 0 | 조회 33
kspdoori 2020.11.30 0 33
1578 함수/공식
New 원본데이터 수정없이 날짜 조건으로 count 하는방법 문의 (5) 답변완료
정지훈 | 2020.11.30 | 추천 0 | 조회 36
정지훈 2020.11.30 0 36
1577 함수/공식
New 오빠두님 안녕하세요 첨부파일 (1)
아이픽스 | 2020.11.30 | 추천 0 | 조회 32
아이픽스 2020.11.30 0 32
1576 함수/공식
(도와주세요!) 같은 셀 안에 있지만 개행으로 구분된 데이터에 함수적용방법 첨부파일 (6) 답변완료
naver_5fc1c99def443 | 2020.11.30 | 추천 0 | 조회 41
naver_5fc1c99def443 2020.11.30 0 41