Question

我对VBA很陌生，这让我很难过。我希望有一个简单的方法来做到这一点。我知道以下内容不起作用，但它是一种简单的方式来展示我想做的事情：

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

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

我已经搜索过，无法找到我正在寻找的内容。

提前致谢，

科里

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

VBA使用Vlookup将值放入单元格

2 个答案: