VLOOKUP из другого листа, применять формулу каждую n-ю строку

Question

Я работаю над приведенной ниже формулой для данных Vlookup с другого листа. Формула должна быть помещена в 14-й столбец и каждые 7 строк, vlookuping первое значение столбца.

Sub test3() 
'Vlookuping on Column N 


Dim lastRow As Long 
lastRow = Cells(Rows.Count, 14).End(xlUp).Row 'Checks last row with data 

Dim cel As Range, rng As Range 

Dim sheetName, lookupFrom, myRange   'variables 
sheetName = "Plan2" 'the worksheet i want to get data from 
lookupFrom = ActiveCell.Offset(0, -14).Address ' 
myRange = "'" & sheetName & "'!1:1048576" 

For i = 3 To lastRow Step 7 ' 
    Cells(i, 14).Select  'i= first value; step= lines to jump 
    ActiveCell.Formula = "=VLOOKUP(" & lookupFrom & ";" & myRange & "; 14; FALSE)" 

Next i 

End Sub 

Example Sheet

Я хочу, чтобы поместить формулу на розовые клетки (колонка N), vlookuping розового значения из первой ячейки на другой лист. Моя фактическая формула даже не выполняется.

Answer 1

Попробуйте код, приведенный ниже, с 2 исключениями:

1.Modify «VlookRes» на название листа - где вы хотите, чтобы результаты быть.

2.You имеет объединенных ячеек в колонке А (согласно вашему изображению было загружено), вы объединяете Ряды 2 нед 6 в колонке А, это означает, что значение Cell A3 будет 0. Если вы хотите, чтобы значения читались из третьей строки, начните слияние из строки 3 (и скоро для следующих значений в столбце A).

Option Explicit 

Sub test3() 

'Vlookuping on Column N 

Dim ShtPlan  As Worksheet 
Dim ActSht  As Worksheet 
Dim lastRow  As Long 
Dim sheetName As String 
Dim lookupFrom As String 
Dim myRange  As String 
Dim i   As Long 

' modify this Sheet Name to your sheet name (where you want to keep your results) 
Set ActSht = Sheets("VlookRes") 
lastRow = ActSht.Cells(ActSht.Rows.Count, 14).End(xlUp).Row ' Checks last row with data 

sheetName = "Plan2" 'the worksheet i want to get data from 
Set ShtPlan = Sheets(sheetName) 

myRange = "'" & sheetName & "'!1:1048576" 

For i = 3 To lastRow Step 7 
    lookupFrom = ActSht.Cells(i, 1).Address ' ActiveCell.Offset(0, -14).Address ' 
    Cells(i, 14).Formula = "=VLOOKUP(" & lookupFrom & "," & myRange & ", 14, FALSE)" 
Next i 

End Sub