تبدیل سطر به ستون اما ...

[bnyamin]

سلام تعداد زیادی سطر داریم حالا میخواهیم همه اونها رو
1- در یک ستون زیر هم و به ترتیب قرار بدیم
2- و اگر از یک میلیون بیشتر شدن سلولها بروند در ستون بعدی

[hosein]

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

[iranweld]

برای کپی در یک ستون از کدهای ذیل استفاده کنید

Sub TEST()

Z1 = Cells(1, Columns.Count).End(xlToLeft).Column

For J = 2 To z1

Z1 = Cells(Rows.Count, J).End(xlUp).Row

Z2 = Cells(Rows.Count, "A").End(xlUp).Row + 1

Range(Cells(1, J), Cells(Z1, J)).Copy Destination:=Range("A" & Z2)

Next

End Sub