Применение формулы Vlookup к следующему пустому столбцу - PullRequest
Новая
       13

Применение формулы Vlookup к следующему пустому столбцу

0 голосов
/ 03 февраля 2020 
Sub GET_BHAV()

Dim FinalWs As Worksheet, dataWs As Worksheet
Dim FinalLastRow As Long, dataLastRow As Long, x As Long
Dim dataRng As Range

Set FinalWs = ThisWorkbook.Worksheets("Open")

Workbooks.Open "D:\NITIN\PROSTOCK\NSE_REPORTS\cm07JAN2020.csv"

Set dataWs = Workbooks("cm07JAN2020.csv").Worksheets("cm07JAN2020")

dataLastRow = dataWs.Range("A" & Rows.Count).End(xlUp).Row
FinalLastRow = FinalWs.Range("A" & Rows.Count).End(xlUp).Row

Set dataRng = dataWs.Range("A2:G" & dataLastRow)

For x = 2 To FinalLastRow



    On Error Resume Next

        'pasteSheet.Cells(2, Rows.Count).End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteFormulas
        'FinalWs.Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Application.WorksheetFunction.VLookup( _

        FinalWs.Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Application.WorksheetFunction.VLookup( _
        FinalWs.Range("A" & x).Value, dataRng, 4, False)



        '[IF I USE THE CODES BELOW, IT APPLIES THE FORMULA TO A PARTICLULAR COLUMN]
        'FinalWs.Range("HR" & x).Value = Application.WorksheetFunction.VLookup( _
        'FinalWs.Range("A" & x).Value, dataRng, 4, False)


Next x

End Sub

С помощью этих кодов VBA я пытаюсь извлечь данные из одной рабочей книги в другую с помощью Vlookup.

Мне нужно получить значения в следующем пустом столбце от 1-й строки до последней доступный поиск. Я получаю значения в следующем пустом столбце, но значения выполняются в одной строке справа, а не в том же столбце.

...