亲，貌似没那么复杂： Sub hbdyg()Dim rg As RangeFor Each rg In Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row) If rg.Offset(0, -1).MergeArea.Address = rg.Offset(-1, -1).MergeArea.Address And rg = rg.Offset(-1, 0).MergeArea...
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024