Snasui Excel Forum

ได้ครับ ขอบคุณครับ

แนบไฟล์ตาม link ข้างล่างครับ
https://drive.google.com/drive/folders/ ... sp=sharing

ผมแก้ข้อ4 เรียบร้อยครับ
ข้อ5 ไม่แน่ใจต้องแก้ยังไงครับ

อยากทราบว่า excel แยก cell ไป colume แบบมีตัวแปรข้างหน้าลักษณะโจทย์และคำตอบยังไงได้บ้างครับ แบบไปรวมใน sheet ใหม่

รูปตัวอย่าง
File= สิ่งที่อยากให้เป็น
Image-nw 1.jpg = ของจริงเป็นลักษณะนี้

โอ้ว ขอบคุณ คุณ logic มากๆครับ

เวลา ผม run sheet 2123 อยู่ทุกไฟล์ แต่ไม่อยู่ sheet แรกครับ

ประมาณนี้ครับ
แบบ sheet1 ไป ยังทุกไฟล์ที่แยกออกมาครับ ให้อยู่ sheet แรกทุกไฟล์ ที่คุณ logic อีกนิดเดียว

อ่อครับ
แต่ลองดู Save file ออกมาเป็น workbook ได้แค่อันเดียวครับ ทำยังไงให้ ได้ workbook เท่ากับ sheet ครับ

แนบไฟล์ครับ

ผมลอง debug

Dim i As Integer
For i = 1 To Workbooks("SheetToWorkbook.xlsb").Worksheets.Count
With Workbooks("SheetToWorkbook.xlsb")
.Activate
.Worksheets(Array(.Worksheets(i).Name, "Sheet1")).copy
End With
strFileName = ActiveSheet.Name & ".xlsx"
ActiveWorkbook.Sheets(1).Range("b1").Value ...

ตอนนี้แยก sheet to file ได้แต่ อยากให้ sheet 1 ไปด้วยทุกไฟล์ครับ เช่น workbookA(sheet1,2) workbookA(sheet1,3) ค่า 2,3+ ไปจนหมดครับ

Public Sub rr()
Dim i As Integer


For i = 1 To Workbooks("SheetToWorkbook.xlsb").Worksheets.Count


Workbooks("SheetToWorkbook.xlsb").Worksheets(i).copy ...