VBA使用Vlookup将值放入单元格

Question

我对VBA还是很陌生，这让我很困惑。 我希望有一个简单的方法可以做到这一点。 我知道以下方法不起作用，但这是显示我想做的一种简单方法：

Application.WorksheetFunction.VLookup(date, .Range("A:A"), 2, False) = String

基本上，我想在A列中查找日期，转到第二个Column并插入字符串。

我已经搜索过，找不到想要的东西。

提前致谢，

科里

Answer 1

我们可以使用MATCH（）查找行，并以距列A正确的偏移量存放字符串：

Sub Spiral()
    Dim s As String, i As Long

    s = "whatever"
    i = Application.WorksheetFunction.Match(CLng(Date), Range("A:A"))
    Cells(i, 2).Value = s
End Sub

Answer 2

您可以使用Range.Find

Dim cell As Range
Set cell = .Range("A:A").Find(date, , , xlWhole)
If Not cell Is Nothing Then cell(, 2) = String ' or cell.Offset(, 1) = String