VBA代码实现Vlookup查找不相邻列

在Excel中，vlookup查找一般只适用于“相邻列”，即需要在目标列中返回两列或多列。如果要查找其他列不相邻的列，需要使用vlookup的VBA代码。

以下是一个可以使用VBA vlookup查找不相邻列的示例代码：

Function FindName(name_to_find As String) As String
    Dim lookup_value As String
    Dim lookup_result As Range
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Sheets(1)
    lookup_value = ws.Range("A1:A10").Find(name_to_find).Value
    
    Set lookup_result = ws.Range("C1:C10").Find(lookup_value)
    If Not lookup_result Is Nothing Then
        FindName = lookup_result.Offset(0, 1).Value
    Else
        FindName = "Not Found"
    End If
End Function

这段VBA代码将查找在A列中找到name_to_find，然后在C列中查找相应的值。需要注意的是，这只适用于A列和C列在同一工作表中的情况。

使用方法

1. 打开Excel，并按下ALT + F11快捷键打开Visual Basic编辑器
2. 在Visual Basic编辑器中，创建一个新模块
3. 复制上述代码并粘贴到新模块中
4. 打开Excel工作簿并运行代码

结论

使用VBA代码vlookup可以轻松地查找不相邻的列，使数据的查找和管理更加方便。