excel macro vba on vlookup formula

Question

Привет, я новичок в Excel. Я хотел создать макрос для vlookup, чтобы я мог обращаться ко многим ячейкам, но он не работает.

Sub haha() 

Dim wb As Workbook 
Dim ws, ws1 As Worksheet 
Set wb = ActiveWorkbook 
Set ws = ActiveWorkbook.Sheets(1) 
Set ws1 = ActiveWorkbook.Sheets(2) 
wb.Activate 

ws1.Select 

Range("E1").Formula = "=+VLOOKUP(" & ws1.Range("C6") & "," & ws.Range("c7:d10") & ",2,FALSE)" 

End sub 

Я хотел посмотреть значение в моем текущем листе на другой лист, чтобы вернуть уникальное значение. Пожалуйста помоги! :)

Answer 1

Просто замените эти 3 строки:

wb.Activate 
ws1.Select 
Range("E1").Formula = "=+VLOOKUP(" & ws1.Range("C6") & "," & ws.Range("c7:d10") & ",2,FALSE)" 

с этим:

ws1.Range("E1").Formula = "=VLOOKUP(C6," & ws.Range("C7:D10").Address(External:=1) & ",2,FALSE)" 

В ws1.Range("C6") части sheet и address не нужны, в этом случае, как клетка в том же листе, где формула идет так, ws1.Range("C6") всегда будет возвращать C6.

Что касается части ws.Range("c7:d10"), вам нужна «внешняя ссылка», потому что она относится к другому листу. Хотя ссылка ExternalRange.Address Property включает в себя имя файла, она отбрасывается, поскольку формула находится в той же книге.

Answer 2

Проверьте это.

Sub haha() 

Dim wb As Workbook 
Dim ws As Worksheet, ws1 As Worksheet 
Dim rng As Range 
Set wb = ActiveWorkbook 
Set ws = ActiveWorkbook.Sheets(1) 
Set ws1 = ActiveWorkbook.Sheets(2) 
wb.Activate 

Set rng = ws.Range("c7:d10") 
ws1.Range("E1").Formula = "=VLOOKUP(" & ws1.Range("C6").Address & "," & rng.Worksheet.Name & "!" & rng.Address & ",2,FALSE)" 

End Sub