[حل شده] عمودی کردن سلول ها

[chiften]

سلام
خسته نباشید
من یک فایل دارم که 5 تا ستون و نزدیک 1500 تا سطر داره در همش عدد هست من میخوام همه ی اعداد رو به ترتیب بیارم تو یک ستون زیر هم
یعنی اعداد سطر یک اول زیر هم بیاد بعد اعداد سطر 2 و ...
میخواستم ببینم آیا امکانی داره اکسل که بشه این کار رو کرد ؟؟؟ خیلی بهش احتیاج دارم
یکی میگفت باید با مطلب کنی میخواستم ببینم میشه خود اکسل این کار رو کنه ؟؟

ممنون
فایل پیوست شد

[amir_ts]

با سلام
کد زیر رو امتحان کنید.به ترتیب ردیف ها رو در ستون 10 (j) قرار میگیره.اگر خواستید در ستون دیگه قرار بگیره در این قسمت کد به جای عدد 10 ، عدد ستون مورد نظر رو قرار بدید.
ضمنا چون احتیاج به کد نویسی داره باید با تالار مربوطه منتقل بشه.

sh1.Cells(k, 10).Value = sh1.Cells(i, j).Value 

[LEFT]
Sub test()
   Dim N, i, k, j As Long
   Dim sh1 As Worksheet
   k = 1
   Set sh1 = Sheets("Sheet1")
   N = sh1.Cells(Rows.Count, "A").End(xlUp).Row
   For i = 1 To N
      For j = 1 To Columns.Count
         If sh1.Cells(i, j) <> "" Then
            sh1.Cells(k, 10).Value = sh1.Cells(i, j).Value
            k = k + 1
         Else
            Exit For
         End If
      Next j
   Next i
End Sub
[/LEFT]

[chiften]

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