کپی اطلاعات یک ستون مشخص از چندین شیت به یک شیت مشخص

[mobinsaffarpour]

باسلام خدمت اساتید و دوستان محترم

در صورت امکان دستوری را نیاز دارم تا بتوانم اطلاعات شیت های دیگر را که همگی در یک ستون (A) قرار دارند بصورت مرتب و پشت سر هم در یک شیت کپی شوند.

ضمناً نمونه فایل را در اینجا قرار می دهم

یعنی اطلاعات تمامی ردیف های A را از شیت Table7 تا Table14 در شیت Table 0 بصورت مرتب و پشت سر هم کپی کنم .

[generalsamad]

با سلام
اگه منظورتون مرتب سازی اعدادتون توی یک شیت باشه توی فایل ضمیمه انجام شده

بعضی از سلولها عدد بودند و بعضی هم عدد نبودن
چون توی بعضی سلولها بین اعداد فاصله بود و ایرادهای دیگه ای هم داشت
من با استفاده از replace همه اون ایرادها رو گرفتم و سلولها رو به number تبدیل کردم و در آخر مرتب سازی رو انجام دادم

فایل ضمیمه گردید

[iranweld]

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

 Selection.SpecialCells(xlCellTypeLastCell).Select
    rowNumberValue = Selection.SpecialCells(xlCellTypeLastCell).Select
    xx = ActiveCell.Row
    Cells(xx + 1, 1).Select 

[mobinsaffarpour]

سلام دوست عزیز مرسی از توجهی که کردی اما یک سوال اگر شیت ها 200 تا بودند چی . یعنی باید بیام برای هر یک شیت دستور Sheets("Table 9").Select رو تعریف کنم ؟؟؟؟

[iranweld]

با سلام
شما فرمودید تا table 14 ، من هم برای شما تا شیت 14 ردیف کردم
فایل پیوست برای هر چی شیت در woorksheet داشته باشید جواب میده با اضافه کردن دستور for

For j = 2 To ThisWorkbook.Worksheets.Count
    
    Sheets(j).Select