Tạo sheet hàng loạt và đặt tên từ danh sách có sẵn

[yukito300593]

các cao nhân cho mình hỏi là có cách nào mình có thể tạo sheet hàng loạt và đặt tên tên theo danh sách có sẵn không ah?
vd: mình có một file excel gồm 2 sheet, sheet 1 là danh sách tên sheet chưa ở cột A
sheet 2 là sheet mẫu. mình chỉ cần quét khối những tên trong sheet 1 mà muốn tạo mới có nội dung giống sheet 2 . giống như file đính kèm ạ.

 

[phulien1902]

các cao nhân cho mình hỏi là có cách nào mình có thể tạo sheet hàng loạt và đặt tên tên theo danh sách có sẵn không ah?
vd: mình có một file excel gồm 2 sheet, sheet 1 là danh sách tên sheet chưa ở cột A
sheet 2 là sheet mẫu. mình chỉ cần quét khối những tên trong sheet 1 mà muốn tạo mới có nội dung giống sheet 2 . giống như file đính kèm ạ.

Thử:

    Dim i%, LR%
    LR = Sheet1.Range("A1").CurrentRegion.Rows.Count
    For i = 2 To LR
        Sheet2.Range("A1").CurrentRegion.Copy
        Sheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Paste
        ActiveSheet.Name = Sheet1.Range("A" & i).Value
    Next i
    Application.CutCopyMode = False

 

[yukito300593]

cám ơn bạn, bạn làm quá chuẩn, bạn có thể giúp mình thêm một tí nữa được không. vd mình có sẵn một list tên sheet, mình chỉ cần quét khối hoặc chọn nhưng tên mà mình muốn tạo sheet mới, rồi mình chạy vba. bạn giúp mình được không? cám ơn bạn trước

 

[phulien1902]

cám ơn bạn, bạn làm quá chuẩn, bạn có thể giúp mình thêm một tí nữa được không. vd mình có sẵn một list tên sheet, mình chỉ cần quét khối hoặc chọn nhưng tên mà mình muốn tạo sheet mới, rồi mình chạy vba. bạn giúp mình được không? cám ơn bạn trước

Bạn thử:

 Dim i%, LR%, Rng As Range, Cll As Range
    Set Rng = Application.InputBox("Quet vung chon:", "Thong bao", Type:=8)
    For Each Cll In Rng
        Sheet2.Range("A1").CurrentRegion.Copy
        Sheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Paste
        ActiveSheet.Name = Cll.Value
    Next Cll
    Application.CutCopyMode = False