em dùng code này nhưng khi chạy code thì kết quả là NA xin khắc phụcSub TimKiem

Question

em dùng code này nhưng khi chạy code thì kết quả là #N/A xin khắc phụcSub TimKiem()

em dùng code này, nhưng khi chạy code thì kết quả là #N/A, xin hướng dẫn cách khắc phục

Sub TimKiem()

Dim DCuoi As Long

DCuoi = Sheet10.Range("B" & Rows.Count).End(xlUp).Row

Dim i As Long

For i = 8 To DCuoi

Sheet10.Range("f" & i) = Application.Vlookup(Range("b" & i), Sheet12.Range("B8:F33"), 4, False)

If TypeName(Sheet10.Range("f" & i)) = "error" Then Debug.Print "Not found"

Next i

End Sub

3 câu trả lời

45 lượt xem

vỗ tay

Tuấn Ba · Answer

Chào bạn bạn giá trịnbsp rangebampi có thuộc cột Sheet.rangeBB không nếu không có dữ liệu thì kết quả sẽ báo lỗi đó.

Võ tá đức · Answer

Cách khắc phục như thế nào vậychạy có để những kết quả NA sẽ chuyển

Tuấn Ba · Answer

Chào bạn bạn xem phần này nhé httpsstackoverflow.comquestions...Sub TestMeDim vTest As VariantvTest  Application.VLookupTesT RangeAB  FalseIf IsErrorvTest ThenMsgBox Not found vbCriticalElseMsgBox value is  amp vTestEnd IfEnd Sub

em dùng code này nhưng khi chạy code thì kết quả là #N/A xin khắc phụcSub TimKiem()

Câu hỏi liên quan