Vlookup bị lỗi

[tranphuson]

Vui lòng giúp mình Vlookup bằng Text (ký tự: A, B, C) thì được mà bằng số thì bị lỗi không dò tìm được (Bên Sheet "CT")

Xin cảm ơn

 

[CHAOQUAY]

Vui lòng giúp mình Vlookup bằng Text (ký tự: A, B, C) thì được mà bằng số thì bị lỗi không dò tìm được (Bên Sheet "CT")

Xin cảm ơn

Công thức ở đâu & bị lỗi thế nào

 

[tranphuson]

Công thức ở đâu & bị lỗi thế nào

Mình sử dụng bằng VBA.

Cảm ơn

 

[giaiphap]

Mình sử dụng bằng VBA.

Cảm ơn

Thử thế này.

Sub TimKiem_Vlookup()
Dim i As Long, j As Long, sArray1, sArray2, Arr()
With Sheets("MA")
    sArray1 = .Range(.[C7], .[C65000].End(xlUp)).Resize(, 24).Value
End With
With Sheets("CT")
    .Range("R2:S65000").ClearContents
    sArray2 = .Range(.[C2], .[C65000].End(xlUp)).Value
    ReDim Arr(1 To UBound(sArray2, 1), 1 To 21)
For j = 1 To UBound(sArray2, 1)
    For i = 1 To UBound(sArray1, 1)
        If Not IsEmpty(sArray2(j, 1)) And ((UCase(sArray1(i, 1)) = UCase(sArray2(j, 1))) Or (IsNumeric(sArray2(j, 1)) And (sArray1(i, 1) = sArray2(j, 1)))) Then
            Arr(j, 1) = sArray1(i, 21)
            Arr(j, 2) = sArray1(i, 22)
        End If
    Next
Next
.Range("R2").Resize(j - 1, 2).Value = Arr
End With
End Sub

 

[CHAOQUAY]

Mình sử dụng bằng VBA.

Cảm ơn

Vậy mình thêm dòng này

Option Compare Text

Vào dưới dòng này

Option Explicit

Rồi xóa Ucase đi rồi là mình chạy xem sao

 

[be_09]

Vui lòng giúp mình Vlookup bằng Text (ký tự: A, B, C) thì được mà bằng số thì bị lỗi không dò tìm được (Bên Sheet "CT")
Xin cảm ơn

Thay dòng này:
If Not IsEmpty(sArray2(j, 1)) And sArray1(i, 1) = UCase(sArray2(j, 1)) Then

Bằng dòng này:
If Not IsEmpty(sArray2(j, 1)) And sArray1(i, 1) = sArray2(j, 1) Then

 

[tranphuson]

Thay dòng này:
If Not IsEmpty(sArray2(j, 1)) And sArray1(i, 1) = UCase(sArray2(j, 1)) Then

Bằng dòng này:
If Not IsEmpty(sArray2(j, 1)) And sArray1(i, 1) = sArray2(j, 1) Then

Cảm ơn Anh "be09 & CHAOQUAY" hỗ trợ. Mình đã làm được theo 02 cách gợi ý này.