0

我的代码emp_id来自hcA 列中的另一个 Excel 文件仪表板并将其放入。我的第二个代码emp_id用作参考，然后使用VLookup. 但我只能在指定范围内执行此操作。我怎样才能运行它 col A 具有emp_id价值的次数？或者，我不是手动将 VLookup 值向下拖动，而是尝试将其自动化到 col A 的次数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)

此代码填充特定范围的值

Sub RangeFill()
    Range("B4:ZZ4").Select
    Selection.AutoFill Destination:=Range("B4:ZZ8"), Type:=xlFillDefault
    Range("B4:ZZ8").Select
End Sub

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

4

1 回答 1

0

假设单元格 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))
于 2013-06-10T13:27:36.447 回答