Question

我的代码从emp_id获取hc并将其放入A列中的另一个Excel文件信息中心。我的第二个代码使用emp_id作为参考，然后使用{获取员工属性{1}}。但我只能在指定范围内执行此操作。如何在col A具有VLookup值的次数下运行它？或者不是手动拖动VLookup值，而是尝试将其自动化为col A emp_id的次数。

这是检索emp_id的代码。

emp_id

此代码填写特定范围的值

Sub test1()
' test1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+P
    Dim wbk As Workbook
    Set wbk = Workbooks.Open("g:\Work\Global Headcount.xlsx")

    ' Windows("Global Headcount.xlsx").Activate
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.copy
    Windows("Dashboard_for_Roshan.xlsm").Activate
    Range("A4").Select
    ActiveSheet.Paste

   Call wbk.Close(False)

我是新手，自从我使用vba已经过了一周... 任何建议将不胜感激....

Answer 1

让我们说Cell B1包含您想要自动填充的公式，您可以执行以下操作：

Range("B1").AutoFill Destination:=Range(Cells(1, 2), Cells(ActiveSheet.UsedRange.Rows.Count, 2))

这会将B1中的公式填充到B列中的数据末尾。

如果您有多个公式需要立即自动填充，您可以使用相同的方法，但更改范围值，如下所示：

Range("B1:C1").AutoFill Destination:=Range(Cells(1, 2), Cells(ActiveSheet.UsedRange.Rows.Count, 3))

在excel 2010中使用vba进行VLookup和拖放

1 个答案: