[حل شده] اضافه کردن یک سطر خالی پس از سطرهای مشابه

[ehsan8346020]

با عرض سلام و احترام و تبریک سال نو
ممنون از مطالب جذاب وبسایت شما
سوال در مورد اینه که تعدادی زیادی (حدود 500000 تا) کدعددی (مشابه کدملی) دارم که باید پس از سورت کردن، بعد از هر تعداد کد مشابه یک سطر رنگی یا یه سطر خالی ایجاد کنم. راهنمایی بفرمایید چطوری این کار رو انجام بدم.
البته تعداد این کدهای مشابه یکسان نیست. ممکنه از برخی کدها 4 تا مشابه و از برخی دیگر 3 تا مشابه باشه. متشکرم

[iranweld]

با سلام

فایل پیوست را ملاحظه کنید

چنانچه در فایل خود بیشتر از 10000 سطر دارید این عدد را به 1.3 برابر سطر خود تغییر دهید

Sub TEST()

Dim K, Z1

For I = 1 To 10000

XX = Application.CountIf(Range("A1:A10000"), Range("A" & I))

If XX > 0 And Range("A" & I) <> "" Then

I = I + XX

Rows(I & ":" & I).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("A" & I).Interior.ColorIndex = 4

End If

Next

End Sub