excel에서 vba를 이용하여 여러 sheet 페이지와 여러 excel 문서를 통합합니다

2321 단어 excel
sheet 페이지 통합, excel 문서 통합, 워크시트 통합, 워크북 통합

다중 워크시트 병합


모든sheet에만 적용되는 첫 번째 줄은 데이터 헤더이고 데이터는 두 번째 줄부터 시작합니다.
excel 여러 시트 병합
제1안
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
   If Sheets(j).Name <> ActiveSheet.Name Then
       X = Range("A65536").End(xlUp).Row + 1
       Sheets(j).UsedRange.Copy Cells(X, 1)
   End If
Next
Range("B1").Select
Application.ScreenUpdating = True

두 번째 방안
Sub  ()
    Dim J As Integer
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combined"
    Sheets(2).Activate
    Range("A1").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).Range("A1")
    For J = 2 To Sheets.Count
        Sheets(J).Activate
        c = Sheets(J).Range("IV1").End(xlToLeft).Column
        r = Sheets(J).Range("A65536").End(xlUp).Row
        Range("A2").Resize(r - 1, c).Select
        Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
    Next
End Sub

통합 워크북

Sub  ()

    Dim FileOpen
    Dim X As Integer
    Application.ScreenUpdating = False
    FileOpen = Application.GetOpenFilename(FileFilter:="Excel 97-2003  (*.xls),*xls,Microsoft Excel (*.xlsx),*.xlsx", MultiSelect:=True, Title:=" ")
    X = 1
    If TypeName(FileOpen) = "Boolean" Then
        MsgBox " ,  ."
        Exit Sub
    End If

    While X <= UBound(FileOpen)
        Workbooks.Open Filename:=FileOpen(X)
        Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        X = X + 1
    Wend
ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub

errhadler:
    MsgBox Err.Description
End Sub

좋은 웹페이지 즐겨찾기