Lọc dữ liệu theo tiêu đề cột

[KhoiSMC]

Hi các bạn GPE,

Mình có mong muốn sau nhờ các bạn tư vấn giúp (bài toán này trước mình đã dùng vlookup và có kết quả nhưng phải đặt thêm các cột phụ nên nhờ các bạn tư vấn có cách nào hay hơn không nhé):

Dữ liệu:


Kết quả:


Xin các bạn xem thêm file đính kèm: test.xlsx

Thanks
Khoi

 

[concogia]

Hi các bạn GPE,

Mình có mong muốn sau nhờ các bạn tư vấn giúp (bài toán này trước mình đã dùng vlookup và có kết quả nhưng phải đặt thêm các cột phụ nên nhờ các bạn tư vấn có cách nào hay hơn không nhé):

Dữ liệu:
View attachment 122315

Kết quả:
View attachment 122316

Xin các bạn xem thêm file đính kèm: test.xlsx

Thanks
Khoi

Chọn vùng [B4:B9] nhập công thức:

=OFFSET($E$4,,MATCH(B3,$E$3:$N$3,0)-1,6)

Bấm Ctrl + Shift + Enter
Kéo sang phải
Thân

 

[KhoiSMC]

Cám ơn bạn,

Mình đang thử xem, nhưng hình như có vấn đề khi kéo xuống dưới
Liệu có giải pháp khác không dùng công thức mảng không bạn, khi dữ liệu của mình lớn >10,000 dòng thì xử lý hơi chậm.

Thanks
Khoi

 

[nginh]

Cám ơn bạn,

Mình đang thử xem, nhưng hình như có vấn đề khi kéo xuống dưới
Liệu có giải pháp khác không dùng công thức mảng không bạn, khi dữ liệu của mình lớn >10,000 dòng thì xử lý hơi chậm.

Thanks
Khoi

Bạn làm theo file sau đây

 

[KhoiSMC]

Bạn làm theo file sau đây

Cám ơn bạn code chạy rồi, nhưng mình không hiểu lắm vì VBA còn chưa thạo, bạn có thể để code dạng dễ hiểu hơn không vì mình áp dụng vào file thật của mình có dòng và cột ở chỗ khác bạn ạ.

Private Sub Worksheet_Change(ByVal target As Range)
If target.Count = 1 Then If target <> "" Then _
Range(Cells.Find(target, target), Cells.Find(target, target).End(xlDown)).Offset(1).Copy target.Offset(1)
End Sub

Cám ơn bạn nhiều.
Khoi

 

[concogia]

Cám ơn bạn,

Mình đang thử xem, nhưng hình như có vấn đề khi kéo xuống dưới
Liệu có giải pháp khác không dùng công thức mảng không bạn, khi dữ liệu của mình lớn >10,000 dòng thì xử lý hơi chậm.

Thanks
Khoi

Dùng thử công thức này:

=IF(ROW(A1)>ROWS($E$4:$N$9),"",INDEX($E$4:$N$9,ROW(A1),MATCH(B$3,$E$3:$N$3,0)))

Kéo sang phải, kéo xuống, chán thì nghỉ
Mình thử cả 2 công thức với 15000 dòng dữ liệu vẫn chạy cái ào dù mình "chơi" máy "Xi- ma- chao"
Híc

 

[KhoiSMC]

[COLOR=#000000][I]=IF(ROW(A1)>ROWS($E$4:$N$9),"",INDEX($E$4:$N$9,ROW (A1),MATCH(B$3,$E$3:$N$3,0)))
[/I][/COLOR]

Mình thả vào ô B4 mà bị #NAME? là sao nhỉ?

Thanks
Khoi

 

[concogia]

[COLOR=#000000][I]=IF(ROW(A1)>ROWS($E$4:$N$9),"",INDEX($E$4:$N$9,ROW (A1),MATCH(B$3,$E$3:$N$3,0)))
[/I][/COLOR]

Mình thả vào ô B4 mà bị #NAME? là sao nhỉ?

Thanks
Khoi

ROW (A1),MATCH

ROW (A1) có khoảng trắng ở giữa

 

[KhoiSMC]

ROW (A1) có khoảng trắng ở giữa

ơ, được rồi concogia ạ, mình bỏ khoảng trắng ở giữa ROW và (A1) đi là chạy rồi

=IF(ROW(A1)>ROWS($E$4:$N$9),"",INDEX($E$4:$N$9,ROW(A1),MATCH(B$3,$E$3:$N$3,0)))

Thanks
Khoi

 

[chuot0106]

Hi các bạn GPE,

Mình có mong muốn sau nhờ các bạn tư vấn giúp (bài toán này trước mình đã dùng vlookup và có kết quả nhưng phải đặt thêm các cột phụ nên nhờ các bạn tư vấn có cách nào hay hơn không nhé):
.............
Khoi

Mình đang tập tành VBA, bạn xem thử File nhé!