Excel xóa hàng với văn bản cụ thể

Để nhanh chóng xóa hoặc loại bỏ nhiều hàng dựa trên giá trị ô trong Excel, trước tiên bạn có thể cần phải chọn toàn bộ các hàng chứa giá trị ô cụ thể, sau đó chuyển đến loại bỏ chúng. Có vẻ như không có cách nào nhanh chóng để xóa các hàng dựa trên giá trị ô mà sử dụng mã VBA. Dưới đây là một số thủ thuật nhanh để giúp bạn

• Xóa các hàng dựa trên một giá trị ô bằng chức năng Tìm và Thay thế
• Xóa các hàng dựa trên một giá trị ô bằng mã VBA
• Xóa các hàng dựa trên một hoặc hai giá trị ô
• Xóa các hàng dựa trên nhiều giá trị ô

---

Xóa các hàng dựa trên giá trị ô bằng tính năng Tìm và Thay thế

Trong Excel, bạn có thể áp dụng tính năng Tìm và Thay thế mạnh mẽ để loại bỏ các hàng dựa trên một giá trị ô nhất định một cách dễ dàng. Vui lòng làm như sau

1. Chọn phạm vi mà bạn sẽ xóa các hàng dựa trên giá trị ô nhất định và mở hộp thoại Tìm và Thay thế bằng cách nhấn đồng thời các phím Ctrl + F .

2. Trong hộp thoại Tìm và Thay thế, vui lòng nhập giá trị ô nhất định (trong trường hợp của chúng tôi, chúng tôi nhập Soe) vào hộp Tìm gì và nhấp vào . Xem ảnh chụp màn hình đầu tiên bên dưới. Find All button. See the first screenshot below:

3. Chọn tất cả các kết quả tìm kiếm ở cuối hộp thoại Tìm và Thay thế, rồi đóng hộp thoại này. (Ghi chú. Bạn có thể chọn một trong các kết quả tìm kiếm, sau đó sử dụng các phím Ctrl + A để chọn tất cả các kết quả tìm thấy. Xem ảnh chụp màn hình thứ hai ở trên. )
Sau đó, bạn có thể thấy tất cả các ô chứa giá trị nhất định đều được chọn.

4. Tiếp tục nhấp chuột phải vào các ô đã chọn và chọn Xóa từ trình đơn nhấp chuột phải. Sau đó chọn tùy chọn Toàn bộ hàng trong hộp thoại Xóa bật lên và nhấp vào OK button. Now you will see all the cells containing the certain value are removed. See screenshots below:

Và sau đó toàn bộ hàng đã bị xóa dựa trên giá trị nhất định rồi

---

Xóa các hàng dựa trên giá trị ô bằng mã VBA

Với đoạn mã VBA sau, bạn có thể xóa nhanh các hàng có giá trị ô nào đó, vui lòng thực hiện theo các bước sau

1. Nhấn đồng thời các phím Alt + F11 để mở Microsoft Visual Basic dành cho ứng dụng window,

2. Nhấp vào Chèn > Mô-đun và nhập mã sau vào Mô-đun.

VBA. Xóa toàn bộ hàng dựa trên giá trị ô

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. Sau đó nhấp vào nút Chạy để chạy mã.

4. Trong hộp thoại bật lên, vui lòng chọn phạm vi mà bạn sẽ xóa các hàng dựa trên giá trị nhất định và nhấp vào nút OK .

5. Trong một hộp thoại khác, vui lòng nhập giá trị nhất định mà bạn sẽ xóa các hàng dựa trên đó và nhấp vào nút OK . Xem ảnh chụp màn hình.

Và sau đó bạn sẽ thấy toàn bộ hàng đã bị xóa dựa trên giá trị đã chỉ định

---

Xóa các hàng dựa trên một hoặc hai giá trị ô bằng Kutools cho Excel

Nếu bạn đã cài đặt Kutools cho Excel , thì Chọn các ô cụ thể feature can help you quickly delete the rows with specific value. Please do as follows:

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Đầy đủ tính năng dùng thử miễn phí 30 ngày, không cần thẻ tín dụng. Lấy nó ngay

1. Chọn phạm vi mà bạn sẽ xóa các hàng dựa trên giá trị nhất định và nhấp vào Kutools > Chọn > Chọn các ô cụ thể . Xem ảnh chụp màn hình.

2. Trong hộp thoại Select Specified Cells mở, vui lòng chọn tùy chọn Entire row , chọn Contains from Specific type drop down list, enter the specified value into right box, and click the Ok button (See above screenshot).
Sau khi áp dụng tính năng này, một hộp thoại sẽ bật ra và cho bạn biết có bao nhiêu ô được tìm thấy dựa trên các tiêu chí đã chỉ định. Vui lòng nhấp vào nút OK để đóng.

3. Bây giờ toàn bộ hàng có giá trị nhất định được chọn. Vui lòng nhấp chuột phải vào các hàng đã chọn và nhấp vào Xóa từ trình đơn nhấp chuột phải. Xem ảnh chụp màn hình bên dưới.

Lưu ý. Tính năng Chọn ô cụ thể này hỗ trợ xóa các hàng theo một hoặc hai giá trị nhất định. Để xóa các hàng dựa trên hai giá trị đã chỉ định, vui lòng chỉ định một giá trị khác trong phần Loại cụ thể của hộp thoại Chọn các ô cụ thể như ảnh chụp màn hình sau.

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Đầy đủ tính năng dùng thử miễn phí 30 ngày, không cần thẻ tín dụng. Lấy nó ngay

---

Xóa các hàng dựa trên nhiều giá trị ô bằng Kutools cho Excel

Trong một số trường hợp, bạn có thể cần xóa các hàng dựa trên nhiều giá trị ô khỏi cột/danh sách khác trong Excel. Ở đây tôi sẽ giới thiệu Kutools cho Excel của Chọn các ô giống nhau và khác nhau .

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Đầy đủ tính năng dùng thử miễn phí 30 ngày, không cần thẻ tín dụng. Lấy nó ngay

1. Nhấp vào Kutools > Chọn > Chọn các ô giống nhau và khác nhau để mở hộp thoại Chọn các ô giống nhau và khác nhau.

2. Trong hộp thoại mở Chọn các ô giống nhau và khác nhau , vui lòng thực hiện như sau (xem ảnh chụp màn hình).

(1) Trong hộp Tìm giá trị trong , vui lòng chọn cột nơi bạn sẽ tìm thấy các giá trị nhất định;< .
(2) In the According to box, please select the column/list with multiple values you will delete rows based on;
(3) In the Based on section, please check the Each row option;
(4) In the Find section, please check the Same Values option;
(5) Check the Select entire rows option at the bottom of opening dialog box.
Lưu ý. Nếu hai cột được chỉ định chứa tiêu đề giống nhau, vui lòng chọn tùy chọn Dữ liệu của tôi có tiêu đề .

3. Nhấp vào nút Ok để áp dụng tiện ích này. Và sau đó một hộp thoại xuất hiện và cho biết có bao nhiêu hàng đã được chọn. Chỉ cần nhấp vào nút OK để đóng nó.

Và sau đó tất cả các hàng chứa giá trị trong danh sách đã chỉ định đã được chọn.

4. Nhấp vào Trang chủ > Xóa > Xóa hàng của trang tính để xóa tất cả các hàng đã chọn.

---

Thử nghiệm. xóa hàng dựa trên một hoặc nhiều giá trị ô trong Excel

Kutools cho Excel bao gồm hơn 300 công cụ tiện dụng cho Excel, dùng thử miễn phí không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay

---

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

• Tái sử dụng. Chèn nhanh các công thức, biểu đồ phức tạp  và bất kỳ thứ gì bạn đã sử dụng trước đây; . Encrypt Cells with password; Create Mailing List and send emails...
• Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Hợp nhất Ô/Hàng/Cột mà không làm mất Dữ liệu; . Ngăn chặn các ô trùng lặp; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
• Chọn hàng trùng lặp hoặc duy nhất ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Sao chép chính xác Nhiều ô mà không thay đổi tham chiếu công thức; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Trích xuất văn bản , Thêm văn bản, Xóa theo vị trí, Xóa khoảng trắng ; . Convert Between Cells Content and Comments...
• Siêu bộ lọc (lưu và áp dụng lược đồ bộ lọc cho các trang tính khác); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Kết hợp Sổ làm việc và Trang tính ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• Hơn 300 tính năng mạnh mẽ . Hỗ trợ Office/Excel 2007-2019 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Đảm bảo hoàn tiền trong 60 ngày.

Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.  

---

Tab Office Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều

• Bật chỉnh sửa và đọc theo tab trong Word, Excel, PowerPoint , Publisher, Access, Visio và Project.
• Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới
• Tăng năng suất của bạn lên 50% và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày

Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.  

 

Cũ nhất đầu tiên

Sắp xếp nhận xét theo

Cũ nhất đầu tiên

mới nhất đầu tiên

Nhận xét ( 39 )

Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng

alan

khoảng 9 năm trước

#10173

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Tuyệt vời. Điều đó đã thành công, tôi đã thay đổi nó một chút để phù hợp với những gì tôi cần nhưng thuần túy. Ồ Phiên bản VBA

Đáp lại

0

0

Bobby

khoảng 8 năm trước

#10295

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Bất kỳ cách nào để sửa đổi If (ô. Value) = "Apple" để bao gồm nhiều giá trị?

Đáp lại

0

0

Mỹ thuật

khoảng 8 năm trước

#10315

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Bobby, hãy thử cái này, nó sẽ đạt được thứ bạn muốn. Nếu (ô. Giá trị) = "Apple" OR (ô. Giá trị) = "Thứ Hai"

Đáp lại

0

0

Tháng Tư     Nghệ thuật

khoảng 8 năm trước

#10316

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Có cách nào để giá trị nhận ra một giá trị cho dù là > hoặc = với một giá trị nhất định không?

Đáp lại

0

0

Claire

khoảng 8 năm trước

#10329

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Này - cảm ơn rất nhiều vì kịch bản. Tôi tự hỏi liệu bạn có thể sử dụng ký tự đại diện để bạn có thể chọn bất kỳ thứ gì trong một ô phù hợp thay vì một mục cụ thể không? . Đây là những gì tôi có. Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("B6. B20"), Trang tính hoạt động. usedRange) Đối với mỗi ô Trong rng Nếu ô. Giá trị Giống như "*WORDTODELETE*" _ Sau đó Nếu del không có gì thì Đặt del = ô Khác. Đặt del = Union(del, cell) End If End If Next cell On Error Resume Next del. Toàn bộ hàng. Xóa End Sub

Đáp lại

0

0

Jim Mc

khoảng 8 năm trước

#10436

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin chân thành cảm ơn - thật thú vị khi anh chàng Tiếp thị cố gắng viết mã và thông tin này cực kỳ hữu ích. Tôi không thể lấy mã để mở rộng nhiều cột ("AA2. AA3000" hoạt động, "AB2. AB3000" hoạt động, nhưng "AA2. AB3000" không hoạt động. Không có Kaboom làm rung chuyển trái đất - nó chẳng làm được gì. Tôi đã giải quyết nó (tôi cho là nghiệp dư) bằng cách chạy một số macro theo trình tự, nhưng có lẽ có một cách thanh lịch hơn. Cảm ơn một lần nữa vì sự giúp đỡ của bạn, Jim (Melville, NY)

Đáp lại

0

0

đàn ông H

khoảng 8 năm trước

#10437

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

tôi có. lỗi thời gian chạy '13'. Loại không khớp Gỡ lỗi làm nổi bật Nếu (ô. Value) = "FALSE" _ Sau đó phần. Tôi hoàn toàn lạc lối trong MVB, bất kỳ trợ giúp nào cũng sẽ được đánh giá cao

Đáp lại

0

0

Adam

khoảng 8 năm trước

#10830

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Giả sử tôi đặt mã bên dưới để xóa tất cả các hàng có chứa táo nhưng sau đó tôi muốn nó tiếp tục sau khi hoàn thành và xóa tất cả các hàng có chứa chuối? . cảm ơn. Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("A1. C20"), Trang tính hoạt động. Phạm vi sử dụng) Đối với mỗi ô Trong rng If (ô. Value) = "Apple" _ Then If del Is nothing Then Set del = cell Else. Đặt del = Union(del, cell) End If End If Next cell On Error Resume Next del. Toàn bộ hàng. Xóa End Sub

Đáp lại

0

0

Joe Nelson

khoảng 8 năm trước

#11229

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Tôi chỉ muốn nói lời cảm ơn. Điều này làm việc như một sự quyến rũ

Đáp lại

0

0

Mira

khoảng 8 năm trước

#11656

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Chắc chắn tuyệt vời. Cảm ơn vì đã chia sẻ

Đáp lại

0

0

alardo

khoảng 8 năm trước

#11718

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Cảm ơn, điều này thật tuyệt. Bình luận nhanh, mình đã thử chức năng tìm và thay thế trong excel 2010. Để chọn tất cả các kết quả tìm thấy, tôi phải sử dụng Ctrl + A thay vì Alt + A

Đáp lại

0

0

áo phông

khoảng 8 năm trước

#11749

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin chào, Cách dễ nhất để xóa các hàng KHÔNG chứa "Apple" là gì?

Đáp lại

0

0

Sư Tử

khoảng 8 năm trước

#11792

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin chào, Có cách nào để viết nó để xóa một hàng, với một ngoại lệ OR không? . e- xóa các hàng trùng lặp, nhưng bỏ qua một giá trị nhất định. Tôi muốn xóa các mục trùng lặp, ngoại trừ trường hợp cột được đề cập chứa một b/c trống mà cột đó chưa có dữ liệu hợp lệ. Tôi đã chạy như bạn, nhưng tôi đã kết thúc việc xóa các hàng có khoảng trống trong cột được đề cập, vì vậy tôi không thể sử dụng nó như hiện tại. Cảm ơn

Đáp lại

0

0

smj2013

khoảng 8 năm trước

#11952

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Cám ơn VB Script. Tôi không thể đợi để thử cái này. Câu hỏi. Có cách nào để đánh dấu các cột để xóa trước khi xóa chúng và/hoặc sao chép vào một tab riêng trong sổ làm việc không?

Đáp lại

0

0

gabz

khoảng 8 năm trước

#12293

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

cảm tạ. nó giúp tôi rất nhiều

Đáp lại

0

0

alex2

khoảng 8 năm trước

#12761

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Tôi muốn xóa tất cả các hàng có cột1 = "Apple" VÀ cột3 = "green". làm ơn?

Đáp lại

0

0

Finidi     alex2

khoảng 8 năm trước

#12762

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Tôi không chắc làm thế nào để thực hiện việc này bằng cách sử dụng macro, nhưng một tùy chọn có thể thực hiện tốt công việc của nó là thêm một cột bổ sung để kiểm tra xem một cột là "quả táo" và cột còn lại là "xanh" rồi để . hơn là sử dụng một trong các tùy chọn trên để tìm kiếm giá trị "có" và xóa các hàng dựa trên giá trị đó thay vì 2 giá trị riêng biệt

Đáp lại

0

0

chiến thắng

khoảng 8 năm trước

#12813

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

tôi có một danh sách các cửa hàng trong một tài liệu. Tôi có một báo cáo trả về hàng nghìn dòng. số cửa hàng luôn ở Cột A. Có mã/macro nào sẽ tìm kiếm báo cáo và xóa tất cả các cột có số cửa hàng khỏi danh sách cửa hàng không. nghĩ rằng một vlookup và "Do While" là cần thiết

Đáp lại

0

0

Joan K

khoảng 7 năm trước

#13449

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin chào và cảm ơn bạn rất nhiều về mã VBA. tôi có một câu hỏi. Có thể tạo mã theo cách có thể chọn một số giá trị ô để xóa cùng một lúc không? . Joan K

Đáp lại

0

0

DavidGough

khoảng 7 năm trước

#13734

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Làm cách nào tôi có thể chỉ định phạm vi A3. D3000 (tức là. Tôi không muốn người dùng chọn phạm vi)? . G1?

Đáp lại

0

0

DavidGough

khoảng 7 năm trước

#13735

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

có thể so sánh hai cột và sau đó xóa không? . D3000 nếu ô A=x và ô B=y thì xóa hàng?