當前位置:首頁 » 辦公資訊 » excel表格怎樣批量合並

excel表格怎樣批量合並

發布時間: 2022-01-24 01:12:25

① 如何批量合並多個excel表格

方法/步驟

我們需要把多個excel表都放在同一個文件夾裡面,並在這個文件夾裡面新建一個excel。如圖所示:

用microsoft excel打開新建的excel表,並右鍵單擊sheet1,找到「查看代碼」,單擊進去。進去之後就看到了宏計算界面。如圖所示:

然後我們把下面這些宏計算的代碼復制進去,然後找到工具欄上面的「運行」下的「運行子過程/用戶窗體」,代碼如下,如圖所示:

Sub 合並當前目錄下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
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
Application.ScreenUpdating = True
MsgBox "共合並了" & Num & "個工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
End Sub

4
運行之後,等待10秒針左右,等運行完畢,就是合並完成之後,會有提示,點確定就可以了。查看合並後的數據,有5000多行,就是同一個文件夾裡面17個excel表數據合並後的結果。效果如圖所示。

② 怎麼把100多個EXCEL文件合並成一個

可以通過更改excel代碼來合並多個文件。

詳細步驟:

1、新建一個文件夾。


網路-Microsoft Office Excel

③ EXCEL表格單元格如何批量合並

不用VBA是不可能實現的。
如果數據量不是超大,可以用滑鼠劃選A1-A3,之後點菜單欄的合並單元格,之後再選中A4-A6,按一下鍵盤上的F4就可以了,之後均用單擊按鍵代替滑鼠選點,也能快一些。

④ Excel表格中多個合並單元格怎麼批量完成

如果後面的要合並的單元格相同,先選中已合並的單元格,點格式刷工具,然後點要合並的單元格向下拖動,直到你需要的位置。

⑤ 使用excel怎樣批量將每一行的所有單元格合並

使用excel怎樣批量將每一行的所有單元格合並的步驟:

1、啟動Excel,打開表格。

2、打開表格發現,數據比較混亂,現在就需要先給表格排序。可以點擊菜單欄的「數據」—>「排序」。

3、在打開的「排序」對話框中,「主要關鍵字」,「次要關鍵字」和「第三關鍵字」可以根據實際情況選擇。

4、排序後,相同就在一塊了,這時我們點擊菜單欄的「數據」—>「分類匯總」,在匯總項選擇,然後點擊「確定」。

5、選定所示的區域,點擊菜單欄「編輯」—>「定位」(或直接按F5或Ctrl+G打開「定位」),然後點擊「定位條件」。

6、打開如下圖所示的界面,選擇「空值」,然後點擊「確定」。

7、選中部分的空值部分就選中了,這時單擊工具欄的合並單元格圖標。

8、滑鼠在點擊下其他位置,這時我們點擊菜單欄的「數據」—>「分類匯總」,在打開對話框中,點擊「全部刪除」來刪除分類匯總項。

9、選中表格,點格式刷;接著在B列相應位置,用「格式刷」刷一下就可以的。

⑥ 如何在EXCEL中單元格批量合並數據

這個需要用到VBA

For i = 3 To Range("f65536").End(xlUp).Row '循環所有行

If Cells(i, 1) <> "" Then a = i '確定合並開始行

If Cells(i, 6) <> 0 Then

If wb = "" Then '合並F列內容到wb

wb = Cells(i, 6)

Else

wb = wb & Chr(10) & Cells(i, 6)

End If

If Cells(i + 1, 6) = 0 Then '確定合並結束行並做出合並

Range("G" & a & ":G" & i).Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Selection.Merge

Cells(a, 7) = wb

wb = ""

End If

End If

Next i

⑦ excel表格怎麼批量合並單元格並保留所有內容

用一個老前輩的話,你想實現這個表格效果,完全可以通過數據透視表。合並單元格是一件吃力不討好的苦力活,一時解決了問題將來二次處理數據還是會痛不欲生。


但如果題主執意要用合並單元格,能告訴我後面有幾列要做合並嗎?感謝。

直接修改在這里方便查看吧。


在工作表按Alt+F11,跳出如圖VBA窗口,在對應的工作表名稱處雙擊,在右側空白處粘貼以下代碼:

Sub mMerge()

Application.DisplayAlerts = False

For Each Rng In Range("J2:J" & ActiveSheet.UsedRange.Rows.Count)

With Rng

If .MergeCells = True And .Row = .MergeArea.Row Then

For mRow = .MergeArea.Row To .MergeArea.Row + .MergeArea.Rows.Count - 1

mValue1 = mValue1 & Cells(mRow, 11) & Chr(10)

mValue2 = mValue2 & Cells(mRow, 12) & Chr(10)

Next

Range("K" & .MergeArea.Row & ":K" & .MergeArea.Row + .MergeArea.Rows.Count - 1).Merge

Range("K" & .MergeArea.Row).WrapText = True

Range("K" & .MergeArea.Row) = Left(mValue1, Len(mValue1) - 1)

mValue1 = Empty

Range("L" & .MergeArea.Row & ":L" & .MergeArea.Row + .MergeArea.Rows.Count - 1).Merge

Range("L" & .MergeArea.Row).WrapText = True

Range("L" & .MergeArea.Row) = Left(mValue2, Len(mValue2) - 1)

mValue2 = Empty

End If

End With

Next

Application.DisplayAlerts = True

End Sub


效果如圖


⑧ excel怎樣批量合並單元格

不同版本的Excel操作方式略有不同,但大同小異,下面以Excel2010為例。

1.打開excel2010,選中你要合並的單元格,在開始選項卡下,選擇右上角的查找和選擇,點擊定位條件。

2.打開定位條件對話框,選擇空值,然後點擊確定。

3.下面要輸入公式,如果要向上合並則輸入A2=A1,向下合並輸入A2=A3,輸入以後按ctrl+enter快捷鍵,excel就會自動填充空白處。

4.選中數據,然後選擇數據選項卡,點擊分類匯總。

5.打開分類匯總對話框,由於要合並的是表頭1的單元格,所以分類欄位填寫1,匯總方式選擇求和,然後確定。

6. 把B列的內容復制到C列。

7.選中C列,點擊開始選項卡,在查找和選擇下面點擊常量,然後按Delete鍵(鍵盤右上角)。

8.選擇開始選項卡,在對齊方式中選擇合並單元格。

熱點內容
馬路上汽車的噪音在多少分貝 發布:2023-08-31 22:08:23 瀏覽:1814
應孕棒多少錢一盒 發布:2023-08-31 22:08:21 瀏覽:1298
標准養老金一年能領多少錢 發布:2023-08-31 22:05:05 瀏覽:1579
湖北通城接網線多少錢一個月 發布:2023-08-31 21:59:51 瀏覽:1665
開隨車吊車多少錢一個月 發布:2023-08-31 21:55:06 瀏覽:1423
京東付尾款怎麼知道前多少名 發布:2023-08-31 21:52:58 瀏覽:1747
在學校租鋪面一個月要多少錢 發布:2023-08-31 21:52:09 瀏覽:1880
2寸有多少厘米 發布:2023-08-31 21:50:34 瀏覽:1527
知道電壓如何算一小時多少電 發布:2023-08-31 21:46:20 瀏覽:1502
金手鐲54號圈周長是多少厘米 發布:2023-08-31 21:44:28 瀏覽:1686