Viết VBA Xoá Vùng Dữ Liệu Trong Nhiều Sheet | Giải Pháp 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à các ngôn ngữ lập trình khác
- Thread starter Thread starter jacky_police
- Ngày gửi Ngày gửi 24/9/17
Người dùng đang xem chủ đề này
Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) Jjacky_police
Thành viên chính thức 

Tham gia 30/7/07 Bài viết 54 Được thích 4 Xin chào AE GPE giờ tôi có nhiều sheet dữ liệu tuy nhiên tôi muốn trước khi dữ liệu được cập nhật mới cho vùng dữ liệu trong các sheet đó phải được xoá đi. VD sheet 2 đến sheet 5 vùng dữ liệu cần xoá như nhau Range(A5:I50) Vậy nhờ AE viết giùm code để xoá dữ liệu trong các sheet trên với vùng cần xoá (A5:I50). Xin cảm ơn! vanthinh3101
Thành viên tích cực

Tham gia 24/1/15 Bài viết 1,129 Được thích 1,494 Giới tính Nam Nghề nghiệp Finance jacky_police đã viết: Xin chào AE GPE giờ tôi có nhiều sheet dữ liệu tuy nhiên tôi muốn trước khi dữ liệu được cập nhật mới cho vùng dữ liệu trong các sheet đó phải được xoá đi. VD sheet 2 đến sheet 5 vùng dữ liệu cần xoá như nhau Range(A5:I50) Vậy nhờ AE viết giùm code để xoá dữ liệu trong các sheet trên với vùng cần xoá (A5:I50). Xin cảm ơn! Nhấp chuột vào đây để mở rộng...Bạn thử xem sao Mã: Sao chép. Sub test() Dim i As Integer For i = 2 To 5 Worksheets(i).Range("A5:I50").ClearContents Next i End Sub Lưu ý Code Name của các sheet cần xóa phải từ Sheet2 đến Sheet5 J
jacky_police
Thành viên chính thức 

Tham gia 30/7/07 Bài viết 54 Được thích 4 vanthinh3101 đã viết: Bạn thử xem sao Mã: Sao chép. Sub test() Dim i As Integer For i = 2 To 5 Worksheets(i).Range("A5:I50").ClearContents Next i End Sub Lưu ý Code Name của các sheet cần xóa phải từ Sheet2 đến Sheet5 Nhấp chuột vào đây để mở rộng...Cảm ơn rất nhiều! Nếu mình muốn chỉ định luôn tên sheet để xoá thì phải làm sao VD: Sheet 1 = A1, ... sheet 5 = A5....
vanthinh3101
Thành viên tích cực

Tham gia 24/1/15 Bài viết 1,129 Được thích 1,494 Giới tính Nam Nghề nghiệp Finance jacky_police đã viết: Cảm ơn rất nhiều! Nếu mình muốn chỉ định luôn tên sheet để xoá thì phải làm sao VD: Sheet 1 = A1, ... sheet 5 = A5.... Nhấp chuột vào đây để mở rộng...Bạn làm như sau: Mã: Sao chép. Sub test() Dim i As Integer For i = 2 To 5 Sheets(Range("A"&i).Range("A5:I50").ClearContents Next i End Sub J
jacky_police
Thành viên chính thức 

Tham gia 30/7/07 Bài viết 54 Được thích 4 vanthinh3101 đã viết: Bạn làm như sau: Mã: Sao chép. Sub test() Dim i As Integer For i = 2 To 5 Sheets(Range("A"&i).Range("A5:I50").ClearContents Next i End Sub Nhấp chuột vào đây để mở rộng...Cảm ơn anh đã giúp đỡ! Vậy nếu i là chữ A,B,C,D,E thì sẽ sửa code thế nào ạ? VD: 1A, 1B,...1E hay là 1A, 2A, 1B, 2B,1C,2C...
vanthinh3101
Thành viên tích cực

Tham gia 24/1/15 Bài viết 1,129 Được thích 1,494 Giới tính Nam Nghề nghiệp Finance jacky_police đã viết: Cảm ơn anh đã giúp đỡ! Vậy nếu i là chữ A,B,C,D,E thì sẽ sửa code thế nào ạ? VD: 1A, 1B,...1E hay là 1A, 2A, 1B, 2B,1C,2C... Nhấp chuột vào đây để mở rộng...Chắc mình phải sửa lại code trên 1 chút Mã: Sao chép. Sub test() Dim i As Integer For i = 2 To 5 Sheets(Range("A" & i)).Range("A5:I50").ClearContents Next i End Sub Code này đúng cho mọi trường hợp, sẽ xóa dữ liệu Range("A5:I50") của các sheet có tên được liệt kê từ ô A2 đến ô A5 của sheet hiện hành Nếu bạn chưa hiểu có thể đưa file lên. J
jacky_police
Thành viên chính thức 

Tham gia 30/7/07 Bài viết 54 Được thích 4 vanthinh3101 đã viết: Chắc mình phải sửa lại code trên 1 chút Mã: Sao chép. Sub test() Dim i As Integer For i = 2 To 5 Sheets(Range("A" & i)).Range("A5:I50").ClearContents Next i End Sub Code này đúng cho mọi trường hợp, sẽ xóa dữ liệu Range("A5:I50") của các sheet có tên được liệt kê từ ô A2 đến ô A5 của sheet hiện hành Nếu bạn chưa hiểu có thể đưa file lên. Nhấp chuột vào đây để mở rộng...Có điều khi copy đoạn code trên vào thì dòng code bị báo đỏ là sao vậy? Sheets(Range("A" & i)).Range("A5:I50").ClearContents
vanthinh3101
Thành viên tích cực

Tham gia 24/1/15 Bài viết 1,129 Được thích 1,494 Giới tính Nam Nghề nghiệp Finance jacky_police đã viết: Có điều khi copy đoạn code trên vào thì dòng code bị báo đỏ là sao vậy? Sheets(Range("A" & i)).Range("A5:I50").ClearContents Nhấp chuột vào đây để mở rộng...sorry bạn, bạn thử lại Mã: Sao chép. Sub test() Dim i As Integer For i = 2 To 5 Worksheets(Range("A" & i).Value).Range("A5:I50").ClearContents Next i End Sub H
HieuCD
Chuyên gia GPE 
Tham gia 14/9/10 Bài viết 9,943 Được thích 23,902 jacky_police đã viết: Cảm ơn anh đã giúp đỡ! Vậy nếu i là chữ A,B,C,D,E thì sẽ sửa code thế nào ạ? VD: 1A, 1B,...1E hay là 1A, 2A, 1B, 2B,1C,2C... Nhấp chuột vào đây để mở rộng...Mã: Sao chép. Sub GPE() Dim i As Integer, Arr Arr=Array("1A","2A","1B","2B") For i = 0 To Ubound(Arr) Sheets(Arr(i)).Range("A5:I50").ClearContents Next i End Sub J
jacky_police
Thành viên chính thức 

Tham gia 30/7/07 Bài viết 54 Được thích 4 vanthinh3101 đã viết: sorry bạn, bạn thử lại Mã: Sao chép. Sub test() Dim i As Integer For i = 2 To 5 Worksheets(Range("A" & i).Value).Range("A5:I50").ClearContents Next i End Sub Nhấp chuột vào đây để mở rộng...Cho hỏi có phải là đoạn code chữ xanh Worksheets(Range("A" & i).Value).Range("A5:I50").ClearContents có nghĩa là vùng dữ liệu trong sheet từ A&i không? cái này tôi tưởng là tên worksheets chứ nhỉ. Trong bài 6 tôi muốn xoá dữ liệu vùng A5:i50 của các sheet có tên là A2,...,A5 chứ không phải là ô trong sheet (nhầm là ô) hoặc là tên 1A, 2A....1C,2C vì đôi khi trong thiết lập tên sheet có thể xoá mất 1 (sheet 4 ) do vậy 5 sheet sẽ là sheet 2,3,5,6 ,7. Đoạn code đó có thể sửa như vậy được không? Worksheets.name =("A" & i).Range("A5:I50").ClearContents và nếu i = A to d thì làm thế nào ạ?
vanthinh3101
Thành viên tích cực

Tham gia 24/1/15 Bài viết 1,129 Được thích 1,494 Giới tính Nam Nghề nghiệp Finance jacky_police đã viết: Cho hỏi có phải là đoạn code chữ xanh Worksheets(Range("A" & i).Value).Range("A5:I50").ClearContents có nghĩa là vùng dữ liệu trong sheet từ A&i không? cái này tôi tưởng là tên worksheets chứ nhỉ. Trong bài 6 tôi muốn xoá dữ liệu vùng A5:i50 của các sheet có tên là A2,...,A5 chứ không phải là ô trong sheet (nhầm là ô) hoặc là tên 1A, 2A....1C,2C vì đôi khi trong thiết lập tên sheet có thể xoá mất 1 (sheet 4 ) do vậy 5 sheet sẽ là sheet 2,3,5,6 ,7. Đoạn code đó có thể sửa như vậy được không? Worksheets.name =("A" & i).Range("A5:I50").ClearContents và nếu i = A to d thì làm thế nào ạ? Nhấp chuột vào đây để mở rộng...Bạn xem bài #9 nhé! J
jacky_police
Thành viên chính thức 

Tham gia 30/7/07 Bài viết 54 Được thích 4 vanthinh3101 đã viết: Bạn xem bài #9 nhé! Nhấp chuột vào đây để mở rộng...Xin lỗi mình không xem bài 9 đã hỏi bài 10. Xin cảm ơn! Tuy nhiên có 1 vấn đề với Array có khoảng 5 sheet nếu như 1 file dữ liệu mà có khoảng 20 sheet thì code sẽ rất dài chắc phải có giải pháp gì chứ? Ví dụ có thể đặt tên sheet kiểu như: sheet.names like (1*, 2*) thì sẽ gọn gàng hơn.
befaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840jacky_police đã viết: Xin lỗi mình không xem bài 9 đã hỏi bài 10. Xin cảm ơn! Tuy nhiên có 1 vấn đề với Array có khoảng 5 sheet nếu như 1 file dữ liệu mà có khoảng 20 sheet thì code sẽ rất dài chắc phải có giải pháp gì chứ? Ví dụ có thể đặt tên sheet kiểu như: sheet.names like (1*, 2*) thì sẽ gọn gàng hơn. Nhấp chuột vào đây để mở rộng...Đọc cả chục bài cứ lòng vòng hoài. Đưa ra đáp án nào cũng phàn nàn... Túm lại mình muốn như nào thì viết rõ ràng, cụ thể và chi tiết vào file rồi gửi cái file đó lên đây.
vanthinh3101
Thành viên tích cực

Tham gia 24/1/15 Bài viết 1,129 Được thích 1,494 Giới tính Nam Nghề nghiệp Finance jacky_police đã viết: Xin lỗi mình không xem bài 9 đã hỏi bài 10. Xin cảm ơn! Tuy nhiên có 1 vấn đề với Array có khoảng 5 sheet nếu như 1 file dữ liệu mà có khoảng 20 sheet thì code sẽ rất dài chắc phải có giải pháp gì chứ? Ví dụ có thể đặt tên sheet kiểu như: sheet.names like (1*, 2*) thì sẽ gọn gàng hơn. Nhấp chuột vào đây để mở rộng...Đó cũng là 1 cách bạn nhé! Tuy nhiên,nếu đặt tên theo quy tắc cụ thể thì nên gói gọn trong 1, 2 trường hợp thôi. Nói chung là tùy cơ ứng biến. J
jacky_police
Thành viên chính thức 

Tham gia 30/7/07 Bài viết 54 Được thích 4 befaint đã viết: Đọc cả chục bài cứ lòng vòng hoài. Đưa ra đáp án nào cũng phàn nàn... Túm lại mình muốn như nào thì viết rõ ràng, cụ thể và chi tiết vào file rồi gửi cái file đó lên đây. Nhấp chuột vào đây để mở rộng...Mục đích chính là vừa hỏi vừa học mà bạn đôi khi có vấn đề cụ thể đôi khi phải tuỳ cơ ứng biến. Có phải lúc nào cũng ở cùng 1 trường hợp đâu bạn! Nếu thấy khó quá thì bạn thông cảm! J
jacky_police
Thành viên chính thức 

Tham gia 30/7/07 Bài viết 54 Được thích 4 vanthinh3101 đã viết: Đó cũng là 1 cách bạn nhé! Tuy nhiên,nếu đặt tên theo quy tắc cụ thể thì nên gói gọn trong 1, 2 trường hợp thôi. Nói chung là tùy cơ ứng biến. Nhấp chuột vào đây để mở rộng...Cảm ơn bạn rất nhiều! Bạn rất nhiệt tình giúp mình có thêm 1 chút kiến thức về VBA. Thực ra về code cũng rất ít và đơn giản với các bạn đã biết còn với những người học kiểu ABC như mình nó rất khó khăn. Thank you!
befaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840jacky_police đã viết: Mục đích chính là vừa hỏi vừa học mà bạn đôi khi có vấn đề cụ thể đôi khi phải tuỳ cơ ứng biến. Có phải lúc nào cũng ở cùng 1 trường hợp đâu bạn! Nhấp chuột vào đây để mở rộng...Thì có bao nhiêu ý tưởng nêu hết ra, bao nhiêu trường hợp cần hỏi liệt kê vào một bảng, hỏi một lần cho bõ.
jacky_police đã viết: Nếu thấy khó quá thì bạn thông cảm! Nhấp chuột vào đây để mở rộng...Đang tới chuyên mục vừa hỏi vừa học thì "thông cảm" là dư thừa, tự ái vặt. Lần chỉnh sửa cuối: 25/9/17
be_09
Biên Hòa, Đồng Nai
Tham gia 9/4/11 Bài viết 9,972 Được thích 9,884 Nghề nghiệp Công chứcbefaint đã viết: Thì có bao nhiêu ý tưởng nêu hết ra, bao nhiêu trường hợp cần hỏi liệt kê vào một bảng, hỏi một lần cho bỏ. Đang tới chuyên mục vừa hỏi vừa học thì "thông cảm" là dư thừa, tự ái vặt. Nhấp chuột vào đây để mở rộng...Yêu cầu xoá dữ liệu trong các sheet trên với vùng cần xoá (A5:I50) coi như là xóa sạch sành sanh rồi (chỉ chừa lại tiêu đề). Theo anh thì chơi nhập tất cả trong 1 sheet muốn sửa xóa cái gì thì cũng dễ dàng. cần nội dung gì thì tách sheet hoặc lọc nó ra. Bài 1 không có File nên đoán mò.
SA_DQ
/(hông là gì!
Thành viên danh dự Tham gia 8/6/06 Bài viết 14,777 Được thích 23,233 Nghề nghiệp U80 Fải thấy rằng tác gia bài đăng thiếu năng động trong học hỏi; Không tự học mà tranh thủ/dựa dẫm/fó thác cho GPE.COM. Kể ra cũng được nhưng sẽ không nhớ lâu/không hay chưa là tài sản tri thức của mình. Sau bài #9 mà còn tiếp tục vặn vẹo là không hay; Nếu chưa xài được mảng (ở #9) thì có thể thông cảm & chuyện sang hàm CHOOSE() trong VBA để chọn lấy những tên trang tính cần xóa; (Xem ví dụ trong hướng dẫn xài hàm CHOOSE() của Befaint ) Chúc có nhiều những thú vị khi đến với GPE.COM!tuyen2806
Thành viên mới 
Tham gia 17/4/20 Bài viết 40 Được thích 7 Xin chào các ACE, Mình có 1 file về lịch sắp phòng theo tuần và muốn viết code theo các yêu cầu sau:
Nhờ các AE xem giúp nha thanks File đính kèm
- LỊCH SỬ DỤNG PHÒNG T11.2021 Dự kiến (1).xlsb LỊCH SỬ DỤNG PHÒNG T11.2021 Dự kiến (1).xlsb 23.8 KB · Đọc: 7
Maika8008
Thành viên gạo cội



Tham gia 12/6/20 Bài viết 4,847 Được thích 5,832 Donate (Momo)
Giới tính Nam tuyen2806 đã viết: Xin chào các ACE, Mình có 1 file về lịch sắp phòng theo tuần và muốn viết code theo các yêu cầu sau: View attachment 268921 Nhờ các AE xem giúp nha thanks Nhấp chuột vào đây để mở rộng...Vụ này mở 1 thớt mới đi bạn. 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
- huuthang_bd
- 30/12/13
- Xây dựng ứng dụng.
- levovantoan
- Thứ sáu lúc 23:25
- Giải thích, gỡ rối, xử lý lỗi công thức
- GPE-Trợ Lý
- Hôm qua, lúc 10:02
- Học tập Online
- PhanTuHuong
- 14/12/25
- Thư giãn
- hoangvucntt
- Thứ bảy lúc 10:16
- Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu
- Na7979
- Thứ bảy lúc 11:40
- Lọc và sắp xếp dữ liệu
- dieppk.nb92
- 14/12/25
- Hàm và công thức Excel
- kaoehtkid
- 15/12/25
- Những vấn đề chung
- HeSanbi
- 13/12/25
- Xử lý chuỗi ký tự
- Nguyenkhang2404
- 24/7/25
- Hàm và công thức Excel
- tiny1010
- 16/3/10
- Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu
- Na7979
- Thứ sáu lúc 14:01
- Google Sheets
- Question Question
- duongnhuxuyen
- 12/12/25
- Lập Trình với Excel
- phamdinh.huy.aladin@gmail
- 15/12/25
- Hàm và công thức Excel
- Mr_Siro
- Thứ tư lúc 10:57
- Giải thích, gỡ rối, xử lý lỗi công thức
- ptthuongtn
- Thứ tư lúc 15:15
- Hàm và công thức Excel
- skygatevn
- Thứ tư lúc 11:59
- Hướng dẫn sử dụng các hàm trong Excel
- PhanTuHuong
- 10/12/25
- Câu lạc bộ hoạt động xã hội
- GPE-Trợ Lý
- 24/11/25
- Câu lạc bộ hoạt động xã hội
- Đã giải quyết
- HeSanbi
- 30/5/20
- Lập Trình với Excel
Thành viên có số lượng bài viết cao nhất tháng
- Maika8008 41
- thanthanhan 23
- dungpham01 19
- ongke0711 19
- Phan Thế Hiệp 17
- ptm0412 17
- eagle12 16
- nguyenanhtruong2409 16
- HUONGHCKT 12
- vic_it 11
- nhhnam 10
- pycckuu410 10
- dieppk.nb92 10
- Vũ Hải Sơn 9
- HeSanbi 9
- le_vis 8
- Gà Con yêu VBA 8
- bsbnhh 7
- duongnhuxuyen 7
- Hana2610 6
Thành viên có điểm tương tác cao nhất tháng
- Phan Thế Hiệp 86
- Maika8008 34
- thanthanhan 20
- ongke0711 17
- ptm0412 17
- HeSanbi 15
- dungpham01 11
- HUONGHCKT 9
- eagle12 9
- SA_DQ 9
- Cúc Hr 8
- dieppk.nb92 6
- Mr.hieudoanxd 5
- pycckuu410 5
- befaint 5
- Hoàng Tuấn 868 4
- Phuocam 4
- nguyenanhtruong2409 4
- nhhnam 2
- Gà Con yêu VBA 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à các ngôn ngữ lập trình khác
- 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 » Xóa Dữ Liệu Trong Vba
-
Hướng Dẫn Xóa Dữ Liệu Excel Trong Bảng Danh Sách Bằng Lệnh VBA
-
Hướng Dẫn Cách Xóa Nội Dung Bất Kỳ Trong Bảng Danh Sách Trong ...
-
Xóa Dữ Liệu Trong Excel Bằng Vba / TOP #10 Xem Nhiều Nhất ...
-
Làm Cách Nào để Xóa Toàn Bộ Trang Tính Hoặc Phạm Vi được Chỉ định ...
-
Tự Động Xóa Dữ Liệu Khi In Xong Bằng VBA
-
Xóa File Text Trong VBA - VietTuts
-
Xóa Dữ Liệu Theo điều Kiện Bằng VBA - Mạng Xã Hội Webketoan
-
VBA Excel Thực Hành Bài 6 - Sửa, Xóa Dữ Liệu Trong VBA
-
Hướng Dẫn Tạo Nút Xóa Dữ Liệu Trong Bảng Excel - YouTube
-
Sửa, Xóa Dữ Liệu Trên VBA Excel - YouTube
-
10 Xoá Dòng Theo điều Kiện Bằng VBA - YouTube
-
Xoá Dòng Có điều Kiện Bằng Vba
-
Tạo Thông Báo Xác Nhận Khi Xóa Dữ Liệu Trong Excel
-
Sửa, Xóa Dữ Liệu Trên VBA Excel 2022 Mới Nhất - Tài Chính 4u