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

[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