اضافه كردن رديف

[rosesefid]

دوستان يه سوال فوري دارم من يه فايل دارم 7900 رديف داره ميخوام بين هر 2 رديف يه رديف خالي ايجاد كنم البته در كمترين زمان لازم چي كار كنم؟ اگر بخوام دونه دونه با كنترل رديفهارو انتخاب كنم insert كنم خيليييي طول ميكشه

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Alireza]

سلام
بنظرم بهتره از vba کمک بگیرید.

[Nima]

سلام
بنظرم بهتره از vba کمک بگیرید.

از ماکرو زیر استفاده کنید:

Sub test()
Dim j As Long, r As Range
    j = 2
    Set r = Range("A1")
    Do
        Range(r.Offset(2, 0), r.Offset(2, 0)).EntireRow.Insert
        Set r = Cells(r.Row + 3, 1)
        If r.Offset(1, 0) = "" Then Exit Do
    Loop
End Sub

[rosesefid]

من تا حالا ماكرو كار نكردم ميشه بگين بايد چي كار كنم؟

[Amir Ghasemiyan]

من تا حالا ماكرو كار نكردم ميشه بگين بايد چي كار كنم؟

در محيط اكسل كليدهاي تركيبي Alt+f11 رو بزنيد. وارد محيطي ميشيد كه اسمش ويژوال بيسيك هست.
حالا از منوهاي بالا گزينه insert رو بزنيد و module رو انتخاب كنيد. سمت راست صفحه، قسمت سفيد رنگ بزرگي ايجاد ميشه. كدهاتون رو داخل اون قسمت بنويسيد

[maziardm]

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

[khakzad]

سلام
با این سوال شما یک کاربرد از paste special کشف کردم و بسیار خرسندم
یک راه قبلا وجود داشت برای اضافه کردن ردیف. ولی یک درمیون.به این شکل که کنار داده ها ستون اضافه می کردیم (من برای ستون شامل 10 عدد مثال می زنم که واضح باشه)
یک ستون اضافه می کنیم.از اولین ردیف یک سری عددی اضافه می کنیم.اینجا میشه 1 تا 10 (چون 10 ردیف داده داریم).بعد همون ها رو کپی می کنیم انتهای همون ستون.یعنی یک سری ده تایی دیگه اضافه می شه. با این تفاوت که دیگه جلوی سری دوم داده نداریم و خالی هست. حالا میایم اون ستون رو sort م یکنیم.می بینیم که اعداد مرتب شدند و ردیف های خالی یک در میون ظاهر شدند

حالا برای سوال شما باید اعداد رو به این شکل وارد کنیم و بعدش فقط یک سری به زیر داده ها اضافه کنیم. درسته؟ پس :
1
1
2
2
3
3
4
4
.
.
. تا اخر (تا جایی که داده هست)
و
1
2
3
4
.
.
.
پایین داده ها و sort
حالا نکته ای که مطرح هست وارد کردن داده هاست به ترتیب های مختلف.
برای حالت اول که بسیار ساده هست. با دبل کلیک و یا استفاده از series می تونید داد ها رو به ترتیب ایجاد کنید.
اما اینجا برای وارد کردن عدد به این سبک به شیوه زیر عمل کنید:
اول یکی درمیون عددد 1 و 2 وارد کنید بعد طبق شکل محدوده ابی رو انتخاب کنید و درگ کنید. تا اینجا اعداد یکی در میون داریم.حالا برای اینکه بینشون هم عدد بیاریم این کار جالب رو انجام میدیم. اعداد رو توی یک ستون دیگه کپی کنید .بعد بیاید روی a2 کلیک کنید. کلیک راست===>paste special و گزینه skip blank رو تیک بزنید و Ok.
حالا اعداد رو به شکلی که می خوایم داریم.

ادامش هم یک سری دیگه عدد می زنیم. چون یک ردیف می خوایم اضافه کنیم سری معمولی می زنیم.اگر دو تا بخوایم باید همون داده ها رو ادامه بدیم.
در نهایت به این شکل می رسیم.

فقط sort مونده.

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

[rosesefid]

مرسي ولي واقعيتش خيلي سر درنياوردم!!!! :D البته توضيحات شما كامل بودها شايد من .....!!!
خب من الان چطوري سورت كنم كه بين هر رديف يه رديف خالي بوجود بياد؟!!!! فايل من 2335 رديف داره 23 ستون!!!!

[Behnam]

اعداد رو همونجور که خانم خاکزاد گفت وارد کنید بعد همون ستون رو سورت کنید،از تب data برید ، A TO Z رو بزنید
اتفاقی که میوفته اعداد مشابه ای که تولید کردید پشت سر هم قرار میگیره و چون مثلا 1 دومی ردیفی خالی بود پس بین 1 و 2 یک ردیف خالی بوجود میاد

[rosesefid]

من همين كارو كردم به شكل دوم هم رسيدم ولي خب مثلا جلوي 2 اول و دوم داده دارم سورت هم كه ميكنم همه اعداد ترتيبشون درسته ديگه چيزي تغيير نميكنه