㈠ 如何快速批量合並單元格而內容不變。如下兩圖
設數據簡略如圖：
選中B1：E1單元格，右擊，如圖：
——「確定」——選中A1：A4單元格，點
，如圖：
對准右下角，游標成「+」狀時，按住左健向下拖至A16單元格，如圖：
再接著向右拖至E16單元格，如圖：
點
——「僅填充格式」，效果如圖：
㈡ excel中如何批量合並多行，並且保持換行
採用復制和粘貼可完成。
具體操作：
1、選中要合並的單元格，右鍵菜單復制；
㈢ 如何將兩個表格合並,還要保證兩個單元格的內容不變，並在一個單元格內！
1、打開Excel表格。
㈣ wps怎樣批量合並單元格 保持內容
選中已合並的單元格，再依次單擊「開始」選項卡-「格式刷」-「選擇其他需要合並的單元格」進行批量合並單元格。
㈤ 將兩個單元格內容合並到同一個單元格,並要求兩部分的字體格式保持原貌如何批量實現 也就是得到c1的結果
先在C列輸入公式，
如：C1=A1&"，"&B1 （數據多可以下拉復制）
然後，復制結果，用「選擇性粘貼」「數值」粘貼到A1，（「選擇性粘貼」可用右鍵打開快捷菜單中找
㈥ excel中如何批量合並表元而保持單元格內數據不變
選中C2,C3,設置單元格格式，合並單元格，確定，這時合並單元格應該是被選中的。單擊格式刷，把滑鼠移到C4，按住滑鼠左鍵把滑鼠向下拖，就能看到效果了。
㈦ wps，怎麼批量合並單元格內容
因為我這里沒有WPS，只有Excel，我說說Excel的做法吧。
表面上看著像合並，修改外邊框就行了，但是看圖你這個確實是合並過的，於是只能用range("i" & 起始行號 & ":i" & 終止行號).merge這樣的代碼了，這是合並，然後再填入數字，需要用chr(10)來強制換行，說了這么多直接上代碼吧
Sub a()
Dim i As Long '循環的行
Dim j As Long '合並的循環
Dim Qsh As Long '起始行
Dim Zzh As Long '終止行
Dim str1 As String
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Range("a" & i) = 1 Then
Qsh = i
End If
If Range("a" & i) <> "" And Range("a" & i) <> 1 And Range("a" & i + 1) = 1 Or Range("a" & i + 1) = "" Then
Zzh = i
Range("b" & Qsh & ":b" & Zzh).Merge
For j = Qsh To Zzh
If j = Zzh Then
str1 = str1 & Range("a" & j)
Else
str1 = str1 & Range("a" & j) & Chr(10)
End If
Next j
Range("b" & Qsh) = str1
str1 = ""
End If
Next i
End Sub
效果如下圖：
我這里數據來源是A列，你可以把代碼裡面的「A」替換成你需要的列
㈧ excel如何合並上下多個單元格,並保持內容不變
大家好！可以使用公式得到
㈨ 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
效果如圖
㈩ 請高手賜教。電子表格列怎樣批量遇空格就合並並保留原單元格內容到空格內。
Sub宏1()
Dimi%,a$
Fori=1ToRange("a"&Rows.Count).End(xlUp).Row+1
IfCells(i,1)<>""Then
a=a&Cells(i,1)&","
Else
Cells(i,1)=Left(a,Len(a)-1)
a=""
EndIf
Next
EndSub