Nhờ các cao nhân giúp đỡ em code dò tìm và gán giá trị trả về lần lượt theo từng ô của một cột (1 người xem)

[nprmc]

[/IMG] Em có một file dữ liệu với cấu trúc là MÃ SỐ và Giá trị tương ứng . Các mã số đó sẽ có một hoặc nhiều giá trị tương ứng. Vấn đề đặt ra ở đây là em muốn khi mình nhập mã số vào một ô thì nó sẽ trả về các giá trị tương ứng lần lượt theo từng ô trong một cột. Chi tiết các anh xem ở file đính kèm ạ. Em xin cảm ơn các anh/chị rất nhều...

 

[Hoang2013]

Bạn xài hàm mảng sau:

Function LKe(Rng As Range, Ma As String)
 Dim Arr()
 Dim J As Long, W As Long
 Arr() = Rng.Value
 ReDim dArr(1 To UBound(Arr()), 1 To 1) As String
 For J = 1 To UBound(Arr())
    If Arr(J, 1) = Ma Then
        W = W + 1:      dArr(W, 1) = Arr(J, 2)
    End If
 Next J
 LKe = dArr()
End Function

Cách xài:
(*) Lấy chuột tô chọn vùng [F1:F6]
(*) Nhập lên thanh công thức cụm từ: =LKe(B1:C7;E1)
(*) Kết thúc bỡi tổ hợp 3 fím dành cho hàm mảng.

 

[phulien1902]

[/IMG] Em có một file dữ liệu với cấu trúc là MÃ SỐ và Giá trị tương ứng . Các mã số đó sẽ có một hoặc nhiều giá trị tương ứng. Vấn đề đặt ra ở đây là em muốn khi mình nhập mã số vào một ô thì nó sẽ trả về các giá trị tương ứng lần lượt theo từng ô trong một cột. Chi tiết các anh xem ở file đính kèm ạ. Em xin cảm ơn các anh/chị rất nhều...

Bạn tham khảo:
+> Code cho Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$1" Then abc
End Sub

+> Code cho Module:

Sub abc()
Application.ScreenUpdating = False
Range("F1:G100").ClearContents
    With Range("B1", Range("B" & Rows.Count).End(xlUp))
        .AutoFilter Field:=1, Criteria1:=Range("E1")
        .Offset(1).Resize(, 2).Copy Range("f1")
        .AutoFilter
        .Columns(6).Delete
    End With
 Application.ScreenUpdating = True
End Sub