기준에 따라 여러 워크시트에서 행을 새 시트로 복사하는 방법은 무엇인가요？

다음 스크린샷과 같이 동일한 형식을 가진 세 개의 워크시트가 있는 통합 문서가 있다고 가정해 보겠습니다. 이제 열 C 에 “Completed”라는 텍스트가 포함된 모든 행을 새 워크시트으로 복사하려고 합니다。 이 문제를 수동으로 하나씩 복사하여 붙여넣지 않고 빠르고 쉽게 해결하려면 어떻게 해야 할까요？

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

참고： 위 코드에서：

• 스크립트의 텍스트 “Completed”는 행을 복사할 기준이 되는 특정 조건을 나타냅니다。xRStr = 「Completed」
• C:C는 다음Set xRg = xWs.Range(「C:C」)스크립트에서 조건이 위치한 열 지정를 나타냅니다。

3。 그런 다음F5키를 눌러 이 코드를 실행하면 특정 조건을 만족하는 모든 행이 현재 워크북 내 Kutools for Excel 이라는 이름의 새 워크시트으로 복사 및 붙여넣기됩니다。 스크린샷 참조：

---

---

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