㈠ 如何快速批量合并单元格而内容不变。如下两图
设数据简略如图：
选中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