Question

我正在从Excel工作表（它们在I和J列中，从代码中可以很明显地看到它们）中查找日期，数字或文本的值。我正在尝试将这些值的格式更改为text，以便对显示的单元格的值进行vlookup。因此，如果我看到2018年7月28日，我想按原样进行vlookup，而不是获得vlookup结果作为数字或日期（大多数时间会自动将其转换为数字）。到目前为止，我已经尝试了以下内容，但效果不佳。

ws3.Range("I2:J" & lastrow1).NumberFormat = "@"

Answer 1

让我们从一张小桌子开始：

如您所见， H 列中的项目具有不同的格式；日期格式，数字格式和货币格式。

我们的代码是：

Public Function vbaLookup(valu As Variant, rng As Range, icol As Long) As String
    Dim FirstRow As Long, LastRow As Long, i As Long

    LastRow = rng.Rows.Count
    FirstRow = 1

    For i = FirstRow To LastRow
        If valu = rng(1).Offset(i - 1, 0) Then
            vbaLookup = rng(1).Offset(i - 1, icol - 1).Text
            Exit Function
        End If
    Next i
    vbaLookup = "xxxx"
End Function