vLookup來自突出顯示的單元格

Question

我在列中有一些突出顯示的單元格，我想根據這些單元格值打開新的工作簿。我可以這樣做，但我想在新的工作簿中指定這些單元格的值。 （即小區（2,6））。我可以成功找到細胞，我將使用vlookup。我知道這太複雜了，但我必須解決它。 我用find方法;

Dim rFound As Range 
          With Sheets("Sheet1") 
          Set rFound = .Cells.Find(What:=ResimNo) 
end with 

Answer 1

Dim GCell As Range 

         Set GCell = ActiveSheet.Cells.Find(ResimNo) 




        'Vlookup 

           With twb.Sheets("Sheet1") 
           GCell.Offset(0, 1).Activate 
           GCell.Offset(0, 1).Value = Application.vLookup(ResimNo, tbl.Range, 2, False) 
           GCell.Offset(0, 3).Value = Application.vLookup(.Cells(p, 2), tbl.Range, 4, False) 
           GCell.Offset(0, 4).Value = Application.vLookup(.Cells(p, 2), tbl.Range, 5, False) 


                ActiveWorkbook.Close True 
           End With