Xoá dòng theo điều kiện (1 người xem)

[sanzin111085]

Dear các bạn,

Mình có một bảng dữ liệu (VD: "A223") như file attached: Cột A- số kiện, Cột B-số invoice, Cột C- Số Packing list, Cột E-số hợp đồng.
Ở cột I cũng có số kiện.
Cho mình hỏi có cách nào để xoá dòng trong bảng dữ liệu A223 nếu như số kiện trên cột A trùng với dữ liệu trên cột I (Tức là trùng số kiện thì xoá luôn dòng trong bảng). Đây là ví dụ mình hoạ, còn công việc của mình đôi lúc gặp một bảng dữ liệu rất là phức tạp, bảng dữ liệu rất lớn. Mong sớm nhận được hồi âm của các bạn.

Trân trọng và cám ơn,

 

[phihndhsp]

Dear các bạn,

Mình có một bảng dữ liệu (VD: "A223") như file attached: Cột A- số kiện, Cột B-số invoice, Cột C- Số Packing list, Cột E-số hợp đồng.
Ở cột I cũng có số kiện.
Cho mình hỏi có cách nào để xoá dòng trong bảng dữ liệu A223 nếu như số kiện trên cột A trùng với dữ liệu trên cột I (Tức là trùng số kiện thì xoá luôn dòng trong bảng). Đây là ví dụ mình hoạ, còn công việc của mình đôi lúc gặp một bảng dữ liệu rất là phức tạp, bảng dữ liệu rất lớn. Mong sớm nhận được hồi âm của các bạn.

Trân trọng và cám ơn,

ý bạn là xoá những dòng CaseA7 CaseA8 CaseA1 phải không?

Nếu đúng thì bạn làm như sau

B1. E2=IF(COUNTIF($I$7:$I$9,A2)>0,TRUE,"")
sau đó kéo xuống
B2. Chọn cột E sau đó nhấn Ctrl+G nhấn Speacial chọn
fomulas chọn Logicals
B3. Chọn Delete Row

 

[Ba Tê]

Dear các bạn,

Mình có một bảng dữ liệu (VD: "A223") như file attached: Cột A- số kiện, Cột B-số invoice, Cột C- Số Packing list, Cột E-số hợp đồng.
Ở cột I cũng có số kiện.
Cho mình hỏi có cách nào để xoá dòng trong bảng dữ liệu A223 nếu như số kiện trên cột A trùng với dữ liệu trên cột I (Tức là trùng số kiện thì xoá luôn dòng trong bảng). Đây là ví dụ mình hoạ, còn công việc của mình đôi lúc gặp một bảng dữ liệu rất là phức tạp, bảng dữ liệu rất lớn. Mong sớm nhận được hồi âm của các bạn.

Trân trọng và cám ơn,

Không biết muốn xóa dữ liệu trong dòng đó hay xóa luôn cả dòng...
Nếu muốn xóa dòng (Delete Row) thì xem file này. Dời cột I qua sheet khác cho rộng chỗ.
Bấm nút 1 phát là xong
(Code này chỉ dùng 4 cột như dữ liệu gốc, nếu nhiều cột hơn thì sửa lại các số 4 trong code)

Public Sub GPE()
Dim Rng(), Rng1(), Arr(), I As Long, K As Long, J As Long, Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
Rng = Sheets("DK").Range(Sheets("DK").[A2], Sheets("DK").[A65000].End(xlUp)).Value
    For I = 1 To UBound(Rng, 1)
        If Not Dic.exists(Rng(I, 1)) Then
            Dic.Add Rng(I, 1), ""
        End If
    Next I
Rng1 = Sheets("DATA").Range([A2], [A65000].End(xlUp)).Resize(, 4).Value
ReDim Arr(1 To UBound(Rng1, 1), 1 To 4)
    For I = 1 To UBound(Rng1, 1)
        If Not Dic.exists(Rng1(I, 1)) Then
            K = K + 1
            For J = 1 To 4
                Arr(K, J) = Rng1(I, J)
            Next J
        End If
    Next I
Sheets("DATA").[A2:D100].ClearContents
If K Then Sheets("DATA").[A2].Resize(K, 4).Value = Arr
Set Dic = Nothing
End Sub

 

[sanzin111085]

Mình làm được rồi! Cách của 2 bạn đều thành công nhé!