索引匹配返回NA值

时间:2016-02-22 21:18:08

标签: vba

我有一个vba代码,可以在列和行的交叉点找到值。 它适用于我的所有数据,除了一个:它返回NA。 我想要返回的值与通常相同,它只适用于此交集。 你能帮我搞清楚为什么吗? 谢谢

With Perftitres
Set VMt = Data1.Range("U:U")
Set Ticker = Data1.Range("H:H")
End With

    ' Calculs de perf
   For Each sht In Perftitres.Worksheets
    If sht.Visible = True Then
            If sht.Cells(1, 1) = "" Then
            sht.Cells(1, 1) = "Date"
            sht.Cells(1, 2) = "Code du placement"
            sht.Cells(1, 3) = "Valeur marchande t"
            sht.Cells(1, 4) = "Valeur marchande t-1"
            sht.Cells(1, 5) = "Valeur des achats"
            sht.Cells(1, 6) = "Valeur des ventes"
            sht.Cells(1, 7) = "Facteur"
            sht.Cells(1, 8) = "Rendement 1 mois"
            End If
    LastRowsht = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row 
    LastColumnsht = sht.Cells(1, sht.Columns.Count).End(xlToLeft).Column 
    sht.Cells(LastRowsht + 1, 1) = 20 & Left(Dateupdate, 2) & "-" &   Right(Dateupdate, 2)
    sht.Cells(LastRowsht + 1, 2) = sht.Name
    sht.Cells(LastRowsht + 1, 3) = Application.Index(VMt, Application.Match(sht.Cells(LastRowsht + 1, 2), Ticker))
End If
Next sht

Data1.Visible = True
Data2.Visible = True

此行不能仅按预期工作一张。对于其他每一个它都有效。

   sht.Cells(LastRowsht + 1, 3) = Application.Index(VMt, Application.Match(sht.Cells(LastRowsht + 1, 2), Ticker))

1 个答案:

答案 0 :(得分:0)

我刚刚找到答案:

count

我必须得到0和0才能完全匹配