Excel VBA 中的 Vlookup 公式

Question

我有一张带有锁定单元格的 Excel 表。 一些单元格被解锁以输入值。 有很多值要输入，因此我正在尝试编写一个宏，它将： select 活动工作表中未锁定的单元格并使用 Vlookup 公式填充选定的单元格，该公式根据第一列和相关行查找输入值同一工作表来自单独工作表上的表。 我尝试了以下方法：

Sub SelectUnlockedCells()
'Update 20130830
Dim WorkRng As Range
Dim OutRng As Range
Dim Rng As Range
On Error Resume Next
Set WorkRng = Application.ActiveSheet.UsedRange
Application.ScreenUpdating = False
For Each Rng In WorkRng
    If Rng.Locked = False Then
        If OutRng.Count = 0 Then
            Set OutRng = Rng
        Else
            Set OutRng = Union(OutRng, Rng)
        End If
    End If
Next
If OutRng.Count > 0 Then OutRng = Application.WorksheetFunction.VLookup("A" & ActiveRow.Value, Worksheets(2).Columns("A:C").Select, Worksheets(2).Columns(3).Select, False)
Application.ScreenUpdating = True
End Sub

我知道我的问题出现在 Vlookup Worksheet Function 的最后 4 行，因为如果我说：

If OutRng.Count > 0 Then OutRng = 1 + 1

未锁定的输入单元被正确估算为 2。因此我怀疑我的 Vlookup object 选择不正确。

任何帮助都会很棒，谢谢！

Answer 1

您根本没有在这些单元格中放置公式，而是试图在其中放置一个值，无论如何，您所拥有的语法是完全错误的。 尝试：

If OutRng.Count > 0 Then OutRng.FormulaR1C1 = "=VLookup(RC1,'" & worksheets(2).name & "'!C1:C3,3,FALSE)"

Answer 2

我发现的简单解决方案正如我所怀疑的那样 - 在 vlookup 中引用 object 是错误的。 此外，在这种情况下，应用程序工作表 Function 是多余的。 在倒数第三行的解决方案是：

If OutRng.Count > 0 Then OutRng = "=VLOOKUP(A11,'Sheet1'!Table1,3,FALSE)"