여러 워크시트에서 조건에 따라 행을 새 시트로 복사하려면 어떻게 해야 하나요?

예를 들어, 아래 스크린샷에 표시된 것처럼 동일한 서식을 가진 세 개의 워크시트가 있는 통합 문서가 있다고 가정해 보겠습니다. 이제 열 C에 “완료됨”이라는 텍스트가 포함된 모든 행을 이러한 워크시트에서 새 워크시트로 복사하고 싶습니다. 이를 하나씩 수동으로 복사하고 붙여넣지 않고도 빠르고 쉽게 해결할 수 있는 방법은 무엇인가요?

VBA 코드를 사용하여 여러 워크시트에서 조건에 따라 행을 새 시트로 복사하기

VBA 코드를 사용하여 여러 워크시트에서 조건에 따라 행을 새 시트로 복사하기

다음 VBA 코드는 특정 조건에 따라 통합 문서 내 모든 워크시트에서 특정 행을 새 워크시트로 복사하는 데 도움이 될 수 있습니다. 다음 단계를 따르세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

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 = "Completed" 스크립트의 “완료됨” 텍스트는 행을 복사하려는 특정 조건을 나타냅니다.
• C:C는 Set xRg = xWs.Range("C:C") 스크립트의 조건이 위치한 특정 열을 나타냅니다.

3. 그런 다음 F5 키를 눌러 이 코드를 실행하면 특정 조건을 가진 모든 행이 현재 통합 문서 내 Kutools for Excel이라는 새 워크시트로 복사되고 붙여넣어집니다. 스크린샷을 참조하세요:

데이터 추출 또는 복사와 관련된 추가 기사:

---

최고의 오피스 생산성 도구

Kutools for Excel은 대부분의 문제를 해결하고 생산성을 80% 향상시킵니다.

• 슈퍼 수식 표시줄 (여러 줄의 텍스트와 수식을 쉽게 편집); 읽기 레이아웃 (대량의 셀을 쉽게 읽고 편집); 필터링된 범위에 붙여넣기...
• 데이터를 유지하면서 셀/행/열 병합; 셀 내용 분할; 중복 행 병합 및 합계/평균 내기... 중복 셀 방지; 범위 비교하기...
• 중복 또는 고유한 행 선택; 빈 행 선택 (모든 셀이 비어 있음); 여러 워크북에서 슈퍼 찾기 및 퍼지 찾기; 랜덤 선택...
• 수식 참조를 변경하지 않고 여러 셀 정확히 복사; 여러 시트에 자동으로 참조 생성; 글머리 기호, 체크 박스 등 삽입...
• 즐겨찾는 수식, 범위, 차트 및 그림을 빠르게 삽입; 비밀번호로 셀 암호화; 메일링 목록 생성 및 이메일 보내기...
• 텍스트 추출, 텍스트 추가, 특정 위치에서 문자 제거, 공백 제거; 데이터 페이지 통계 생성 및 인쇄; 셀 내용과 의견 간 변환...
• 슈퍼 필터 (다른 시트에 필터 구성 저장 및 적용); 월/주/일별 고급 정렬, 발생 빈도 등; 굵게, 기울임꼴로 특수 필터...
• 워크북 및 워크시트 병합; 기본 열을 기준으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
• 주차 번호, 요일 등으로 피벗 테이블 그룹화... 잠금 해제된 셀, 잠긴 셀을 다른 색상으로 표시; 수식/이름이 있는 셀 강조 표시...

자세히 보기... 전체 기능 30일 무료 평가판... 구매... 

---

Office Tab - 탭 인터페이스를 Office에 제공하여 작업을 훨씬 쉽게 만듭니다.

• Word, Excel, PowerPoint, Publisher, Access, Visio 및 Project에서 탭 편집 및 읽기를 활성화합니다.
• 새 창 대신 동일한 창의 새 탭에서 여러 문서를 열고 생성합니다.
• 생산성을 50% 향상시키고 매일 수백 번의 마우스 클릭을 줄입니다!

자세히 보기... 전체 기능 30일 무료 평가판... 구매...