Xin hỏi về cách lọc lấy dữ liệu thỏa mãn 2 điều kiện

[clien172]

CHào các anh chị , em có 1 bảng excel gồm nhiều ô dữ liệu trong các cột, có 4 loại dữ liệu là ô chứa từ A, ô chứa từ B, ô chứa số định dạng là text và các ô còn lại, bây giờ e đang cần 1 hàm hoặc công thức ,hoặc VBA, hoặc 1 cái gì đó cũng đc ạ , có thể lấy két quả về 1 cột chứa các ô còn lại, 3 dạng ô kia thì bỏ hết ạ, mở rộng ra là nếu có thêm các giá trị C , D, E, F, thì công thức sẽ thế nào luôn ạ, em cảm ơn ạ

Update: em xin chỉnh lại bài một cách rõ ràng và chi tiết hơn để mọi người hiểu ý của em ạ,

File đính kèm của em đây ạ, mong các anh chị giúp em với ạ

 

[clien172]

Ai đi qua xem giúp em với ạ

 

[clien172]

Anh ơi, hàm này tên là gì vạy ạ

 

[clien172]

Public Sub GPE()
Dim sArr, dArr, I As Long, J As Long, K As Long
sArr = Range("A3", Range("A65000").End(3)).Resize(, 4).Value
ReDim dArr(1 To UBound(sArr) * 4, 1 To 1)
For J = 1 To UBound(sArr, 2)
    For I = 1 To UBound(sArr)
    If sArr(I, J) <> Empty Then
        If Not sArr(I, J) Like "*A*" Then
            If Not sArr(I, J) Like "*B*" Then
                K = K + 1
                dArr(K, 1) = sArr(I, J)
            End If
        End If
    End If
    Next
Next
If K Then Range("H3").Resize(K).Value = dArr
End Sub

Anh ơi, hàm này tên là gì vạy ạ, mong anh có thể hướng dẫn cách dùng ạ

 

[clien172]

Anh ơi, hàm này tên là gì vạy ạ

 

[Tuan_hcth]

ReDim dArr(1 To UBound(sArr) * 4, 1 To 1)
Sao lại phaỉ có "*4" ở đây nhỉ

 

[clien172]

ReDim dArr(1 To UBound(sArr) * 4, 1 To 1)
Sao lại phaỉ có "*4" ở đây nhỉ

cách dùng hàm này như thế nào vậy ạ

 

[Ba Tê]

cách dùng hàm này như thế nào vậy ạ

Code trên bài #3 là SUB, không phải HÀM, phải làm cho nó "RUN" mới cho kết quả.
Bạn muốn hàm thì xem file này.

 

[clien172]

Code trên bài #3 là SUB, không phải HÀM, phải làm cho nó "RUN" mới cho kết quả.
Bạn muốn hàm thì xem file này.

Anh ơi ,em muốn mở rộng thêm trường hợp là loại bỏ những dòng có dữ liệu toàn là số thì hàm này này sẽ thay đổi thế nào ạ, mong anh giúp em thêm một lần nữa ạ, khi làm việc em thấy phát sinh vấn đề này, anh có thể xem lại trường hợp này giúp em với ạ, em đính kèm lại bên dưới, mong a giúp ạ em định gửi sms riêng cho anh mà bị báo là hộp thư của anh đã đầy k thể gửi ạ

 

[clien172]

Code trên bài #3 là SUB, không phải HÀM, phải làm cho nó "RUN" mới cho kết quả.
Bạn muốn hàm thì xem file này.

Anh ơi ,em muốn mở rộng thêm trường hợp là loại bỏ những dòng có dữ liệu toàn là số thì hàm này này sẽ thay đổi thế nào ạ, mong anh giúp em thêm một lần nữa ạ, khi làm việc em thấy phát sinh vấn đề này, anh có thể xem lại trường hợp này giúp em với ạ, em đính kèm lại bên dưới, mong a giúp ạ em định gửi sms riêng cho anh mà bị báo là hộp thư của anh đã đầy k thể gửi ạ

 

[clien172]

Code trên bài #3 là SUB, không phải HÀM, phải làm cho nó "RUN" mới cho kết quả.
Bạn muốn hàm thì xem file này.

Anh ơi ,em muốn mở rộng thêm trường hợp là loại bỏ những dòng có dữ liệu toàn là số thì hàm này này sẽ thay đổi thế nào ạ, mong anh giúp em thêm một lần nữa ạ, khi làm việc em thấy phát sinh vấn đề này, anh có thể xem lại trường hợp này giúp em với ạ, em đính kèm lại bên dưới, mong a giúp ạ em định gửi sms riêng cho anh mà bị báo là hộp thư của anh đã đầy k thể gửi ạ

 

[leoheocon]

Anh ơi ,em muốn mở rộng thêm trường hợp là loại bỏ những dòng có dữ liệu toàn là số thì hàm này này sẽ thay đổi thế nào ạ, mong anh giúp em thêm một lần nữa ạ, khi làm việc em thấy phát sinh vấn đề này, anh có thể xem lại trường hợp này giúp em với ạ, em đính kèm lại bên dưới, mong a giúp ạ em định gửi sms riêng cho anh mà bị báo là hộp thư của anh đã đầy k thể gửi ạ

Dùng CT làm cho bạn bài này:
Tại H3 bạn đặt Name:

so=SMALL(IFERROR((COLUMN(Sheet1!$A:$D)&"."&TEXT(ROW(Sheet1!$1:$24),"00"))/(ISTEXT(Sheet1!$A$3:$D$26)*EXACT(Sheet1!$A$3:$D$26,LOWER(Sheet1!$A$3:$D$26))),""),ROW(Sheet1!A1))

Sau đó bạn dùng CT này tại H3:

H3=IFERROR(INDEX($A$3:$D$26,MOD(so,1)*100,so),"")

Rồi fill xuống!!!

 

[clien172]

Dùng CT làm cho bạn bài này:
Tại H3 bạn đặt Name:

so=SMALL(IFERROR((COLUMN(Sheet1!$A:$D)&"."&TEXT(ROW(Sheet1!$1:$24),"00"))/(ISTEXT(Sheet1!$A$3:$D$26)*EXACT(Sheet1!$A$3:$D$26,LOWER(Sheet1!$A$3:$D$26))),""),ROW(Sheet1!A1))

Sau đó bạn dùng CT này tại H3:

H3=IFERROR(INDEX($A$3:$D$26,MOD(so,1)*100,so),"")

Rồi fill xuống!!!

a cho e hỏi chút cái so= là ở đâu vậy anh , đây là VBA hả anh hay cái gì vậy ạ

 

[leoheocon]

a cho e hỏi chút cái so= là ở đâu vậy anh , đây là VBA hả anh hay cái gì vậy ạ

Mình dùng CT, tại nếu để thì CT dài lắm, bạn bấm Ctrl+F3 thì sẽ thấy Name là so

 

[clien172]

Mình dùng CT, tại nếu để thì CT dài lắm, bạn bấm Ctrl+F3 thì sẽ thấy Name là so

a cho em xin công thức tổng quát khi có nhiều dòng dữ liệu được k ạ, em cảm ơn ạ

 

[leoheocon]

hình như công thức chưa đúng a ạ, em tét thử thì nó vẫn ra dữ liệu là dòng có số

Bạn đưa file của bạn lên xem!!

 

[clien172]

Bạn đưa file của bạn lên xem!!

đây ạ anh ơi a hic cho em xin công thức tổng quát trong vùng từ ô A1 đến ô D 1000 anh nhé

 

[leoheocon]

đây ạ anh ơi a hic cho em xin công thức tổng quát trong vùng từ ô A1 đến ô D 1000 anh nhé

Mấy số đó của bạn là text mà!!!

 

[clien172]

Mấy số đó của bạn là text mà!!!

mà quên sao công thức của anh k nói gì về giá trị A và B ạ, bài của em là ko lấy dòng có chưa từ A , k lấy dòng chứa từ B, k lấy dòng có số, còn lại lấy tất ấy anh

 

[leoheocon]

mà quên sao công thức của anh k nói gì về giá trị A và B ạ, bài của em là ko lấy dòng có chưa từ A , k lấy dòng chứa từ B, k lấy dòng có số, còn lại lấy tất ấy anh

Nhận lại file nhe bạn!!!