메인 컨텐츠로 가기

기준에 따라 여러 워크 시트의 행을 새 시트로 복사하는 방법은 무엇입니까?

아래 스크린 샷과 동일한 형식을 가진 워크 시트가 XNUMX 개있는 통합 문서가 있다고 가정 해 보겠습니다. 이제 C 열에 "완료 됨"이라는 텍스트가 포함 된 이러한 워크 시트의 모든 행을 새 워크 시트로 복사하려고합니다. 이 문제를 하나씩 수동으로 복사하여 붙여 넣지 않고 어떻게 빠르고 쉽게 해결할 수 있습니까?

기준에 따라 여러 워크 시트의 행을 VBA 코드를 사용하여 새 시트에 복사


기준에 따라 여러 워크 시트의 행을 VBA 코드를 사용하여 새 시트에 복사

다음 VBA 코드는 특정 조건에 따라 통합 문서 내의 모든 워크 시트에서 특정 행을 새 워크 시트로 복사하는 데 도움이 될 수 있습니다. 다음과 같이하십시오 :

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여 넣습니다.

VBA 코드 : 기준에 따라 여러 시트의 행을 새 시트로 복사

Public Sub CopyRows_ValuesAndNumberFormats()
Dim xWs As Worksheet
Dim xCWs As Worksheet
Dim xRg As Range
Dim xStrName As String
Dim xRStr As String
Dim xRRg As Range
Dim xC As Integer
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Kutools for Excel"
xRStr = "Completed"
Set xCWs = ActiveWorkbook.Worksheets.Item(xStr)
If Not xCWs Is Nothing Then
    xCWs.Delete
End If
Set xCWs = ActiveWorkbook.Worksheets.Add
xCWs.Name = xStr
xC = 1
For Each xWs In ActiveWorkbook.Worksheets
    If xWs.Name <> xStr Then
        Set xRg = xWs.Range("C:C")
        Set xRg = Intersect(xRg, xWs.UsedRange)
        For Each xRRg In xRg
            If xRRg.Value = xRStr Then
               xRRg.EntireRow.Copy
               xCWs.Cells(xC, 1).PasteSpecial xlPasteValuesAndNumberFormats
               xC = xC + 1
            End If
        Next xRRg
    End If
Next xWs
Application.DisplayAlerts = True
End Sub

주의 사항: 위 코드에서 :

  • 텍스트“진행완료”이 xRStr = "완료 됨" 스크립트는 행을 복사하려는 특정 조건을 나타냅니다.
  • C : C 이번에 xRg = xWs.Range ( "C : C") 설정 스크립트는 조건이있는 특정 열을 나타냅니다.

3. 그런 다음, F5 키를 눌러이 코드를 실행하고 특정 조건의 모든 행을 복사하여 현재 통합 문서 내의 Excel 용 Kutools라는 새 워크 시트에 붙여 넣었습니다. 스크린 샷보기 :


보다 상대적인 가져 오기 또는 복사 데이터 기사 :

  • Excel의 고급 필터를 사용하여 다른 워크 시트에 데이터 복사
  • 일반적으로 고급 필터 기능을 빠르게 적용하여 동일한 워크 시트의 원시 데이터에서 데이터를 추출 할 수 있습니다. 그러나 때때로 필터링 된 결과를 다른 워크 시트에 복사하려고하면 다음과 같은 경고 메시지가 표시됩니다. 이 경우 Excel에서이 작업을 어떻게 처리 할 수 ​​있습니까?
  • Excel의 열 기준에 따라 새 시트에 행 복사
  • 예를 들어 과일 구매 테이블이 있는데 이제 지정된 과일을 기반으로 레코드를 새 시트에 복사해야합니다. Excel에서 쉽게 수행하는 방법은 무엇입니까? 여기에서는 Excel의 열 기준에 따라 행을 새 시트에 복사하는 몇 가지 방법을 소개합니다.
  • Excel에서 열에 특정 텍스트 / 값이 포함 된 경우 행 복사
  • 열에서 특정 텍스트 또는 값을 포함하는 셀을 찾은 다음 찾은 셀이있는 전체 행을 복사한다고 가정하면 어떻게 처리 할 수 ​​있습니까? 여기에서는 열에 특정 텍스트 또는 값이 포함되어 있는지 확인한 다음 Excel에서 전체 행을 복사하는 몇 가지 방법을 소개합니다.

  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 및 데이터 보관; 셀 내용 분할; 중복 행과 합계 / 평균 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 즐겨 찾기 및 빠른 수식 삽입, 범위, 차트 및 그림; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 피벗 테이블 그룹화 기준 주 번호, 요일 등 ... 잠금 해제되고 잠긴 셀 표시 다른 색상으로; 수식 / 이름이있는 셀 강조 표시...
kte 탭 201905
  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

thank you very much for the code. I have a question: the code runs smoothly on some of my sheets, but looks like enters an infinite loop in some other ones which makes excel crash. What could the reason be?
This comment was minimized by the moderator on the site
Hello there, thank you so much for the code above, it solved me a problem with a complex file; a solution I have been looking for a while now. Thank you..I have one question. How do I change the code so that it copies the rows but only from colum A to colum Q, so not Entire.Row?Thank you in advance and great work!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations