excel表格怎樣批量合並
① 如何批量合並多個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.選擇開始選項卡,在對齊方式中選擇合並單元格。