VBA Verwenden Sie Vlookup, um einen Wert in Zelle

Question

zu setzen Ich bin ziemlich neu in VBA und das hat mich ratlos. Ich hoffe, es gibt einen einfachen Weg, dies zu tun. Ich weiß, dass die folgenden nicht funktioniert, aber es ist eine einfache Art und Weise zu zeigen, was ich tun möchte:

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

Grundsätzlich ich ein Datum in einer Spalte A nachschlagen möchten, gehen Sie auf die zweite Säule und Fügen Sie die Zeichenfolge ein.

Ich habe gesucht und kann nicht finden, was ich suche.

Vielen Dank im Voraus,

Cory

Answer 1

Wir MATCH() verwenden die Zeile zu finden und die Zeichenfolge mit dem richtigen aus Spalte A Offset deponieren:

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

Sie können 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 

verwenden