Macro sau đây lặp qua mọi trang tính trong sổ làm việc và ghi tuần tự tên tab của từng trang tính vào một trang tính bạn chọn. Điều này có thể hữu ích cho một danh sách nhanh mọi trang tính trong một sổ làm việc có nhiều trang tính.
Liệt kê tất cả các Trang tính trong Sổ làm việc
Để sử dụng macro, chỉ cần thay thế từ Sheet1 (nó xuất hiện hai lần) trong mã bằng tên tab nơi bạn muốn kết quả. Đảm bảo rằng không có bất kỳ thông tin quan trọng nào trên tab đầu ra vì nó xóa dữ liệu của chúng trước khi ghi vào đó.
| 123456789101112131415 | Sub ListSheets ()Dim ws As WorksheetDim x As Integerx = 1Trang tính ("Trang 1"). Phạm vi ("A: A"). XóaĐối với mỗi ws trong WorksheetsTrang tính ("Trang 1"). Ô (x, 1) = ws.Namex = x + 1Tuần tiếp theoKết thúc Sub |
