Xóa Nhiều Sheet Cùng Lúc Trong Excel
Có thể bạn quan tâm
- Trang chủ Có gì mới Hoạt động gần nhất Tác giả
- Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
- Video
Video về Excel Video về tin học khác Tin tức về tin học chung - Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
- Tài nguyên Đánh giá mới nhất Tìm tài nguyên
- Đóng góp
Tìm kiếm
Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Tìm kiếm Tìm nâng cao…- Tìm bài viết mới
- Tìm theo chuyên mục
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
- Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc
- Trang chủ
- Diễn đàn
- Excel và Tài Chính
- Thread starter Thread starter linhung8589
- Ngày gửi Ngày gửi 2/4/15
Người dùng đang xem chủ đề này
Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) Llinhung8589
Thành viên mới 
Tham gia 11/7/11 Bài viết 16 Được thích 2 Cả nhà ơi cho e hỏi, e muốn xóa nhiều sheet cùng lúc trong excel thì như thế nào ah? Ví dụ có 10 sheet chỉ để lại 1 sheet, xóa 9 sheet còn lại ah? Ba Tê
Cạo Rồi Khỏi Gội
Tham gia 5/5/09 Bài viết 12,123 Được thích 17,590 Giới tính Namlinhung8589 đã viết: Cả nhà ơi cho e hỏi, e muốn xóa nhiều sheet cùng lúc trong excel thì như thế nào ah? Ví dụ có 10 sheet chỉ để lại 1 sheet, xóa 9 sheet còn lại ah? Nhấp chuột vào đây để mở rộng...Đặt tên sheet cần chừa lại là GPE. Chạy Code này sẽ xoá sạch sành sanh. PHP: Sao chép. Public Sub GPE() Application.DisplayAlerts = False Dim Ws As Worksheet For Each Ws In Worksheets If Ws.Name <> "GPE" Then Ws.Delete Next Ws Application.DisplayAlerts = True End Sub G
giola
theo chiều Gió
Tham gia 25/1/15 Bài viết 362 Được thích 244linhung8589 đã viết: Cả nhà ơi cho e hỏi, e muốn xóa nhiều sheet cùng lúc trong excel thì như thế nào ah? Ví dụ có 10 sheet chỉ để lại 1 sheet, xóa 9 sheet còn lại ah? Nhấp chuột vào đây để mở rộng...Đơn giản chọn (select) các sheet (cần xoá) đó ở tab Sheet (góc trái dưới màn hình excel) rồi RightClick --> Delete là xong, Các chọn nhanh, bỏ chọn 1 sheet, chắc chắn bạn làm tốt V
VetMini
Đang đi tìm hòn đá
Tham gia 21/12/12 Bài viết 17,867 Được thích 24,788 Nghề nghiệp Thầy bói bài ta Click vào sheet đầu tiên Nhấn và giữ phím Shift, click vào sheet cuối cùng (tức là chọn tất cả các sheets) Nhấn và giữ phím Control, click vào sheet muốn giữ lại (tức là loại nó ra khỏi số sheets vừa chọn) Click chuột phải, chọn delete Hếtbefaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840 Sau khi làm cái print multi sheet, tiện thể làm cái delete multi sheet. Chủ topic nếu hứng thú thì tải về dùng nhé.File đính kèm
- Delete Sheets.zip Delete Sheets.zip 21.5 KB · Đọc: 131
TranVu0609
Thành viên mới 
Tham gia 22/4/15 Bài viết 2 Được thích 0 befaint đã viết: Sau khi làm cái print multi sheet, tiện thể làm cái delete multi sheet. Chủ topic nếu hứng thú thì tải về dùng nhé. Nhấp chuột vào đây để mở rộng...cho mình xin pass file Del_sheets.xla được không bạn?
giaiphap
==(^o^)==
Tham gia 12/3/07 Bài viết 5,809 Được thích 6,368 Donate (Momo)
Giới tính Nam befaint đã viết: Sau khi làm cái print multi sheet, tiện thể làm cái delete multi sheet. Chủ topic nếu hứng thú thì tải về dùng nhé. Nhấp chuột vào đây để mở rộng...Tôi thấy chổ Mã: Sao chép. Sheets(ListBox1.List(j - 1, 0)).Delete chưa ổn nhé bác. Mã: Sao chép. Private Sub B_del_Click() Application.DisplayAlerts = False Dim j As Integer, n&, t& With ListBox1 For t = 0 To .ListCount - 1 If .Selected(t) Then n = n + 1 Next 'TH1: If n = 0 Then Exit Sub End If 'TH2: If n = ListBox1.ListCount Then MsgBox "Workbook toi thieu phai co mot (01) worksheet!" & vbNewLine & "Uncheck sheet can giu lai.", vbInformation, "Thông báo" Exit Sub End If 'TH3: If n >= 1 And n < ListBox1.ListCount Then For j = 1 To ListBox1.ListCount If ListBox1.Selected(j - 1) = True Then 'Lỡ Sheet đang ẩn thì sẽ báo lỗi nhé. Sheets(ListBox1.List(j - 1, 0)).Delete ListBox1.Selected(j - 1) = False End If Next ListBox1.Clear Call UserForm_Initialize End If End With Application.DisplayAlerts = False End Sub
befaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840TranVu0609 đã viết: cho mình xin pass file Del_sheets.xla được không bạn? Nhấp chuột vào đây để mở rộng...Bạn tải lại file bài trên nhé!
befaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840giaiphap đã viết: chưa ổn nhé bác. Nhấp chuột vào đây để mở rộng...Ngày xưa ngu ngơ, chỗ nào chưa được anh chỉnh dùm em luôn
TranVu0609
Thành viên mới 
Tham gia 22/4/15 Bài viết 2 Được thích 0 befaint đã viết: Bạn tải lại file bài trên nhé! Nhấp chuột vào đây để mở rộng...cảm ơn bạn nhiều
befaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840TranVu0609 đã viết: cảm ơn bạn nhiều Nhấp chuột vào đây để mở rộng...Bạn tải lại nhé. Vừa chỉnh sửa thêm.
huongtinh1929
Thành viên chính thức 

Tham gia 6/10/11 Bài viết 61 Được thích 4 Giới tính Nam Ba Tê đã viết: Đặt tên sheet cần chừa lại là GPE. Chạy Code này sẽ xoá sạch sành sanh. PHP: Sao chép. Public Sub GPE() Application.DisplayAlerts = False Dim Ws As Worksheet For Each Ws In Worksheets If Ws.Name <> "GPE" Then Ws.Delete Next Ws Application.DisplayAlerts = True End Sub Nhấp chuột vào đây để mở rộng...bác Ba Tê ơi cho em hỏi nếu muốn để lại 3 sheet còn lại xóa hết các sheet khác thì core viết lại thể nào vậy bác. Mong bác chỉ em dùm, em cảm ơn bác. F
Fatboy_nnha
Thành viên mới 
Tham gia 23/4/18 Bài viết 5 Được thích 1 huongtinh1929 đã viết: bác Ba Tê ơi cho em hỏi nếu muốn để lại 3 sheet còn lại xóa hết các sheet khác thì core viết lại thể nào vậy bác. Mong bác chỉ em dùm, em cảm ơn bác. Nhấp chuột vào đây để mở rộng...Bạn dùng thêm điều kiện And. Điều kiện và cho các sheet bạn muốn để lại thì sẽ thực hiện được lệnh thôi. D
Decepticon
Thành viên chính thức 

Tham gia 25/4/16 Bài viết 81 Được thích 14 giaiphap đã viết: Tôi thấy chổ Mã: Sao chép. Sheets(ListBox1.List(j - 1, 0)).Delete chưa ổn nhé bác. Mã: Sao chép. Private Sub B_del_Click() Application.DisplayAlerts = False Dim j As Integer, n&, t& With ListBox1 For t = 0 To .ListCount - 1 If .Selected(t) Then n = n + 1 Next 'TH1: If n = 0 Then Exit Sub End If 'TH2: If n = ListBox1.ListCount Then MsgBox "Workbook toi thieu phai co mot (01) worksheet!" & vbNewLine & "Uncheck sheet can giu lai.", vbInformation, "Thông báo" Exit Sub End If 'TH3: If n >= 1 And n < ListBox1.ListCount Then For j = 1 To ListBox1.ListCount If ListBox1.Selected(j - 1) = True Then 'Lỡ Sheet đang ẩn thì sẽ báo lỗi nhé. Sheets(ListBox1.List(j - 1, 0)).Delete ListBox1.Selected(j - 1) = False End If Next ListBox1.Clear Call UserForm_Initialize End If End With Application.DisplayAlerts = False End Sub Nhấp chuột vào đây để mở rộng...bác @giaiphap tích hợp luôn chức năng xoá/unhide sheet hàng loạt vào vnTools được ko ạ? coi như cập nhật ver 2021 lun
giaiphap đã viết: Bạn thử nhấn phím Ctrl trong khi mở Excel xem có thông báo lỗi gì không? Nếu vẫn còn bạn thử xem cách này thế nào nhé. http://answers.microsoft.com/en-us/...k/5da89258-34fa-4bcc-96bc-223787da6ada?auth=1 Hoặc http://www.codedawn.com/index/-compile-error-in-hidden-module-message-in-excel Nhấp chuột vào đây để mở rộng...bác có chạy được add-in RegEx của trang Codedawn trên win 64bit ko ạ? e thử các kiểu vẫn bị lỗi hidden module
File đính kèm
- RegEx Find-Replace.xlam RegEx Find-Replace.xlam 98 KB · Đọc: 5
giaiphap
==(^o^)==
Tham gia 12/3/07 Bài viết 5,809 Được thích 6,368 Donate (Momo)
Giới tính Nam Decepticon đã viết: bác @giaiphap tích hợp luôn chức năng xoá/unhide sheet hàng loạt vào vnTools được ko ạ? coi như cập nhật ver 2021 lunTrong cái VnTools đã có sẳn chức năng Hide và Unhide nhều sheet cùng lúc rồi bạn nhé, còn vụ nâng cấp thì mình chưa tính (Do không rảnh). Cái RegEx Find-Replace.xlam có sử dụng một số hàm API, mà hàm API thì 32bit chạy khác và 64bit chạy khác. Cái hiện tại chỉ viết cho 32bit thôi, bạn klhông thể sử dụng được cho 64bit. Muốn sử dụng 64Bit bạn phải liên hệ tác giả nhé, còn sửa code là tôi không làm được. Dbác có chạy được add-in RegEx của trang Codedawn trên win 64bit ko ạ? e thử các kiểu vẫn bị lỗi hidden module Nhấp chuột vào đây để mở rộng...
Decepticon
Thành viên chính thức 

Tham gia 25/4/16 Bài viết 81 Được thích 14 giaiphap đã viết: Trong cái VnTools đã có sẳn chức năng Hide và Unhide nhều sheet cùng lúc rồi bạn nhé, còn vụ nâng cấp thì mình chưa tính (Do không rảnh). Cái RegEx Find-Replace.xlam có sử dụng một số hàm API, mà hàm API thì 32bit chạy khác và 64bit chạy khác. Cái hiện tại chỉ viết cho 32bit thôi, bạn klhông thể sử dụng được cho 64bit. Muốn sử dụng 64Bit bạn phải liên hệ tác giả nhé, còn sửa code là tôi không làm được. Nhấp chuột vào đây để mở rộng...sorry bác e nhầm. ý e là tuỳ chọn xoá/hide sheet hàng loạt cơ ạ. Cái tính năng ẩn nhiều sheet trong vnTools hơi bị dị còn ẩn/xoá thủ công (giữ shift + chọn sheet) thì lại mất thời gian >"<
P/s: Tiếc cái add-in RegEx quá bác nhỉ, add-in đó mà biết dùng thì tiện khủng khiếp File đính kèm
- Del_Sheets.xla Del_Sheets.xla 58 KB · Đọc: 13
giaiphap
==(^o^)==
Tham gia 12/3/07 Bài viết 5,809 Được thích 6,368 Donate (Momo)
Giới tính Nam Decepticon đã viết: sorry bác e nhầm. ý e là tuỳ chọn xoá/hide sheet hàng loạt cơ ạ. Cái tính năng ẩn nhiều sheet trong vnTools hơi bị dị còn ẩn/xoá thủ công (giữ shift + chọn sheet) thì lại mất thời gian >"< View attachment 259556 View attachment 259555 P/s: Tiếc cái add-in RegEx quá bác nhỉ, add-in đó mà biết dùng thì tiện khủng khiếp Nhấp chuột vào đây để mở rộng...Tiếp nhận ý kiến, phiên bản sau có nâng cấp sẽ cải thiện và được sẽ đưa chức năng như Add-ins RegEx vào luôn. D
Decepticon
Thành viên chính thức 

Tham gia 25/4/16 Bài viết 81 Được thích 14 giaiphap đã viết: Tiếp nhận ý kiến, phiên bản sau có nâng cấp sẽ cải thiện và được sẽ đưa chức năng như Add-ins RegEx vào luôn. Nhấp chuột vào đây để mở rộng...Bác ơi e muốn tạo print tiles $5:$6 ở tất cả các sheet (~ 10-20 sheet) thì làm cách nào cho nhanh ạ?
befaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840Decepticon đã viết: Bác ơi e muốn tạo print tiles $5:$6 ở tất cả các sheet (~ 10-20 sheet) thì làm cách nào cho nhanh ạ? Nhấp chuột vào đây để mở rộng...Mình chọn các sheets đó rồi thực hiện là được. D
Decepticon
Thành viên chính thức 

Tham gia 25/4/16 Bài viết 81 Được thích 14 befaint đã viết: Mình chọn các sheets đó rồi thực hiện là được. Nhấp chuột vào đây để mở rộng...Ko được. Mặc định Office ko cho phép đặt print titles nhiều sheet cùng lúc, các mục page setup khác thì lại đc
How to repeatedly print titles in multiple sheets?
befaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840 Tự record macro làm cho 1 sheet rồi áp dụng cho các sheet khác. DDecepticon
Thành viên chính thức 

Tham gia 25/4/16 Bài viết 81 Được thích 14 befaint đã viết: Tự record macro làm cho 1 sheet rồi áp dụng cho các sheet khác. Nhấp chuột vào đây để mở rộng...mình tìm được macro rồi cơ mà làm sao để macro lưu lại trong excel như add-in bác nhỉ? Mã: Sao chép. Attribute VB_Name = "Module1" Sub PrintTitle() Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets 'For Each ws In ActiveWindow.SelectedSheets If ws.Type = xlWorksheet Then ws.PageSetup.PrintTitleRows = "$5:$6" End If Next End Sub
befaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840Decepticon đã viết: tìm được macro Nhấp chuột vào đây để mở rộng...Đơn giản thế này thôi. Gán phím tắt rồi lưu thành file.xlam là dùng thôi. PHP: Sao chép. Sub setPrintTitle() Const sRowsTitle = "$5:$6" Dim ws as worksheet For each ws in thisworkbook.Worksheets ws.PageSetup.PrintTitleRows = sRowsTitle Next ws End Sub D
Decepticon
Thành viên chính thức 

Tham gia 25/4/16 Bài viết 81 Được thích 14 befaint đã viết: Đơn giản thế này thôi. Gán phím tắt rồi lưu thành file.xlam là dùng thôi. PHP: Sao chép. Sub setPrintTitle() Const sRowsTitle = "$5:$6" Dim ws as worksheet For each ws in thisworkbook.Worksheets ws.PageSetup.PrintTitleRows = sRowsTitle Next ws End Sub Nhấp chuột vào đây để mở rộng...tạo phím tắt ntn vậy bác, m vào mục custom ripbon ko thấy @@ Lần chỉnh sửa cuối: 25/9/21
befaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840Decepticon đã viết: tạo phím tắt ntn vậy bác, m vào mục custom ripbon ko thấy @@ Nhấp chuột vào đây để mở rộng...b t tren mg i D
Decepticon
Thành viên chính thức 

Tham gia 25/4/16 Bài viết 81 Được thích 14 befaint đã viết: b t tren mg i Nhấp chuột vào đây để mở rộng...không hiểu bác nhắn j @@ H
haog
Thành viên chính thức 

Tham gia 14/9/17 Bài viết 52 Được thích 35 Giới tính Nam huongtinh1929 đã viết: bác Ba Tê ơi cho em hỏi nếu muốn để lại 3 sheet còn lại xóa hết các sheet khác thì core viết lại thể nào vậy bác. Mong bác chỉ em dùm, em cảm ơn bác. Nhấp chuột vào đây để mở rộng...Theo tôi, cứ sheet nào muốn xóa, bạn nhập vào ô A1 của sheet đó 1 văn bản hiếm. Sau đó sửa code của bác Ba Tê Mã: Sao chép. Public Sub GPE() ' văn bản hiếm là "!@#$" Application.DisplayAlerts = False Dim Ws As Worksheet For Each Ws In Worksheets ' If Ws.Name <> "GPE" Then Ws.Delete ''chuyển thành chú thích rồi If Ws.Range("A1") = "!@#$" Then Ws.Delete Next Ws Application.DisplayAlerts = True End Sub Chú ý là đã tính xóa nó đi thì nhập gì vào A1 chẳng được. Nhưng nếu là văn bản thường thì có thể sheets nào đó cũng cùng nội dung thì "chết"
giaiphap
==(^o^)==
Tham gia 12/3/07 Bài viết 5,809 Được thích 6,368 Donate (Momo)
Giới tính Nam Decepticon đã viết: không hiểu bác nhắn j @@ Nhấp chuột vào đây để mở rộng...Bạn muốn người khác trả lời rõ ràng thì bạn phải viết rõ ràng trước đã (Do bạn viết tắt nên sẽ được trả lời bằng viết tắt).
D Decepticon
Thành viên chính thức 

Tham gia 25/4/16 Bài viết 81 Được thích 14 Sorry các bác e bị quen tay ^^ Bác @giaiphap bổ sung tính năng tạo print tit nhiều sheet vào vn-tools bản mới nha bác. Kiểu giữ shift chọn các sheet cần tạo print tit rùi click vào button [tạo tits] hoặc phím tắt sẽ hiện ra một ô để nhập giá trị PrintTitleRows ws.PageSetup.PrintTitleRows = "........." giaiphap đã viết: Bạn muốn người khác trả lời rõ ràng thì bạn phải viết rõ ràng trước đã (Do bạn viết tắt nên sẽ được trả lời bằng viết tắt). View attachment 266680 Nhấp chuột vào đây để mở rộng...Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Bài viết mới nhất
D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện- dieppk.nb92
- Hôm nay lúc 01:22
- Hàm và công thức Excel
- H_P
- Hôm qua, lúc 14:23
- Tìm kiếm, dò tìm và tham chiếu
- Ngựa con 2002
- Hôm qua, lúc 23:07
- Xử lý chuỗi ký tự
- QUANSUNG
- Hôm qua, lúc 10:55
- Hàm và công thức Excel
- huuthang_bd
- 30/12/13
- Xây dựng ứng dụng.
- HeSanbi
- Hôm qua, lúc 15:41
- Xử lý chuỗi ký tự
- Dinh Hong Nhung
- Thứ năm lúc 10:36
- Hàm và công thức Excel
- Question Question
- duongnhuxuyen
- Thứ sáu lúc 15:39
- Lập Trình với Excel
- PhanTuHuong
- 4/10/22
- Thư giãn
- Question Question
- duongnhuxuyen
- 12/11/25
- Lập Trình với Excel
- Vũ Hải Sơn
- 2/12/25
- Hàm và công thức Excel
- Thúy Sa
- Thứ năm lúc 17:17
- Những vấn đề chung
- Question Question
- lyvanthang
- Thứ năm lúc 10:36
- Lập Trình với Excel
- TVT230279
- 5/12/25
- Hàm và công thức Excel
- Hoale85
- 20/2/25
- Những vấn đề chung
- Question Question
- HeSanbi
- Thứ tư lúc 23:52
- Lập Trình với Excel
- khoa289
- 28/11/25
- Excel và các ngôn ngữ lập trình khác
- Question Question
- eagle12
- Thứ hai lúc 17:23
- Lập Trình với Excel
- HeSanbi
- 27/11/25
- Các Add-ins cho excel
- PhanTuHuong
- Thứ tư lúc 08:26
- Câu lạc bộ hoạt động xã hội
Thành viên có số lượng bài viết cao nhất tháng
- Maika8008 32
- dungpham01 18
- thanthanhan 16
- ongke0711 16
- nguyenanhtruong2409 14
- vic_it 11
- nhhnam 10
- eagle12 10
- Vũ Hải Sơn 9
- HUONGHCKT 9
- Phan Thế Hiệp 9
- pycckuu410 8
- bsbnhh 7
- HeSanbi 7
- Hana2610 6
- Gà Con yêu VBA 6
- Phuocam 5
- ketoan113 5
- Emyeuexcel 5
- huuthang_bd 5
Thành viên có điểm tương tác cao nhất tháng
- Phan Thế Hiệp 53
- Maika8008 26
- ongke0711 17
- thanthanhan 13
- HeSanbi 9
- Cúc Hr 8
- dungpham01 8
- eagle12 7
- HUONGHCKT 7
- Mr.hieudoanxd 5
- befaint 5
- SA_DQ 4
- nguyenanhtruong2409 4
- pycckuu410 4
- Phuocam 4
- tieutuvodanh192 2
- Emyeuexcel 2
- nhhnam 2
- Dinh Hong Nhung 2
- huuthang_bd 2
Thời gian đếm ngược.
000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025- Trang chủ
- Diễn đàn
- Excel và Tài Chính
- Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…
Từ khóa » Cách Xóa Hàng Loạt Sheet Trong Excel
-
Cách Xóa Nhanh 1 Sheet, Nhiều Sheet Trong Excel Cực đơn Giản, Chi Tiết
-
Cách Xóa Nhanh Nhiều Sheet Trong Excel
-
Cách Xóa Nhanh Nhiều Sheet Trong Excel - Thủ Thuật Phần Mềm
-
Cách Xóa Nhanh Nhiều Sheet Trong Excel - Công An Tỉnh Bắc Kạn
-
Hướng Dẫn Cách Xóa Nhiều Sheet Excel Cùng Một Lúc - Sharenhanh
-
4 Cách Xóa Nhanh Nhiều Hàng, Cột, Sheet Trong Microsoft Excel
-
Mẹo Xóa Cùng Lúc Nhiều Sheet Excel Một Cách Dễ Dàng
-
Cách Xóa Nhanh Nhiều Sheet Trong Excel | Thủ Thuật Máy Tính 2021
-
Cách Xóa Nhanh Nhiều Sheet Trong Excel - YouTube
-
Xóa Tất Cả Những Sheet ẩn Trong Excel - Infocom
-
Cách Xóa Nhanh Nhiều Sheet Trong Excel - Trường Tín
-
Cách Xóa 1 Sheet Trong Excel
-
Cách Xóa Nhiều Sheet Trong Google Sheet - Xây Nhà
-
Cách Xóa Các Sheet Trong Excel