Excel 多個Sheet 要合併成一個總表

各位大大,您好:

假設我有一個EXCEL檔案裡面有十個Sheet(1~10)

每個Sheet欄位名稱都一樣

Ex: ID 姓名 電話 住址........

但是Sheet裡面的筆數不一樣多, 且可能會一直增加

Ex: sheet A 有20筆,B有32筆(以後可能到100筆)

想要整合五個Sheet成同一個Sheet

(類似總表, 當Sheet A~E 中的有Update,含增加筆數)

如何把這10個Sheet裡的資料整合在一起呢??

1 Answer

Rating
  • 小花
    Lv 5
    1 decade ago
    Favorite Answer

    建議採取巨集方式將下列程式碼貼上

    Sub 合併()

    Dim b(11) As Integer

    Range("a2:z10000").Select

    Selection.ClearContents

    Cells(1, 1).Select

    For j = 2 To 11

    b(j) = Sheets(j).UsedRange.Rows.Count

    c = Sheets(1).UsedRange.Rows.Count

    For i = 1 To b(j) + 1

    a1 = Sheets(j).Cells(i + 1, 1).Value

    a2 = Sheets(j).Cells(i + 1, 2).Value

    a3 = Sheets(j).Cells(i + 1, 3).Value

    a4 = Sheets(j).Cells(i + 1, 4).Value

    a5 = Sheets(j).Cells(i + 1, 5).Value

    a6 = Sheets(j).Cells(i + 1, 6).Value

    Worksheets("總表").Cells(c + i, 1).Value = a1

    Worksheets("總表").Cells(c + i, 2).Value = a2

    Worksheets("總表").Cells(c + i, 3).Value = a3

    Worksheets("總表").Cells(c + i, 4).Value = a4

    Worksheets("總表").Cells(c + i, 5).Value = a5

    Worksheets("總表").Cells(c + i, 6).Value = a6

    Next i

    Next j

    Sheets(1).Select

    End Sub

    巨集說明(可合併每個工作表前六個欄位

    總表必須為第一張工作表且名稱為總表,如果總表資料超過1萬筆

    請修正Range("a2:z10000").Select,將Z10000再增加

    如果工作表不含總表超過10個請修改

    Dim b(11) As Integer

    For j = 2 To 11

    這二行中的11這個數值,每多一個工作表就加1,如有15個工作表修改為16

    希望能解決你的問題

    Source(s): 自己
    • Login to reply the answers
Still have questions? Get your answers by asking now.