Excel VBA如何从另一个工作簿的选定单元格范围中查找值?

时间:2017-05-05 13:54:51

标签: excel vba excel-vba

我想要做的是相当直接的:

  1. 选择WorkBook A中的任何单元格范围(包含值)
  2. 从WorkBook B中的(两列)数组中查找所选范围内的每个值(例如A1:B10000)
  3. 将数组的第2列的值返回到Workbook B,返回到WorkBook A,直接返回到步骤1中所选范围旁边的列。
  4. 这是我到目前为止所使用的代码。

    Sub Checker() 
    Dim rw As Long, x As Range 
    Dim extwbk As Workbook, twb As Workbook 
    Dim SelRange As Range
    
    Set twb = ThisWorkbook
    Set SelRange = Selection
    Set extwbk = Workbooks.Open("path to the file in my harddrive")
    Set x = extwbk.Worksheets("Sheet1").Range("A1:B100000")
    
    With twb.ActiveSheet
    
        For rw = Selection.Row To Selection.Rows.Count + rw - 1
            .Cells(rw, Selection.Column + 1) = Application.VLookup(.Cells(rw, Selection.Column).Value2, x, 2, False)
    
        Next rw
    
    End With
    

    在代码的某个部分某处出现了问题,但我无法弄明白。你们中的任何人都可以帮忙吗?

0 个答案:

没有答案