单元格按照层级合并问题！并交朋友做个小项目。

yanghang29

3190496160 发表于 2020-8-30 08:38
Sub hebing()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

明显合并后，右面的低级别超出了左边的高级别界限，大侠可以尝试修改再试试。那个合并的判别依据也是我自己想出来的，觉得相对有规律、简单，你只要能实现功能，用其他判别方法也可以试试。

3190496160

yanghang29 发表于 2020-8-30 13:06
明显合并后，右面的低级别超出了左边的高级别界限，大侠可以尝试修改再试试。那个合并的判别依据也是我自 ...

呵呵呵，膜拜你了

yanghang29

3190496160 发表于 2020-8-30 17:36
呵呵呵，膜拜你了

呵呵，我确实水平太低，我要是有做错的地方，请多指正。

yanghang29

准提部林 发表于 2020-8-30 12:06
Sub TEST()
Dim R&, xR As Range, xH(1 To 6) As Range, xE As Range, j%
R = [F65536].End(xlUp).Row

大神，两年前的问题，我现在终于看懂代码的含义了，多谢了！唯一还看不懂的地方是R+1，为什么要在最后一行结束后，再加一行循环？？这个我琢磨半天，还是看不懂，多加一行循环对结果没影响吧？！请在百忙中抽时间解惑。不胜感谢！

准提部林

yanghang29 发表于 2022-11-29 14:10
大神，两年前的问题，我现在终于看懂代码的含义了，多谢了！唯一还看不懂的地方是R+1，为什么要在最后一 ...

資料從第2行開始,
R+1, 是為防止資料只有一行時, 不會變從第一行開始

yanghang29

准提部林 发表于 2022-11-29 14:21
資料從第2行開始,
R+1, 是為防止資料只有一行時, 不會變從第一行開始

多谢，多谢！这种极端情况，还真是没考虑到。只有专业的人员才会考虑到各种可能的情况！受教了！谢谢你！