[حل شده] تبدیل جدول

[HnnY]

با سلام و خسته نباشید.
جدولی به صورت جدول سمت چپ شکل پیوست به بنده داده شده. آیا راهی وجود داره که این جدول رو به جدول سمت راست شکل پیوست تبدیل کرد؟
با تشکر پیشاپیش از راهنمایی تون.
بنده در این انجمن تازه وارد هستم عذر خواهی می کنم اگر سوال تکراریه یا در بخش نا مناسبی ارسال شده.

[Amir Ghasemiyan]

سلام دوست عزیز

منظورتون اینه که جای سطر و ستون ها جابجا بشه؟درسته؟

اگه این مد نظرتونه کافیه محدوده مورد نظرتون رو کپی کنید و بصورت transpose پیست کنید

[HnnY]

سلام دوست عزیز

منظورتون اینه که جای سطر و ستون ها جابجا بشه؟درسته؟

اگه این مد نظرتونه کافیه محدوده مورد نظرتون رو کپی کنید و بصورت transpose پیست کنید

ممنون از توجهتون
خیر منظورم جابه جا کردن سطر وستون نیست. جدول دیتای داده شده کل اطلاعات در یک ستون نوشته شدن. راهی وجود داره که بر اساس ستون سمت چپ که نوع اون داده رو(مثلا: نام خانوادگی....) مشخص کرده داده ها به ستون خودشون انتقال پیدا کنند.
فایل اکسل نمونه رو در پیوست قرار دادم. متاسفانه در وارد کردن داده ها دقت نشده و مقدار زیادی وروذی به همین صورت موجوده و امکان اصلاح دستی وجود نداره.

[Amir Ghasemiyan]

الان متوجه شدم
خب با فرمول نویسی میشه ولی راحت تره که با کدنویسی مشکلتون حل بشه.
اگر دیتاهاتون با همین نظم و ترتیب باشن و دقیقا بین هر سری داده یک سطر فاصله باشه خیلی راحت با کد زیر میتونین همه رو مرتب کنین

Sub Macro1()

j = 2
For i = 2 To [COLOR="#FF0000"]40 Step 7
    Range("A" & i & ":A" & i + 6).Copy
    Range("E" & j).PasteSpecial Paste:=xlPasteValues, Transpose:=True
    j = j + 1
Next i
End Sub

فقط دقت بفرمایید بجای عدد 40 که با قرمز هم مشخص کردم شماره آخرین ردیف داده هاتون رو وارد کنید. اگر مشکلتون حل نشد بفرمایید تا راه حل های دیگه رو امتحان کنیم

[/COLOR]