Nhân bản trang tính

Cách thức tiến hành như sau .

1. Mở File Excel , tạo trang tính mới với tên là copySheet (tại ô A1 nhập chuỗi: Tên sheet nguồn, tại ô A2 nhập tên sheet cần nhân bản; tại ô B1 nhập chuỗi: tên sheet đích; từ ô B3 cho tới ô Bn nhập tên cho các sheet mới cần tạo .

2. Bấm Alt_F11, cửa sổ Microsoft Visual Basic mở ra , bấm menu Insert > Module .

Dán những nội dung dưới đây

Sub copySheet()
Dim sheetDich As Range
Dim i As Integer
Set sheetDich = ThisWorkbook.Sheets("copySheet").Range("b2")
Set sheetNguon = ThisWorkbook.Sheets("copySheet").Range("a2")
j = sheetNguon
Do Until sheetDich.Value = ""
i = ThisWorkbook.Sheets.Count
Sheets(j).Copy After:=Sheets(i)
ThisWorkbook.Sheets(i + 1).Name = sheetDich.Value
Set sheetDich = sheetDich.Offset(1)
Loop
End Sub

3. Quay trở lại Excel

4. Bấm menu Tool > Macro > Macro , bạn sẽ chọn copySheet và bấm Run

Các bài liên quan

Đổi tên các tập tin bằng macro
Tạo danh sách tên tập tinh bằng lệnh MS-Dos
Giới thiệu về Macro
Forms ComboBox
ActiveX ComBoBox
Định dạng tên la tinh
Nối nhiều sheet thành một sheet
Tạo mục lục tự động trong Excel
Nối nhiều File Excel thành một
Cách hiện tất cả trang tính đã ẩn
Tạo công thức đọc số tiền thành chữ