макрос для выбора всего в vlookup

Question

Я форматирую большую электронную таблицу, которая изменяется еженедельно и сопоставляет ее с файлом данных, который также изменяется еженедельно. Мне нужна функция «выбрать все» в моем vlookup, а также «автозаполнение», чтобы скопировать формулу до последней строки. Я пробовал «CurrentRegion», «table», & неудачно потерпел неудачу с операторами «end». Поскольку я редко создаю макросы, у меня нет больших знаний о VBA, но мне нравится учиться. Я получил помощь на этом сайте раньше и ценю экономию времени на проблемы, связанные с работой. Коды, которые я начал с этой недели, ниже, спасибо!

ActiveCell.Select 
Sheets("Demo").Select 
Range("A2").Select 
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],'Listing'!R1C1:R12182C4,3,FALSE)" 
Selection.AutoFill Destination:=ActiveCell.Range("A1:A177688") 
ActiveCell.Range("A1:A177688").Select 

Answer 1

я сделал этот макрос, который может выбрать для вас любой ячейки, которые соответствуют критериям вашего желания, которые были бы, что выбрать все функции на вашем ВПР, и он будет также изменить значение всех выбранных ячеек в соответствии с ваше желание, но мне нужно знать больше о том, как листы выглядит и то, что вы ищете, чтобы помочь вам лучше, вот код:

Sub selectall() 

Dim rng  As String 
Dim cname As String 

cname = InputBox("Enter column you wish to run the VLOOKUP", "NAME COLLECTOR") 

'Change the "For" range as you desire to match the starting and ending line 

For i = 1 To 100 

If Range(cname & i) = "Enter what you're looking for" Then 

If rng = Empty Then 

rng = Range(cname & i).Address 

Else: 

rng = rng & "," & Range(cname & i).Address 

End If 

End If 

Next 

Range(rng).Value = InputBox("Enter the value or formula you want here", "NAME COLLECTOR") 

End Sub