[حل شده] تبدیل جدول چند سطری و چند ستونی به یک سطر واحد

[reza2333]

سلام دوستان
ببخشید توی اکسل امکان این هست که یه جدول با 6 ستون و 100 ردیف رو به صورت 1 سطر 600 سلولی در بیارم به طوری که همه ی سطر ها با همون ترتیب قبلی توی 1 سطر پشت سر هم قرار بگیرن؟ اینم بگم که سلول ها حاوی فرمول هستن و با تبدیل جدول فرمول ها باید حتما ثابت بمونن.

ممنون میشم اگه کسی بلده راهنماییم کنه

[iranweld]

با سلام

برای کپی شدن مقادیر از ماکرو ذیل استفاده کنید ولی برای ثابت ماندن فرمولها بایستی بررسی بیشتری صورت گیرد.

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

و بخاطر محدودیت در تعداد ستونها ، بجای سطر در یک ستون کپی گردید

Sub test()

i = 1

For Each cell In ActiveSheet.UsedRange

cell.Copy Destination:=Sheet2.Range("a" & i)

i = i + 1

Next

Sheet2.Select

End Sub 

[reza2333]

با سلام

برای کپی شدن مقادیر از ماکرو ذیل استفاده کنید ولی برای ثابت ماندن فرمولها بایستی بررسی بیشتری صورت گیرد.

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

و بخاطر محدودیت در تعداد ستونها ، بجای سطر در یک ستون کپی گردید

Sub test()

i = 1

For Each cell In ActiveSheet.UsedRange

cell.Copy Destination:=Sheet2.Range("a" & i)

i = i + 1

Next

Sheet2.Select

End Sub 

مررررررررررررسی همینم کارمو راه انداخت. ممنونم از راهنماییتون. لطف کردین