电脑知识|wps如何合并单元格，wps怎么几个格子弄成一个( 三 )

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”替换成你需要的列

wps表格中如何合并单元格一、首先，打开WPS表格程序，新建一张工作簿。
二、然后选中要合并的几个单元格。
三、然后在WPS主界面上方点击“开始”然后找到图中的图标。
四、然后点击该图标会出现多项选择的弹出的下拉菜单。

五、然后在下拉菜单中选择打开“合并及居中” 。
六、另外可以通过键盘快捷键，按下CTRL+M或者 F4快捷键即可合并单元格。
七、回到表格位置，单元格合并成功。

iPad上用wps做表格怎么合并单元格