wps，怎么批量合并单元格内容？

因为我这里没有WPS，只有Excel，我说说Excel的做法吧。

1. 表面上看着像合并，修改外边框就行了，但是看图你这个确实是合并过的，于是只能用range("i" & 起始行号 & ":i" & 终止行号).merge这样的代码了，这是合并，然后再填入数字，需要用chr(10)来强制换行，说了这么多直接上代码吧

2. Sub a()

3. Dim i As Long '循环的行

4. Dim j As Long '合并的循环

5. Dim Qsh As Long '起始行

6. Dim Zzh As Long '终止行

7. Dim str1 As String

8. For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row

9. If Range("a" & i) = 1 Then

10. Qsh = i

11. End If

12. If Range("a" & i) <> "" And Range("a" & i) <> 1 And Range("a" & i + 1) = 1 Or Range("a" & i + 1) = "" Then

13. Zzh = i

14. Range("b" & Qsh & ":b" & Zzh).Merge

15. For j = Qsh To Zzh

16. If j = Zzh Then

17. str1 = str1 & Range("a" & j)

18. Else

19. str1 = str1 & Range("a" & j) & Chr(10)

20. End If

21. Next j

22. Range("b" & Qsh) = str1

23. str1 = ""

24. End If

25. Next i

26. End Sub

效果如下图：

我这里数据来源是A列，你可以把代码里面的“A”替换成你需要的列

鼠标左键按住不放，选中123，然后松开鼠标，按ctrl和M键完成合并。

假定：

1. 原表格的第一行在Excel表格的第7行；

2. E列数据所对应的个数不超过10个；

   如果大于10，可以在公式中的“&CHAR(10)&F16”后面增加“&CHAR(10)&F17......”

3. 原表格的最后一行在Excel表格的第10000行；

   如果小于10000，如，21，将公式中的两个“F$10000”修改成“F$21"

4. 原表格的后面有若干空行。

   空行数不小于E列数据所对应的个数的最大值

1. 在I7单元格中输入公式：=IF(E7=0,"",LEFT(F7&CHAR(10)&F8&CHAR(10)&F9&CHAR(10)&F10&CHAR(10)&F11&CHAR(10)&F12&CHAR(10)&F13&CHAR(10)&F14&CHAR(10)&F15&CHAR(10)&F16,IFERROR(MATCH(1,F8:F$10000,0),COUNTA(F7:F$10000))*2-1))

2. 选中I7单元格，下拉复制到表格的最后一行；

3. 复制E列，选择性粘贴格式到F列；

4. 设置F列格式为“自动换行”

1 打开需要编辑的表格，如下图所示：2 从打开的表格里，可以看到表格中A列是月份，B列是日期，现在我们要做是把A列和B列的内容批量

看看wps版本有代码不，这个需代码解决。