PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : تکرار یک سطر



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

khakzad
2013/11/21, 16:56
سلام
= بذارید جواب میده.کل 20 ردیف مورد نظر رو انتخاب کنید و = با ردیف اول بزنید و ctrl+enter......
اگر این روش به کارتون نمیاد بفرمایید ی فکر دیگه کنیم

reza_1001
2013/11/21, 19:29
سلام آقای خاکزاد ، ممنون از پاسختون .
ولی بنده 365 سطر دارم وباید هر سطری 24 بار پشت سر هم تکرار بشه . اگر بخام این کاری که فرمودید انجام بدم ساعتها طول میکشه و امکان اینکه سطری رو اشتباه وارد کنم بسیار زیاده.
آیا تابعی و یا راه حل بهتری سراغ دارید؟

Amir Ghasemiyan
2013/11/21, 21:12
سلام
ببخشيد خانم خاكزاد من جواب ميدم

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

reza_1001
2013/11/21, 22:05
سلام آقا امیر ، ممنون از پاسختون .
اگه لطف کنید در فایل پیوست فرمول رو برام بنویسید ممنونتون میشم.

Amir Ghasemiyan
2013/11/21, 23:19
سلام آقا امیر ، ممنون از پاسختون .
اگه لطف کنید در فایل پیوست فرمول رو برام بنویسید ممنونتون میشم.

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

Amir Ghasemiyan
2013/11/22, 00:06
با اين كد ماكرو هم ميتونين كار كنين



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
2013/11/22, 05:59
سلام ..ممنون آقا امیر ، مشکلم حل شد .

~M*E*H*D*I~
2013/11/22, 11:29
با تشکر از امیر عزیز ، فایلی که بنده دیدم بیشتر به نظرم اومد تکرار ستون مد نظر هست کد زیر برای ده سطر و هر سطر 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
2013/11/23, 00:42
سلام آقای خاکزاد ، ممنون از پاسختون .
ولی بنده 365 سطر دارم وباید هر سطری 24 بار پشت سر هم تکرار بشه . اگر بخام این کاری که فرمودید انجام بدم ساعتها طول میکشه و امکان اینکه سطری رو اشتباه وارد کنم بسیار زیاده.
آیا تابعی و یا راه حل بهتری سراغ دارید؟
سلام
اره خب
خیال کردم همین دوتاست!!
به هر حال دوستان زحمتشو کشیدن
موفق باشید

reza_1001
2013/11/23, 04:07
با سلام خدمت همه دوستان ....دست همتون درد نکنه مشکلم حل شد.
یا علی