เคยเป็นไหมเวลาได้รับไฟล์Excelแล้วเจอข้อมูลหลาย Sheet แต่ต้อง Save ออกมาทีละ Sheet วันนี้มี Trick เล็กๆมาแนะนำการแยกชีทโดย Macro มีขั้นตอนดังนี้

1.ไปที่ File >> Option >>Customize Ribbon>>Develop

2.เปิดไฟล์ที่ต้องการจะแบ่ง Sheet แล้วไปที่ Toolbar >> Develop>>Macro

3.ตั้งชื่อ Macro และ กด Create

4.นำสูตร Macro ไปวางแล้วกด Run

Sub Splitbook()
            MyPath = ThisWorkbook.Path
            For Each sht In ThisWorkbook.Sheets
            sht.Copy
            ActiveSheet.Cells.Copy
            ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
            ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats
            ActiveWorkbook.SaveAs _
            Filename:=MyPath & "\" & sht.Name & ".xlsx"
            ActiveWorkbook.Close savechanges:=False
            Next sht
        End Sub

5.เราจะได้ File Excel ที่ถูกสร้างขึ้นจากการแบ่ง Sheet