不规则合并单元格如何用VBA写编号

wycjsha

不规则合并单元格如何用VBA写编号

山菊花

原代码稍作修改：
1、起始行号改为i1(A2的下一单元格）
2、取得n的初值
     n = Range("a2").Value
    i1 = Range("a2").MergeArea.Count + 2
    For i = i1 To lr
        n = n + 1
        l = Range("a" & i).MergeArea.Count
        Cells(i, "a") = n
        i = i + l - 1
    Next i

wycjsha

谢谢版主。