Snasui Excel Forum

ต้องการวนแยก sheet ใน Excel โดยมีชื่อของ sheet ตาม column ที่มีใน file ทำอย่างไรค่ะ
ณ ปัจจุบันใช้แบบนี้อยู่แต่มันสามารถแยกได้แค่ sheet เดียว คือ
1. อยากให้วนแยก sheet ใน Excel โดยมีชื่อของ sheet ตาม column ที่มีใน file ค่ะ
2. อยากให้ copy sheet จากต้นฉบับไปเรื่อยๆ จนครบจำนวนชื่อใน column ค่ะ
รบกวนผู้รู้ตอบให้ด้วยค่ะ

Sub Macro1()
Dim i As Integer
For i = 1 To Workbooks("test.xlsm").Worksheets.Count
Workbooks("test.xlsm").Worksheets(i).Copy
ActiveSheet.Name = Workbooks("test.xlsm").Sheets(i).Range("A1").Value
Next i
End Sub

ควรแนบไฟล์ตัวอย่างมาด้วยครับ เพื่อนสมาชิกจะได้ช่วยดูและเข้าใจตรงกัน และแจ้งด้วยว่าติดปัญหาตรงไหนของโค้ด