شماره گذاری اتوماتیک در اکسل

[ali719]

سلام
در ستون a من می خوام شماره گذاری کنم اما مشکل من اینست که بعضی وقتها چند ردیف با هم merg هستند چه فرمولی بنویسم که اگه ردیف اول عددی وارد کردم بقیه ردیفها براساس ردیف ماقبل شمارگذاری شوند

[amir_ts]

با سلام
این کد رو امتحان کنید.محدوده ستون A و تا ردیف 50 در نظر گرفته شده که در صورت نیاز میتونید محدوده رو تغییر بدید.

[LEFT]
Sub NumMergedCells()
    Dim Rng As Range
    Dim WorkRng As Range
    Dim x As Integer
    On Error Resume Next
      Set WorkRng = Range("a1:a50")
        x = 1
    Set Rng = WorkRng.Range("a1")
    Do While Not Intersect(Rng, WorkRng) Is Nothing
        Rng.Value = x
        x = x + 1
        Set Rng = Rng.MergeArea.Offset(1)
    Loop
End Sub
[/LEFT]