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