混合格式化VBA VLookup失败

我正在做什么应该是一个相当简单的查找范围与一些混合的数据：

然而，由于某种原因，在search词被格式化为数字的情况下，search一直失败。 当我写一个工作表函数相同的查找，它工作正常，但在vba中完成时，它返回＃N / A（最后一列）：

我试图将search字词转换为string，但它没有设法有所作为。 我敢肯定，这是一个简单的错误，但好的谷歌已经没有什么了。 下面是我用来运行vlookup的代码，但是你必须听我的话，那就是帮助器的function都是按照预期工作的。 （我确定他们是）

Sub countOfWordInNonCompetitorGrounp() Dim mainsheet As Worksheet Dim lookupSheet As Worksheet Dim outputColumn As Long Dim outputRow As Long Dim lookupValue As String Dim lookupRange As Range Set mainsheet = Sheets("UniqueWords") Set lookupSheet = Sheets("Temp") outputColumn = getFirstAvailableColumn(mainsheet, 1, 2) Set lookupRange = getTempLookupRange mainsheet.Cells(1, outputColumn) = "Count of Words in Non-Competitor Group" For outputRow = 2 To getFirstAvailableRowOneBlankOk(mainsheet, 2, 1) - 1 lookupValue = CStr(mainsheet.Cells(outputRow, 1)) mainsheet.Cells(outputRow, outputColumn) = Application.VLookup(lookupValue, lookupRange, 2, False) Next outputRow End Sub 

Answer 1

改变这一行：

 Dim lookupValue As String 

至

 Dim lookupValue As Variant 

您正在将数字lookupValues为Strings ，因此它们不匹配。