Hướng dẫn delete rows in vba excel with criteria - xóa hàng trong vba excel với tiêu chí

Quay trở lại ví dụ về mã VBA

Chương trình con sau đây sẽ xóa từng hàng trong một phạm vi trong đó giá trị trong cột A bắt đầu bằng một đoạn văn bản được quy định:

Sub Delete_Rows(Data_range As Range, Text As String)
Dim Row_Counter As Integer
For Row_Counter = Data_range.Rows.Count To 1 Step -1
If Data_range Is Nothing Then

  Exit Sub
End If
If UCase(Left(Data_range.Cells(Row_Counter, 1).Value, Len(Text))) = UCase(Text) Then
    		Data_range.Cells(Row_Counter, 1).EntireRow.Delete
End If
Next Row_Counter

End Sub

Ví dụ: xóa_rows (tờ (trang tính1). Phạm vi (Hồi A1: E23, Chó chó) sẽ xóa tất cả các hàng trong phạm vi A1: E23 trong đó giá trị trong cột A bắt đầu với từ chó con chó. Lưu ý Việc sử dụng UCASE có nghĩa là các công thức là trường hợp không nhạy cảm, các tế bào bắt đầu với bất kỳ chó, chó, chó hoặc chó nào đều sẽ bị xóa.

Đây:

Hướng dẫn delete rows in vba excel with criteria - xóa hàng trong vba excel với tiêu chí

Sẽ trở thành:

Hướng dẫn delete rows in vba excel with criteria - xóa hàng trong vba excel với tiêu chí

Hướng dẫn delete rows in vba excel with criteria - xóa hàng trong vba excel với tiêu chí

Mã hóa VBA được thực hiện dễ dàng

Ngừng tìm kiếm mã VBA trực tuyến. Tìm hiểu thêm về Automacro - Trình tạo mã VBA cho phép người mới bắt đầu mã hóa các quy trình từ đầu với kiến ​​thức mã hóa tối thiểu và với nhiều tính năng tiết kiệm thời gian cho tất cả người dùng!

Hướng dẫn delete rows in vba excel with criteria - xóa hàng trong vba excel với tiêu chí

Tìm hiểu thêm!

Bỏ qua nội dung

Xóa các hàng dựa trên các tiêu chí bằng VBA

Trang chủ »VBA» Xóa hàng dựa trên tiêu chí bằng VBAVBA » Delete rows based on criteria using VBA

  • Hướng dẫn delete rows in vba excel with criteria - xóa hàng trong vba excel với tiêu chí

Mã VBA để xóa các hàng dựa trên ví dụ tiêu chí sẽ giúp chúng tôi xóa các hàng dựa trên điều kiện từ bảng tính Excel. Chúng ta có thể sử dụng phương thức xóa các hàng để xóa các hàng dựa trên các tiêu chí. Trong ví dụ này, chúng ta sẽ thấy cách xóa các hàng trong bảng tính Excel bằng VBA dựa trên các tiêu chí. Mã VBA để xóa các hàng dựa trên các tiêu chí Macro sẽ hoạt động cho tất cả các phiên bản của Microsoft Excel 2003, Excel 2007, Excel 2010 và Excel 2013.

Hướng dẫn delete rows in vba excel with criteria - xóa hàng trong vba excel với tiêu chí

Mã VBA để xóa các hàng dựa trên tiêu chí


Dưới đây là ví dụ về cú pháp VBA và ví dụ Macro VBA để xóa các hàng khỏi bảng tính Excel dựa trên các tiêu chí. Điều này sẽ giúp bạn biết cách xóa các hàng cụ thể dựa trên điều kiện từ Excel Workbook bằng VBA.

VBA Xóa hàng dựa trên tiêu chí: Cú pháp


Sau đây là Cú pháp VBA và mã VBA mẫu để xóa các hàng dựa trên các tiêu chí từ bảng tính bằng VBA. Chúng tôi đang sử dụng phương thức xóa đối tượng hàng của bảng tính.


If Then Rows(“[Row Numbers]”).EntireRow.Delete

Đây là tiêu chí là điều kiện bạn muốn kiểm tra để xóa hàng. Và số hàng là số hàng để xóa. Và Phương thức Entirerow.Delete sẽ xóa toàn bộ hàng khỏi bảng tính Excel.

: Xóa các hàng dựa trên tiêu chí bằng VBA: Ví dụ


Mã VBA sau đây là xóa các hàng dựa trên các tiêu chí từ bảng tính Excel. Mã này sẽ xóa các hàng (1 đến 20) nếu nó đáp ứng điều kiện nếu giá trị ô là 1.
Sub sbDelete_Rows_Based_On_Criteria()
Dim lRow As Long
Dim iCntr As Long
lRow = 20
For iCntr = lRow To 1 Step -1
    If Cells(iCntr, 1) = 1 Then
        Rows(iCntr).Delete
    End If
Next
End Sub

Hướng dẫn chạy mã VBA để xóa các hàng dựa trên các tiêu chí


Vui lòng làm theo các bước dưới đây để thực thi mã VBA để xóa các hàng dựa trên các tiêu chí từ bảng tính Excel. Bước 1: Mở Sổ làm việc Excel Bước 2: Nhấn Alt+F11 - Điều này sẽ mở Trình chỉnh sửa VBA Bước 3: Chèn mô -đun mã từ sau đó chèn Menu Bước 4: Sao chép mã trên và dán vào mô -đun mã đã được chèn vào Trên Bước Bước 5: Nhập một số dữ liệu mẫu vào cột đầu tiên từ hàng 1 đến 20 Bước 6: Bây giờ nhấn F5 để thực thi mã
Step 1: Open any Excel workbook
Step 2: Press Alt+F11 – This will open the VBA Editor
Step 3: Insert a code module from then insert menu
Step 4: Copy the above code and paste in the code module which have inserted in the above step
Step 5: Enter some sample data in first column from row 1 to 20
Step 6: Now press F5 to execute the code

Bây giờ bạn có thể quan sát rằng các hàng bị xóa khỏi bảng tính nếu các ô trong phạm vi A1 đến A20 chứa 1.

Giải thích mã VBA để xóa các hàng dựa trên các tiêu chí


Chương trình sắp xếp và quy trình phụ để viết mã VBA để xóa các hàng dựa trên các tiêu chí.

Sub SBDelete_Rows_Basing_on_criteria ()

Khai báo biến LROW là dài để lưu trữ số hàng cuối cùng Dim Lrow dài
Dim lRow As Long

Khai báo ICNTR biến dài để sử dụng trong vòng lặp DIM ICNTR miễn là
Dim iCntr As Long

Gán giá trị hàng cuối cùng cho biến lrow lrow = 20
lRow = 20

'Sử dụng cho vòng lặp', chúng tôi sẽ kiểm tra từng giá trị ô nếu nó chứa giá trị 1 'và xóa hàng nếu đúng với ICNTR = lrow đến 1 bước -1 nếu các ô (ICNTR, 1) = 1 sau đó hàng (ICNTR). Nếu tiếp theo
‘We are checking the each cell value if it contains value 1
‘And deleting the row if true
For iCntr = lRow To 1 Step -1
If Cells(iCntr, 1) = 1 Then
Rows(iCntr).Delete
End If
Next

Kết thúc macro để xóa các hàng dựa trên các tiêu chí bằng cách sử dụng phụ VBA End Sub
End Sub

Ở đây bạn có thể quan sát rằng chúng tôi đang lặp qua các tế bào từ dưới lên. Đây là cách tiếp cận tốt nhất để xóa các hàng.

120 Mẫu quản lý dự án chuyên nghiệp!

Tiết kiệm tới 85%ưu đãi thời gian giới hạn LIMITED TIME OFFER

Một mẫu mạnh mẽ và đa năng để quản lý dự án. Bây giờ quản lý liền mạch các dự án, nhiệm vụ, cuộc họp, thuyết trình, nhóm, khách hàng, các bên liên quan và thời gian của bạn. Trang này mô tả tất cả các tính năng và tùy chọn mới tuyệt vời đi kèm với các mẫu cao cấp của chúng tôi.

Hướng dẫn delete rows in vba excel with criteria - xóa hàng trong vba excel với tiêu chí

Gói tất cả trong một gói cao cấp quản lý dự án
120+ Project Management
Premium Templates

Gói thiết yếu 50+ Mẫu cao cấp quản lý dự án
50+ Project Management
Premium Templates

Hơn 50 gói quản lý dự án Excel
Project Management
Templates Pack

Hơn 50 gói quản lý dự án PowerPoint
Project Management
Templates Pack

Gói mẫu quản lý dự án từ 25+ MS
Project Management
Templates Pack

Mẫu quản lý dự án cuối cùng

Mẫu quản lý tài nguyên cuối cùng

Mẫu quản lý danh mục đầu tư dự án

Chia sẻ câu chuyện này, chọn nền tảng của bạn!

6 bình luận

  1. Cảm ơn bạn, cảm ơn bạn, cảm ơn bạn!!! Tôi đã tìm kiếm một cái gì đó đơn giản như bạn đã cho thấy đêm Al! Bạn không biết bạn đã giúp tôi bao nhiêu!

  2. Cảm ơn rất nhiều bạn đã làm thực sự là một công việc tuyệt vời. Trang web này thực sự rất nhiều thông tin cho tất cả các sinh viên của VBA.

  3. Cảm ơn Iftikhar Ahmed- pnrao!

  4. Có cách nào để tìm kiếm nội dung của một ô cho một trận đấu và xóa hàng đó nếu nó phù hợp?

    Ví dụ, tôi có hàng trăm hàng dữ liệu của hợp đồng. Trong cột đầu tiên, các hợp đồng được xác định là một cái gì đó giống như

    “ACA DSB 0115998

    Tôi muốn tạo một macro xóa hàng của bất kỳ hợp đồng nào có chứa DSB DSB ở giữa. Điều này có thể?

  5. Xin chào Mifin,

    Bạn có thể sử dụng chức năng tìm kiếm Excel để tìm một hàng với văn bản cần thiết và xóa nó.

    Thanks-PNRao!

  6. Chào Pnrao,

    Tôi có một bảng tính có hàng ngàn hoặc hồ sơ/giao dịch. Tôi phải xóa tất cả các bản ghi có cùng giá trị trong một cột như một bản ghi khác - cuối cùng chỉ để lại các bản ghi lẻ không có khớp. Tôi bắt đầu quá trình đối chiếu của mình bằng cách đầu tiên tạo một cột ABS cho các giá trị trong cột liền kề. Sau đó tôi sắp xếp cột ABS theo giá trị lớn nhất đến nhỏ nhất.
    I start my reconciling process by first creating an ABS column for the values in the adjacent column. I then sort the ABS column by largest to smallest value.

    Đây là thử thách của tôi. Tôi phải so sánh thủ công giá trị ABS của bản ghi đầu tiên với giá trị ABS của bản ghi thứ hai. Nếu các giá trị khớp, thì tôi xóa hai hàng này. Nếu các giá trị không khớp, thì tôi nhấn mạnh bản ghi thứ nhất, chuyển sang bản ghi thứ hai và so sánh bản ghi thứ hai với bản ghi thứ ba. Nếu hai bản ghi này giống nhau, thì tôi xóa hai bản ghi này. Nếu chúng không giống nhau, thì tôi nhấn mạnh bản ghi đầu tiên trong hai bản ghi này, chuyển sang bản ghi tiếp theo và so sánh bản ghi tiếp theo với bản ghi sau và lặp lại quy trình.

    Khi tôi hoàn thành, tôi bị bỏ lại với các hồ sơ kỳ lạ.

    Như bạn có thể thấy, điều này tương tự như mã hóa của bạn ở trên. Bạn có thể vui lòng cho tôi biết làm thế nào tôi có thể hoàn thành kết quả tôi cần bằng cách sử dụng mã hóa tương tự không?

    Rất đánh giá cao những gì bạn đang làm,

    Tderrell

Quản lý hiệu quả các dự án của bạn và & NBSP; Tài nguyên
Projects and  Resources

Với các mẫu quản lý dự án chuyên nghiệp và cao cấp của chúng tôi!

Analysistabs.com cung cấp các công cụ, mẫu và bảng điều khiển dự án miễn phí và cao cấp để quản lý hiệu quả các dự án và phân tích dữ liệu. provides free and premium project management tools, templates and dashboards for effectively managing the projects and analyzing the data.

Chúng tôi là một nhóm chuyên môn chuyên môn về Excel VBA, phân tích kinh doanh, quản lý dự án. Chúng tôi chia sẻ bản đồ của chúng tôi để dự án thành công với các công cụ, mẫu, hướng dẫn và mẹo sáng tạo.

Quản lý dự án

  • Quản lý dự án
  • Mẫu miễn phí
  • Mẫu cao cấp
  • Kế hoạch dự án
  • Hoạt động dự án
  • Thẩm định dự án
  • Ngân sách dự án
  • Điều lệ dự án
  • Tài nguyên dự án
  • Tình trạng của dự án
  • Dòng thời gian dự án
  • Biểu đồ Gantt

Excel VBA

  • Blog
  • Hướng dẫn Excel
  • Hướng dẫn VBA
  • Mã khám phá mã VBA
  • 15 macro Excel cho người mới bắt đầu
  • Hơn 100 macro VBA hữu ích nhất
  • Các dự án VBA
  • Mẫu
  • Bảng điều khiển
  • Tải xuống
  • Kiến thức cơ bản

Tải xuống miễn phí Excel 2007, 2010, 2013 Bổ trợ để tạo bảng điều khiển sáng tạo, công cụ khai thác dữ liệu, phân tích, trực quan hóa. Tìm hiểu VBA cho MS Excel, Word, PowerPoint, Access, Outlook để phát triển các ứng dụng bán lẻ, bảo hiểm, ngân hàng, tài chính, viễn thông, lĩnh vực chăm sóc sức khỏe.

Hướng dẫn delete rows in vba excel with criteria - xóa hàng trong vba excel với tiêu chí

Liên kết tải trang
Đi đến đầu