Excel VBA-宏中的= lookup

Question

我正在使用此公式从另一张纸上获取信息。我想在宏中创建它。

=LOOKUP(Sheet1!F2,{"FL01","FL12","FL21","FL31","FL34"},{"ORLANDO PICKLIST","TAMPA PICKLIST","JAX PICKLIST","NAPLES PICKLIST","MIAMI PICKLIST"})

答案也应该在sheet2 B2中心字体大小24中。

谢谢

Answer 1

通过recording

您将获得类似这样的内容：

Option Explicit

Sub Macro3()
'
' Macro3 Macro
'

'
    Selection.FormulaArray = _
        "=LOOKUP(Sheet1!RC[4],{""FL01"";""FL12"";""FL21"";""FL31"";""FL34""},{""ORLANDO PICKLIST"";""TAMPA PICKLIST"";""JAX PICKLIST"";""NAPLES PICKLIST"";""MIAMI PICKLIST""})"
    With Selection.Font
        .Name = "Calibri"
        .Size = 24
    End With
    With Selection
        .HorizontalAlignment = xlGeneral
    End With
End Sub

在哪里选择是我开始记录时选择的单元（“ B2”）。在这里，您可以试用代码。您将对Excel如何将公式和格式选项“转换”为代码有种感觉。

通过编辑选择部分（Selection.），我们可以更明确地知道要将新代码应用于哪个工作表和哪个范围...

Sub Macro3_Changes()
'
' Macro3 Macro
'

'
    Worksheets("Sheet2").Range("B2").FormulaArray = _
        "=LOOKUP(Sheet1!RC[4],{""FL01"";""FL12"";""FL21"";""FL31"";""FL34""},{""ORLANDO PICKLIST"";""TAMPA PICKLIST"";""JAX PICKLIST"";""NAPLES PICKLIST"";""MIAMI PICKLIST""})"
    With Selection.Font
        .Name = "Calibri"
        .Size = 24
    End With
    With Selection
        .HorizontalAlignment = xlGeneral
    End With
End Sub

这里有一些有趣的注释，我假设您有一个Array公式。我用Ctrl + Shift + Enter输入您的公式。宏也会记录该内容并将其转换为FormulaArray。如果我只是输入公式，那应该是FormulaR1C1，它是您选择的部分中的相对公式。