☰

Excel - 여러 시트의 데이터를 하나의 시트로 복사

tag-icon • tag-icon microsoft-excel vba
Excel - 여러 시트의 데이터를 하나의 시트로 복사

데이터를 여러 시트로 내보내는 프로그램을 사용하고 있는데 이 모든 것이 동일한 시트에 서로 필요합니다.

워크시트 정보 - 내보낼 때마다 이름이 달라지므로 때로는 100개 이상의 서로 다른 시트가 있으므로 정의할 필요가 없습니다.

워크시트 내부 - 다양한 행과 열의 데이터입니다(그리고 비어 있는 사용 가능한 다음 행의 기본 시트에 빈 행까지 복사해야 합니다).

모든 데이터도 복사해야 하는 워크시트 - 처음에는 비어 있지만 다른 워크시트의 행 복사본을 기반으로 모든 데이터가 서로 겹쳐 있어야 합니다. (필요한 경우 정의된 이름을 가질 수 있습니다)

저는 VBA를 처음 접했기 때문에 위의 설명이 도움이 되기를 바랍니다.

현재 VBA가 작동하지 않습니다.

 Sub SheetLoopPasteData()

Dim ws As Worksheet
Dim wsSheet As Worksheet
Set wsSheet = Sheets("Sheet2")

For Each ws In Worksheets
    ws.Activate
    variable = Cells(Rows.Count, 1).End(xlUp).Row
    Rows("1:" & variable).Copy _
    Destination:=wsSheet.Range("A" & (wsSheet.Range("A" & wsSheet.Rows.Count).End(xlDown).Row + 1))

Next



End Sub

답변1

VBA(매크로)가 모든 워크시트의 사용된 범위를 새 워크시트로 복사하는 데 도움이 되며 정확히 데이터 통합으로 작동한다고 제안하고 싶습니다.

Sub CombineData()

    Dim I As Long
    Dim xRg As Range

    On Error Resume Next

    Worksheets.Add Sheets(1)

    ActiveSheet.Name = "MasterSheet"

   For I = 2 To Sheets.Count
        Set xRg = Sheets(1).UsedRange

        If I > 2 Then
            Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
        End If

        Sheets(I).Activate
        ActiveSheet.UsedRange.Copy xRg
    Next

End Sub

작동 방식:

  • 복사&반죽이 코드를 모듈로 사용하세요.
  • 매크로는 기존 통합 문서에 다음과 같은 새 시트를 만듭니다.마스터시트, 편집 가능합니다.
  • 맨 위 행에서 마지막 행까지 데이터를 복사하는 대신중고범위방법은 이후 모든 업데이트를 수용합니다.

답변2

이것은 매우 좋지만 특정 범위를 처리하기 위해 필요합니다. 수행할 수 있습니까?

VBA(매크로)가 모든 워크시트의 사용된 범위를 새 워크시트로 복사하는 데 도움이 되며 정확히 데이터 통합으로 작동한다고 제안하고 싶습니다.

하위 결합데이터()

Dim I As Long
Dim xRg As Range

On Error Resume Next

Worksheets.Add Sheets(1)

ActiveSheet.Name = "MasterSheet"

I = 2인 경우 Sheets.Count로 설정 xRg = Sheets(1).UsedRange

    If I > 2 Then
        Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
    End If

    Sheets(I).Activate
    ActiveSheet.UsedRange.Copy xRg
Next

End Sub 작동 방법:

이 코드를 모듈로 복사하여 붙여넣으세요. 매크로는 편집 가능한 MasterSheet라는 이름의 기존 통합 문서에 새 시트를 만듭니다. 맨 위 행에서 마지막 행까지 데이터를 복사하는 대신 모든 업데이트를 수용할 수 있는 UsedRange 메서드를 사용했습니다.

관련 정보