Tạo nhiều Worksheet bằng VBA trong Excel

Cách 1. Tạo nhiều sheet với tên tự động (Sheet1, Sheet2,…)

Sub TaoNhieuSheet()
    Dim i As Integer
    
    For i = 1 To 10
    'Them sheet vào cuoi
        Worksheets.Add After:=Worksheets(Worksheets.Count)
    'Doi ten sheet
        ActiveSheet.Name = "Sheet_" & i
    Next i
End Sub

Kết quả: tạo 10 sheet tên Sheet_1 → Sheet_10

2. Tạo sheet từ danh sách tên có sẵn

Sub TaoSheetTheoDanhSach()
    Dim arr
    Dim i As Integer
    
    arr = Array("DoanhThu", "ChiPhi", "NhanSu", "BaoCao")
    
    For i = LBound(arr) To UBound(arr)
        Worksheets.Add After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = arr(i)
    Next i
End Sub

3. Tạo nhiều sheet và kiểm tra trùng tên

Function SheetExists(sheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = Worksheets(sheetName)
    SheetExists = Not ws Is Nothing
    On Error GoTo 0
End Function

Sub TaoSheetKhongTrung()
    Dim i As Integer
    Dim ten As String
    
    For i = 1 To 5
        ten = "Data_" & i
        
        If Not SheetExists(ten) Then
            Worksheets.Add After:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = ten
        End If
    Next i
End Sub

4. Tạo nhiều sheet từ dữ liệu trong Exce

Ví dụ: danh sách tên sheet nằm ở cột A

Sub TaoSheetTuExcel()
    Dim i As Integer
    Dim ten As String
    
    i = 1
    Do While Cells(i, 1).Value <> ""
        ten = Cells(i, 1).Value
        
        Worksheets.Add After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = ten
        
        i = i + 1
    Loop
End Sub