尝试将 vlookup 添加到 Excel

Question

我正在尝试创建一个公式，该公式将检查单元格是否在 B 列中有值，然后在 A 列中输入一个 vlookup。作为标准公式，它看起来像

=VLOOKUP(B2,'Date Shown'!A:E,7,FALSE)

我希望根据最初检查的单元格更改查找值。我有下面的公式可以检查并添加一个值到相邻的单元格，我试图修改它以进行 vlookup，但不具备正确创建 vlookup 的知识。感谢您的帮助，谢谢！

Option Explicit

Sub Macro1()

Dim r As Range
Dim LastRow As Long

With Sheets("Date Hidden")
    LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row

    For Each r In .Range("B2:B" & LastRow)
        If r.Value <> "" Then
            r.Offset(0, -1).result = Application.WorksheetFunction.VLookup(Sheets("Date Hidden").Range("A2"), Sheets("Date Shown")A:G, 7, False)
        End If
    Next r
End With

End Subs

显示日期：

A 列 // G 列

简 // 10/1/17

日期隐藏表

A列 //B列
（空）//简

Answer 1

修改了一点你的代码：

    Option Explicit

    Sub Macro1()

    Dim i As Long
    Dim date_hidden_range As Range
    Dim last_row As Long

    With Sheets("Date Hidden")
        last_row = .Cells(.Rows.Count, "B").End(xlUp).Row

        Set date_hidden_range = .Range("B2:B" & last_row)

        For i = 1 To date_hidden_range.Cells.Count
            If date_hidden_range(i).Value <> "" Then
                MsgBox date_hidden_range(i).Value
                date_hidden_range(i).Value = Application.WorksheetFunction.VLookup(Sheets("Date Hidden").Range("A" & i), Sheets("Date Shown").Range("A:G"), 7, False)
            End If
        Next i

    End With

    End Sub

选项 2

    Option Explicit

    Sub Macro1()

    Dim i As Long
    Dim cell_range As Range
    Dim date_hidden_range As Range
    Dim last_row As Long

    With Sheets("Date Hidden")
        last_row = .Cells(.Rows.Count, "B").End(xlUp).Row

        Set date_hidden_range = .Range("B2:B" & last_row)

        For Each cell_range In date_hidden_range
        i = 2
            If cell_range(i).Value <> "" Then
                MsgBox cell_range(i).Value
                cell_range(i).Value = Application.WorksheetFunction.VLookup(Sheets("Date Hidden").Range("A" & i), Sheets("Date Shown").Range("A:G"), 7, False)
            End If
        i = i + 1
        Next cell_range

    End With

    End Sub

检查这是如何工作的，希望这对你有帮助。