تبدیل در اکسل

[Hamid.Mcse90]

با سلام
می خواهم یک ستون 500 سطری را به 10 ستون 50 ردیفی تبدیل کنم

[Nima]

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

Sub SplitInto50CellsPerColumn()


    Dim X As Long, LastRow As Long, vArrIn As Variant, vArrOut As Variant
    
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    vArrIn = Range("A1:A" & LastRow)
    
    ReDim vArrOut(1 To 50, 1 To Int(LastRow / 50) + 1)
    
    For X = 0 To LastRow - 1
        vArrOut(1 + (X Mod 50), 1 + Int(X / 50)) = vArrIn(X + 1, 1)
    Next
    
  Range("B1").Resize(50, UBound(vArrOut, 2)) = vArrOut
  
End Sub

[Nima]

یک راه دیگه هم استفاده از فرمول هست به شکل زیر البته:

فرض کنید که ستون شما در a شامل 600 ردیف هستش که می خواید به ستونهای 50 ردیفی تبدیل بشه حالا با یه حساب ساده
600/50 میشه 12 یعنی ما به 12 ستون نیاز داریم خوب حالا به فشار کلیدf5 یا ctrl+g به ابزار go to میریم اینجا باید رنج مورد نظر رو انتخاب کنید که اگه طبق حساب ما 12 تا ستون باشه و با توجه به اینکه ستون اصلی در a قرار داره باید در قسمت رفرنس b1:m50 رو انخاب کنیم بعد از زدن اینتر میبینید که محدوده انتخاب شده حالا باید فرمول رو وارد کنیم برای اینکار با فشردن f2 اولین سلول محدوده سلکت شده در حالت ادیت قرار میگیره که میتونیم فرمول رو وارد کنیم البته فرمول ما چون به صورت آرایه هستش بعد از past کردن با زدن دکمه ترکیبیshift+enter فرمول به تمام محدوده اجرا میشه:

=index($a$1:$a$7000,row(b1)+(50*(columns($b$1:b$1)-1)))

موفق باشید.

[Hamid.Mcse90]

سلام این روش نشد

[Hamid.Mcse90]

موبایلتو واسم می فرستی بپرسم ازتون سپاس

[Alireza]

سلام این روش نشد

سلام
فکر میکنم توی روش بکار گیری ماکرو اشکال دارید واگرنه روش دوستمون قطعا جواب میده