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

vLookup来自突出显示的单元格

1 个答案: