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

[ali719]

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[amir_ts]

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

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