تکرار یک سطر

[reza_1001]

سلام خدمت همه دوستان ...
سوالی داشتم :
2 سطر داده دارم و میخام داده سطر 1 تا سطر 20 تکرار بشه و داده سطر 2 از سطر 21 تا سطر 40 تکرار بشه .
باید چه فرمولی بنویسم . منظورم استفاده از autofill و یا استفاده از ماکرو نیست بلکه میخام یه fuctoin بنویسم .آیا شدنی است ؟

[khakzad]

سلام
= بذارید جواب میده.کل 20 ردیف مورد نظر رو انتخاب کنید و = با ردیف اول بزنید و ctrl+enter......
اگر این روش به کارتون نمیاد بفرمایید ی فکر دیگه کنیم

[reza_1001]

سلام آقای خاکزاد ، ممنون از پاسختون .
ولی بنده 365 سطر دارم وباید هر سطری 24 بار پشت سر هم تکرار بشه . اگر بخام این کاری که فرمودید انجام بدم ساعتها طول میکشه و امکان اینکه سطری رو اشتباه وارد کنم بسیار زیاده.
آیا تابعی و یا راه حل بهتری سراغ دارید؟

[Amir Ghasemiyan]

سلام
ببخشيد خانم خاكزاد من جواب ميدم

دوست عزيز نيازي نيست همه سلول ها رو دستي وارد كنيد. شما يك سلول رو فرمول ميدين. بعد با قابليت autofill تمام سطر اول رو فرمول ميدين. حالا براي سطرهاي 2-20 هم ميتونين از كپي استفاده كنين هم از autofill.
همين كار رو هم براي ليست دوم داده هاتون هم انجام بدين

[reza_1001]

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

[Amir Ghasemiyan]

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

عزيز الان منظورتون اينه كه دو ستون رو درست كنم يا 12 سطر؟

[Amir Ghasemiyan]

با اين كد ماكرو هم ميتونين كار كنين

Sub Macro1()
'
' Macro1 Macro
'


'
j = 1
For i = 1 To 4
    Range("A" & i & ":G" & i).Copy
    Range("I" & j).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("I" & j & ":O" & j + 20), Type:=xlFillDefault
    j = j + 20
Next i
End Sub

[reza_1001]

سلام ..ممنون آقا امیر ، مشکلم حل شد .

[~M*E*H*D*I~]

با تشکر از امیر عزیز ، فایلی که بنده دیدم بیشتر به نظرم اومد تکرار ستون مد نظر هست کد زیر برای ده سطر و هر سطر 5 تکرار نوشته شده با کمی اصلاحات برای سطر یا ستون قابل تعمیم هست

Sub Macro1()
For i = 1 To 100 Step 6
  For j = i + 1 To i + 5
    Rows(i).Select
    Selection.Copy
    Rows(j).Select
    Selection.Insert Shift:=xlDown
    Next j
    Next i
    
End Sub 

[khakzad]

سلام آقای خاکزاد ، ممنون از پاسختون .
ولی بنده 365 سطر دارم وباید هر سطری 24 بار پشت سر هم تکرار بشه . اگر بخام این کاری که فرمودید انجام بدم ساعتها طول میکشه و امکان اینکه سطری رو اشتباه وارد کنم بسیار زیاده.
آیا تابعی و یا راه حل بهتری سراغ دارید؟

سلام
اره خب
خیال کردم همین دوتاست!!
به هر حال دوستان زحمتشو کشیدن
موفق باشید

[reza_1001]

با سلام خدمت همه دوستان ....دست همتون درد نکنه مشکلم حل شد.
یا علی