对不连续表格如何进行跨行合并

wjs7749

如何让左侧表格,A列和B列（前几个已标注黄色），不连续的单元格快速合并，合并时不能缺失内容，除了手动合并之外，有没有更好的办法。C:\Users\Lenovo\Desktop\图片

minchar

有阅读没回复，请模拟结果

白栎

1. Sub 合并单元格()
   
2. '
   
3. col = 2 '第几列
   
4. k = Range("A65536").End(3).Row
   
5. For i = 1 To k
   
6.     If Cells(i, col) = "" Then
   
7.         Range(Cells(i - 1, col), Cells(i, col)).Merge
   
8.     End If
   
9. Next i
   
10. End Sub

复制代码

用vba其实挺方便的，不过不是太会，写的有点粗糙

wjs7749

白栎 发表于 2022-5-28 13:31
用vba其实挺方便的，不过不是太会，写的有点粗糙

谢谢，B列已经合并了。谢谢大侠！