有這麼一種情況，就是我們有很多張excel，而且excel表裡面的公式基本一樣，我們就想快速的把這些excel合併在一起，意思在合併在乙個excel頁面，這樣可以方便我們分析和統計，其實利用excel表的巨集計算就可以實現。下面我們就來一起解決這個問題。
把多個excel表合併成乙個excel表的方法
我們需要把多個excel表都放在同乙個資料夾裡面，並在這個資料夾裡面新建乙個excel。如圖所示：
如何快速把多個excel表合併成乙個excel表
把多個excel表合併成乙個excel表的方法圖1
如何快速把多個excel表合併成乙個excel表
把多個excel表合併成乙個excel表的方法圖2
如何快速把多個excel表合併成乙個excel表
把多個excel表合併成乙個excel表的方法圖3
如何快速把多個excel表合併成乙個excel表
把多個excel表合併成乙個excel表的方法圖4
dim mypath, myname, awbname
dim wb as workbook, wbn as string
dim g as long
dim num as long
dim box as string
mypath = activeworkbook.path
myname = dir(mypath & "\" & "*.xls")
awbname = activeworkbook.name
num = 0
do while myname <> ""
if myname <> awbname then
set wb = workbooks.open(mypath & "\" & myname)
num = num + 1
with workbooks(1).activesheet
.cells(.range("b65536").end(xlup).row + 2, 1) = left(myname, len(myname) - 4)
for g = 1 to sheets.count
wb.sheets(g).usedrange.copy .cells(.range("b65536").end(xlup).row + 1, 1)
next
wbn = wbn & chr(13) & wb.name
wb.close false
end with
end if
myname = dir
loop
range("b1").select
msgbox "共合併了" & num & "個工作薄下的全部工作表。如下：" & chr(13) & wbn, vbinformation, "提示"
end sub
把多個excel表合併成乙個excel表的方法圖5
如何快速把多個excel表合併成乙個excel表
把多個excel表合併成乙個excel表的方法圖6
執行之後，等待10秒針左右，等執行完畢，就是合併完成之後，會有提示，點確定就可以了。檢視合併後的資料，有5000多行，就是同乙個資料夾裡面17個excel表資料合併後的結果。效果如圖所示。
Excel合併記錄
前天，被產品經理要求我將原本二十多個excel合併成乙個excel，合併後的乙個excel大概30w 左右的資料量，於是我使用poi對excel進行合併，我直接貼 實驗資料大概15w左右，耗時大概35秒 合併excel public static void mergeexcel string pat...
EXCEL合併多列
今天想實現乙個將 excel匯入到資料庫中的功能，這在以前我就實現過，本沒什麼。但問題是當晚列印出sql語句時，發現有很多空的資料，檢視了下excel 發現有乙個單元格中的資料是跨多列的。於是就要解決合併多列資料 的問題。通過網路，我找到了一種解決方法，我是這樣實現的 1.公式 concatenat...
excel多個檔案合併
多個excel檔案合併成乙個需要用ms office wps是不行的 1.將所有檔案放在乙個資料夾裡 2.在資料夾裡新建乙個空的excel開啟 如果是合併多個sheet的話，右鍵sheet全部選中，點選移動或複製工作表，選擇乙個工作表就o了 sub 合併當前目錄下所有工作簿的全部工作表 dim my...