快速合并多个不规则单元格

jianghuan4577

请教.zip (9.18 KB, 下载次数: 26)

2019-7-22 13:32 上传

点击文件名下载附件

罗达

如果有许多数据，只有写代码合并才行

约定的童话

史上最精简合并代码，哈哈....
Sub 合并()
    Dim i, m
    m = [a65536].End(3).Row
    For i = 2 To m
        If Cells(i, 1) <> "" And Cells(i, 1).Offset(1, 0) = "" Then
            Range(Cells(i, 1), Cells(i, 1).Offset(1, 0)).Merge
            i = i - 1
        End If
        If m - i = 1 Then Exit Sub
    Next
End Sub

liangmutou01

vba代码如下：
Sub hb()
  js = 0
  qs = 30
  For h = 30 To Cells(Rows.Count, 1).End(xlUp).Row
    For hh = qs To 100000
      If Cells(hh, 1).Interior.ColorIndex = 6 Then
        js = js + 1
      Else
        Exit For
      End If
    Next hh
    If js > 0 Then
      Range(Cells(h, 1), Cells(hh - 1, 1)).Merge
      h = hh
    End If
    qs = h + 1
  Next h
End Sub

sishuiren

如果只是黄色的单元格合并的话，可以利用筛选黄色单元格，筛选后，选择可见单元格，合并后居中，再取消筛选即可

jianghuan4577

约定的童话 发表于 2019-7-22 14:37
史上最精简合并代码，哈哈....
Sub 合并()
    Dim i, m

你好， 我忘记怎么把你的代码直接插入了， 还有我们公司现在只让用wps，用这个软件的话， 怎么直接插入代码呢

jianghuan4577

liangmutou01 发表于 2019-7-22 15:29
vba代码如下：
Sub hb()
  js = 0

谢谢， 请问怎么插入代码呢？

jianghuan4577

sishuiren 发表于 2019-7-22 16:21
如果只是黄色的单元格合并的话，可以利用筛选黄色单元格，筛选后，选择可见单元格，合并后居中，再取消筛选 ...

很好用， 非常感谢感谢

CallmeLiziyuan

第一步：选择要合并的列，“定位条件-空值”，在其中输入“=&#11014;”，再摁“ctrl+enter”
第二步：在右边插入辅助列，全部填充数字1
第三步：选择合并列和辅助列，“分类汇总”
第四步：在辅助列，“定位条件-常量”，直接“合并单元格”第五步：选择合并列和辅助列，“分类汇总-全部删除”
第六步：“格式刷”，以辅助列为准刷合并列。

适用于绝大多数情况。

其实只要可以选中所有不规则的单元格，直接点“合并单元格”就可以实现合并。

所以楼主的表格只要可以选中所有的黄色单元格即可：

第一步：直接筛选黄色单元格，“定位条件-可见单元格”
第二步：“合并单元格”

因为恰巧楼主的黄色单元格都有灰色单元格进行隔断，如果仅有黄色连续的单元格，还是用最前面的方法有效。

musicmh

约定的童话 发表于 2019-7-22 14:37
史上最精简合并代码，哈哈....
Sub 合并()
    Dim i, m

为什么WPS运行这段代码的时候WPS就卡死了，,这段代码中m = [a65536].End(3).Row这句的[a65536]是第65536行吧，意思是要把A列全部运行一次吗？？比如只有第4行到第100行，怎么修改