ВПР и перетаскивание с помощью VBA в Excel 2010

Question

Мой код получает emp_id из hc и помещает его в другой первенствует панель файла в столбце A. Мой второй код использует 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 ... любые советы будут оценены .. ..

Answer 1

Допустим, Ячейка 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))