[حل شده] کنار هم قرار دادن چند ستون از فایل های مختلف

[سوده68]

سلام خسته نباشید
من یه ماتریس دارم با 500 تا ستون داره. میخوام هر کدوم از ستون های این ماتریسم رو جدا کنه و تو یک فایل اکسل برام ذخیره کنه
یعنی درواقع نهایتا 500 تا فایل اکسل داشته باشم با یک ستون
امکانش هست همچین چیزی؟؟
ممنون میشم کمکم کنید

[امين اسماعيلي]

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

[امين اسماعيلي]

با درود
این کد رو تو همون شیتی که ستون هاتون هست واسه یه کلید بزارین.

ابتدا یه پیام میاد که شما میتونی مشخص کنی چند تا ستونو میخوای کپی کنی.( دیگه من فرض رو بر این گداشتم که شما یه اکسل اصلی داریم و توی یه فولدر گذاشتین و تو همون فولدر براتون این کارو انجام بده). این یه برنامه تکمیلی نیست که بره چک کنه اگر فایل اکسلی به همون نام بود کپی کنه یا نکنه و ....

فقط کارتون راه میندازه

Dim n
n = InputBox("Please enter the total colum which you want to be copied in separate files", "Number of column in your file")
If n = blank Then Exit Sub  'check if the user click cancel or close button
'""""""""""""""""""""""""""""""""""
If IsNumeric(n) = False Then ' check if the user didn't enter number
MsgBox "your input is not number"
Exit Sub
End If

If n <= 0 Then ' check if the user didn't enter a number greater than 0
MsgBox " your input should be greater than zero"
Exit Sub
End If


Dim i
For i = 1 To n
Dim thisWb As Workbook
        Set NewBook = Workbooks.Add
        Set thisWb = Workbooks(ThisWorkbook.Name)
        thisWb.Worksheets(ActiveSheet.Name).Columns(i).Copy
  NewBook.Worksheets("Sheet1").Range("A1").PasteSpecial (xlPasteValues)
   NewBook.SaveAs Filename:=thisWb.Path & "\" & i & ".xlsx"
     NewBook.Close savechanges:=True
    Next i

[سوده68]

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

ممنونم ازتون
خوب این ها داده های من هستند که از میکروکنترلر تحت حمله من بدست اومده
باید این 500تا ستون برام جدا بشه و به 500 فایل اکسل تبدیل شه که بتونم به این 500تا فایل حمله کنم..
الان این برنامه ای ک لطف کردین و نوشتین رو توی همون module باید بنویسمش و اجراش کنم؟؟؟
ببخشید من خیلی اکسل بلد نیستم ممنون میشم بگین کجا رانش کنم

[امين اسماعيلي]

یه کلید تو همون شیت که 500 تا ستون داره میزاری. امیدوارم تب developer رو بلد باشی فعال کنی. بعدش این کد رو برای اون کلیدت بزار. یا اینکه 500 تا ستونت رو تو فایل زیر کپی کن. و کلید رو بزن

[سوده68]

یه کلید تو همون شیت که 500 تا ستون داره میزاری. امیدوارم تب developer رو بلد باشی فعال کنی. بعدش این کد رو برای اون کلیدت بزار. یا اینکه 500 تا ستونت رو تو فایل زیر کپی کن. و کلید رو بزن

خیلی خیلی خیلی ازتون سپاسگزارم
درست شد......میسی