Công thức dò tìm ra nhiều giá trị

[congnghethongtin_07]

Mình đang gặp một vấn đề thắc mắc như trong file đính kèm mình có 2 Sheet, Sheet 1 là môt bẳng dữ liệu, Sheet 2 là có cột Mã NV, ở Sheet 2 mình muốn dùng hàm để từ Mã nv có thể tra cứu ra Họ tên nv, Số ĐT, Thuộc Quận.
Nếu dùng hàm Vlookup, index thì phải viết lại 3 lần mới ra đủ thông tin, mình muốn dùng một hàm là có thể lấy luôn nhiều giá trí như: Họ tên nv, Số ĐT, Thuộc Quận.
Nhờ các hỗ trợ giúp mình trường hợp này.
Chân thành cảm ơn các bạn.

 

[giaiphap]

Mình đang gặp một vấn đề thắc mắc như trong file đính kèm mình có 2 Sheet, Sheet 1 là môt bẳng dữ liệu, Sheet 2 là có cột Mã NV, ở Sheet 2 mình muốn dùng hàm để từ Mã nv có thể tra cứu ra Họ tên nv, Số ĐT, Thuộc Quận.
Nếu dùng hàm Vlookup, index thì phải viết lại 3 lần mới ra đủ thông tin, mình muốn dùng một hàm là có thể lấy luôn nhiều giá trí như: Họ tên nv, Số ĐT, Thuộc Quận.
Nhờ các hỗ trợ giúp mình trường hợp này.
Chân thành cảm ơn các bạn.

Thì chỉ viết có một lần chứ có 2 lần đâu. Ô B2 gõ công thức như dưới sau đó copy công thức cho các ô còn lại.

=VLOOKUP($A2;Sheet1!$A$1:$D$8;MATCH(B$1;Sheet1!$A$1:$D$1;0))

 

[congnghethongtin_07]

cảm ơn bạn đã hỗ trợ

 

[phulien1902]

Mình đang gặp một vấn đề thắc mắc như trong file đính kèm mình có 2 Sheet, Sheet 1 là môt bẳng dữ liệu, Sheet 2 là có cột Mã NV, ở Sheet 2 mình muốn dùng hàm để từ Mã nv có thể tra cứu ra Họ tên nv, Số ĐT, Thuộc Quận.
Nếu dùng hàm Vlookup, index thì phải viết lại 3 lần mới ra đủ thông tin, mình muốn dùng một hàm là có thể lấy luôn nhiều giá trí như: Họ tên nv, Số ĐT, Thuộc Quận.
Nhờ các hỗ trợ giúp mình trường hợp này.
Chân thành cảm ơn các bạn.

Thử:

Option Explicit
Sub ABC()
    Dim i As Long
    With Sheets(2)
        For i = .Range("A" & Rows.Count).End(3).Row To 2 Step -1
            With .Range(Cells(i, "B"), Cells(i, "D"))
                .FormulaArray = "=VLOOKUP(A" & i & ",'Sheet1'!$A$2:$D$8,{2,3,4},FALSE)"
                .Value = .Value
                .Replace "#N/A", ""
            End With
        Next i
    End With
End Sub