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

[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