[حل شده] اضافه شدن خودکار عنوان در ردیفهای مختلف یک صفحه

[samy.tabrizi]

سلام وقت بخیر
من یک فایل اکسل با 10 هزار رکورد دارم که باید عنوان مربوط به هر ستون بالای تمام سطرها اضافه بشه، برای مثال اگر عنوان ستون ادرس باشه و توی ردیف دوم یک ادرس قید شده باشه ، در ردیف سوم مجدد عنوان آدرس میخوره و زیرش یه ادرس جدید ردیف پنجم مجدد میخوره ادرس و زیرش یک ادرس جدید و ............
راهی هست که این کار به شکل اتوماتیک انجام بشه ؟
ممنون میشم راهنماییم کنید

[alfa]

سلام
کاربر محترم لطفا یک فایل نمونه دقیقا آنچه لازم دارید پیوست کنید تا مطابق آن اقدام شود

[saed.rasa]

سلام

به انجمن محبوب اکسل ایران ،خوش آمدید!

2 مرحله زیر را اجرا کنید لطفا

1) ایجاد ردیف های خالی یک در میان
2) انتخاب سلول های خالی و پر کردن آنها

[samy.tabrizi]

سلام منظورم مشابه این فایله

[iranweld]

با سلام
فایل پیوست را چک کنید

Sub Macro1()

Application.ScreenUpdating = False

On Error Resume Next

NextRow = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To NextRow * 2

If InStr(1, Range("a" & i), "استان") > 0 And InStr(1, Range("a" & i - 1), "آدرس") = 0 Then
    
    Rows(i & ":" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
    Range("a" & i) = "آدرس"
    
    i = i + 1
    
    End If
    Next
    
 Application.ScreenUpdating = True
     
End Sub 

[samy.tabrizi]

ممنونم مشکلم حل شد