VBA 实现覆盖导入和 VLOOKUP 函数

VBA 实现覆盖导入

以下是 VBA 实现覆盖导入的代码示例：

Sub ImportData()
  Dim wb As Workbook
  Dim ws As Worksheet
  Set wb = Workbooks.Open('C:\data.xlsx') ' 打开数据文件
  Set ws = ThisWorkbook.Sheets('Sheet1') ' 将数据导入此工作簿的 Sheet1 工作表中
  ws.Cells.ClearContents ' 清空原有数据
  wb.Sheets('Sheet1').UsedRange.Copy ws.Range('A1')
  wb.Close False ' 关闭数据文件，不保存改动
End Sub

该代码会在此工作簿的 Sheet1 工作表中导入数据文件中 Sheet1 工作表的所有数据，并覆盖掉原有数据。如果需要导入其他工作表的数据，只需修改代码中的'Sheet1' 为相应工作表名称即可。

VBA 实现 VLOOKUP 函数

基本实现

以下是 VBA 实现 VLOOKUP 函数的代码示例，其中包括设置要查找的值、要查找的范围、要返回结果的范围等步骤。代码使用了 VBA 的 Match 函数查找匹配的行数，再使用 Index 函数返回对应的结果，并将结果输出到单元格中。如果没有匹配的行数，结果将显示为'N/A'。

Sub VLookupFunction()
  Dim lookupValue As Variant
  Dim lookupRange As Range
  Dim resultRange As Range
  Dim result As Variant
  Dim i As Long
  Dim ws As Worksheet
  ' 设置要查找的值
  lookupValue = 'apple'
  ' 选择要查找的工作表
  Set ws = ThisWorkbook.Worksheets(2)
  ' 设置要查找的范围
  Set lookupRange = ws.Range('A2:A' & ws.Cells(Rows.Count, 'A').End(xlUp).Row)
  ' 设置要返回结果的范围
  Set resultRange = ws.Range('B2:B' & ws.Cells(Rows.Count, 'B').End(xlUp).Row)
  ' 遍历每一行数据，并在每一行中执行 VLOOKUP 函数
  For i = 1 To lookupRange.Rows.Count
    ' 使用 VBA 的 Match 函数查找匹配的行数
    Dim matchRow As Long
    matchRow = Application.Match(lookupValue, lookupRange.Cells(i), 0)
    ' 使用 VBA 的 Index 函数返回对应的结果
    If Not IsError(matchRow) Then
      result = Application.Index(resultRange.Cells(i), matchRow, 1)
    Else
      result = 'N/A'
    End If
    ' 将结果输出到单元格中
    ws.Range('C' & i + 1).Value = result
  Next i
End Sub

查找值改为 a2 单元格，下次循环在 a3 循环

以下是修改后的 VBA 代码示例。在循环中，每次将要查找的值设为当前行的下一行，即将 a2 单元格改为 a3 单元格，并在循环中依次循环。

Sub VLookupFunction()
  Dim lookupValue As Variant
  Dim lookupRange As Range
  Dim resultRange As Range
  Dim result As Variant
  Dim i As Long
  Dim ws As Worksheet
  ' 选择要查找的工作表
  Set ws = ThisWorkbook.Worksheets(2)
  ' 设置要查找的范围
  Set lookupRange = ws.Range('A2:A' & ws.Cells(Rows.Count, 'A').End(xlUp).Row)
  ' 设置要返回结果的范围
  Set resultRange = ws.Range('B2:B' & ws.Cells(Rows.Count, 'B').End(xlUp).Row)
  ' 遍历每一行数据，并在每一行中执行 VLOOKUP 函数
  For i = 1 To lookupRange.Rows.Count
    ' 设置要查找的值
    lookupValue = ws.Range('A' & i + 1).Value
    ' 使用 VBA 的 Match 函数查找匹配的行数
    Dim matchRow As Long
    matchRow = Application.Match(lookupValue, lookupRange, 0)
    ' 使用 VBA 的 Index 函数返回对应的结果
    If Not IsError(matchRow) Then
      result = Application.Index(resultRange, matchRow, 1)
    Else
      result = 'N/A'
    End If
    ' 将结果输出到单元格中
    ws.Range('C' & i + 1).Value = result
  Next i
End Sub

返回结果的范围改为第二个工作表的 A 列

以下是修改后的 VBA 代码示例。在设置要返回结果的范围时，将其改为第二个工作表的 A 列。其他部分与之前的代码相同。

Sub VLookupFunction()
    Dim lookupValue As Variant
    Dim lookupRange As Range
    Dim resultRange As Range
    Dim result As Variant
    Dim i As Long
    Dim ws As Worksheet
        ' 选择要查找的工作表
    Set ws = ThisWorkbook.Worksheets(2)
        ' 设置要查找的范围
    Set lookupRange = ws.Range('A2:A' & ws.Cells(Rows.Count, 'A').End(xlUp).Row)
        ' 设置要返回结果的范围
    Set resultRange = ThisWorkbook.Worksheets(3).Range('A2:A' & ws.Cells(Rows.Count, 'A').End(xlUp).Row)
        ' 遍历每一行数据，并在每一行中执行 VLOOKUP 函数
    For i = 1 To lookupRange.Rows.Count
                ' 设置要查找的值
        lookupValue = ws.Range('A' & i + 1).Value
                ' 使用 VBA 的 Match 函数查找匹配的行数
        Dim matchRow As Long
        matchRow = Application.Match(lookupValue, lookupRange, 0)
                ' 使用 VBA 的 Index 函数返回对应的结果
        If Not IsError(matchRow) Then
            result = Application.Index(resultRange, matchRow, 1)
        Else
            result = 'N/A'
        End If
                ' 将结果输出到单元格中
        ws.Range('C' & i + 1).Value = result
    Next i
End Sub

常见问题解答

选择要查找的工作表的作用是什么？

选择要查找的工作表是为了指定要在哪个工作表中执行 VLOOKUP 函数，以便在正确的范围内查找和返回结果。如果不指定工作表，则可能会在错误的范围内执行函数，导致结果不准确。

为什么输出的是数字而不返回范围内的内容？

输出的是数字是因为 VLOOKUP 函数返回的是查找结果所在列的值，而不是返回范围内的内容。如果需要返回范围内的内容，可以将 VLOOKUP 函数嵌套在 INDEX 函数中，使用 INDEX 函数返回对应单元格的内容。例如，使用以下公式可以返回范围 B2:B10 中与查找值匹配的单元格所在行的 A 列内容：

=INDEX(A2:A10,MATCH(lookupValue,B2:B10,0))