Tìm Kiếm dữ liệu trả về nhiều cột và nhiều hàng kèm công thức

[chitbk]

Chào các anh chị, mình đang cần viết code VBA or dùng hàm trong excel để trả về nhiều cột và nhiều hàng (kèm cả công thức) từ 1 dữ liệu có sẵn. Xin cảm ơn

 

[HieuCD]

Chào các anh chị, mình đang cần viết code VBA or dùng hàm trong excel để trả về nhiều cột và nhiều hàng (kèm cả công thức) từ 1 dữ liệu có sẵn. Xin cảm ơn
View attachment 260830

L4 =INDEX($D$3:$G$27,MATCH($J$4,$B$4:$B$27,0)+ROWS($1:1),COLUMNS($A:A))

Copy cho các ô còn lại

 

[HUONGHCKT]

Chào các anh chị, mình đang cần viết code VBA or dùng hàm trong excel để trả về nhiều cột và nhiều hàng (kèm cả công thức) từ 1 dữ liệu có sẵn. Xin cảm ơn

Góp thêm một cách. Thử dùng bằng VBA (code cùi bắp ) xem sao.
Nếu có kết quả ngay khi thay đổi J4 thì viết code cho sụ kiện thay đổi Worksheet_Change. Tôi tin là bạn làm được

 

[Ba Tê]

Góp thêm một cách. Thử dùng bằng VBA (code cùi bắp ) xem sao.
Nếu có kết quả ngay khi thay đổi J4 thì viết code cho sụ kiện thay đổi Worksheet_Change. Tôi tin là bạn làm được

Có thể viết thế này:

Public Sub GPE()
Const Cols As Long = 4
Dim I As Long, R As Long, Dam As Long, DK As Boolean
    Dam = Range("J4").Value
    R = Range("D10000").End(xlUp).Row
For I = 4 To R Step 3
    If Range("B" & I).Value = Dam Then
        Range("D" & I).Resize(3, Cols).Copy
        Range("L4").PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        MsgBox "XONG!", , "GPE"
        DK = True
        Exit For
    End If
Next I
If DK = False Then
    Range("L4:O6").ClearContents
    MsgBox "Khong tim thay", , "GPE"
End If
End Sub

 

[chitbk]

Góp thêm một cách. Thử dùng bằng VBA (code cùi bắp ) xem sao.
Nếu có kết quả ngay khi thay đổi J4 thì viết code cho sụ kiện thay đổi Worksheet_Change. Tôi tin là bạn làm được

Cảm ơn HUONGHCKT, Ba Tê và HieuCD,
Hiện nay code chỉ chạy cho 1 ô J4, mình có thể cho chạy nhiều vị trí như hình không ah, xin cảm ơn.

​

 

[befaint]

Lấp đầy dữ liệu ở cột B rồi Filter hoặc Advanced Filter là xong.

 

[Ba Tê]

Cảm ơn HUONGHCKT, Ba Tê và HieuCD,
Hiện nay code chỉ chạy cho 1 ô J4, mình có thể cho chạy nhiều vị trí như hình không ah, xin cảm ơn.

View attachment 260838​

Có thể nhưng không hỏi "cà giựt" từng chút như vậy.

 

[HUONGHCKT]

Có thể viết thế này:

Public Sub GPE()
Const Cols As Long = 4
[/QUOTE]
nếu số cột cần copy nhiều hơn 4 thì... 
và
[QUOTE="Ba Tê, post: 1032750, member: 163936"]
For I = 4 To R Step 3
  ......
[/QUOTE]
Tôi nghị rằng nếu để Const cols =4  và để  bước nhảy Step =3 có thể sễ không đúng nếu dữ liệu có cách quãng không đều.

Bài đã được tự động gộp: 18/6/21

Cảm ơn HUONGHCKT, Ba Tê và HieuCD,
Hiện nay code chỉ chạy cho 1 ô J4, mình có thể cho chạy nhiều vị trí như hình không ah, xin cảm ơn.

View attachment 260838​

tôi sửa lại theo ý bạn. chay thử xem

 

[Maika8008]

Có thể nhưng không hỏi "cà giựt" từng chút như vậy.

Cà giựt là hiện tượng phổ biến khi hỏi trên GPE rồi.