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,792 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ết
befaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,843 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,808 Được thích 6,370 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,843TranVu0609 đã 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,843giaiphap đã 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
(VeryHidden thì tèo 
) Lần chỉnh sửa cuối: 24/7/17 T 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,843TranVu0609 đã 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,808 Được thích 6,370 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. 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: 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,808 Được thích 6,370 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,843Decepticon đã 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
P/s: định thử Kutools nhưng sợ crack dính ramsomware How to repeatedly print titles in multiple sheets?
www.extendoffice.com befaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,843 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,843Decepticon đã 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,843Decepticon đã 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,808 Được thích 6,370 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
Năm mới cháu chúc mừng các bác và toàn thể gia đình GPE 
- hongphuong1997
- Hôm nay lúc 17:18
- Gặp gỡ Offline
Copilot bình luận các ván cờ vua từng ngày. (2 người xem) - SA_DQ
- 3/11/25
- Chia sẻ
H Chào cả nha! Xin tư vấn về câu chuyện quản lý nhân sự 
- hotboykute
- 22/2/26
- Những vấn đề chung
H Xin A/C Giúp Tách địa chỉ ra Tỉnh , Huyện, Xã, Ấp (1 người xem) - hoanghanh80
- 31/5/24
- Hàm và công thức Excel
Sản phẩm từ Python với sự giúp đỡ của Copilot (1 người xem) - Maika8008
- Thứ tư lúc 20:50
- Excel và các ngôn ngữ lập trình khác
- adua29
- 19/5/11
- Ứng dụng cho lĩnh vực khác
Xây dựng RPC Server cho Excel / Access bằng Delphi – Tận dụng lại DLL và bảo mật mã nguồn (2 người xem) - phuongnam366377
- Hôm qua, lúc 15:27
- Excel và các ngôn ngữ lập trình khác
- Đã giải quyết
- HeSanbi
- 18/4/21
- Lập Trình với Excel
V Một Excel add-in vibe coding (1 người xem) - vietdang170
- 28/1/26
- Các Add-ins cho excel
- Question Question
- ongke0711
- 6/10/24
- Lập Trình với Excel
phân lớp đắp trong san nền và đường giao thông (1 người xem) - vuanhdungtb
- 20/1/10
- Excel và Kỹ Thuật
Hàm EXACT - TranThanhPhong
- 30/4/14
- Dự án: Công thức & Hàm 97-2019
TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL (1 người xem) - vn81206
- 2/2/23
- Cơ sở dữ liệu
- Question Question
- HeSanbi
- Thứ năm lúc 09:56
- Lập Trình với Excel
Cách lấy dữ liệu từ nhiều cột theo nhiều điều kiện - xumipham1
- Thứ năm lúc 08:49
- Hàm và công thức Excel
E - Đã giải quyết
- eagle12
- Thứ ba lúc 09:42
- Lập Trình với Excel
- Question Question
- ongke0711
- 24/7/25
- Lập Trình với Excel
- DoanTrongHuong
- Thứ tư lúc 09:44
- Excel và Các Biểu Đồ
- adua29
- 9/4/21
- Excel Ứng Dụng
B Phần mềm quản lý bán hàng trên excel offline - buihoanganhminh
- Thứ ba lúc 14:09
- Hàm và công thức Excel
Thành viên có số lượng bài viết cao nhất tháng
- Maika8008 2
- SA_DQ 1
Thành viên có điểm tương tác cao nhất tháng
- Maika8008 3
- SA_DQ 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 1 Lần Nhiều Sheet Trong Excel
-
Cách Xóa Nhanh Nhiều 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 - Thủ Thuật Phần Mềm
-
Hướng Dẫn Cách Xóa Nhiều Sheet Excel Cùng Một Lúc - Sharenhanh
-
Cách Xóa Nhanh Nhiều Sheet Trong Excel - Công An Tỉnh Bắc Kạn
-
Cách Xóa Nhanh Nhiều Sheet Trong Excel | Thủ Thuật Máy Tính 2021
-
4 Cách Xóa Nhanh Nhiều Hàng, Cột, Sheet Trong Microsoft Excel
-
Cách Xóa Nhiều Sheet Trong Excel - Nhanh Gọn Lẹ - Ez Lasso
-
Mẹo Xóa Cùng Lúc Nhiều Sheet Excel Một Cách Dễ Dàng
-
Xóa Tất Cả Những Sheet ẩn Trong Excel - Infocom
-
Cách Chọn Vùng In Và In Nhiều Trang Trong Excel Nhanh, đơn Giản Nhất
-
Cách Xóa Nhanh 1 Sheet, Nhiều Sheet Trong Excel Cực đơn Giản, Chi Tiết
-
Cách Xóa đồng Thời Nhiều Dòng Theo điều Kiện Trong Excel
-
Hướng Dẫn Tạo Phím Tắt để ẩn, Xoá Sheet Trong Excel