vba怎么实现vlookup的近似匹配

fenghuaxue

vba怎么实现vlookup的近似匹配

mmwwdd

VBA可以使用“Application.WorksheetFunction.VLookup”函数来实现VLOOKUP的近似匹配。在该函数中，需要设置第四个参数为TRUE，表示进行近似匹配。以下是示例代码：

plaintext
Copy code
Dim lookup_value As Variant
Dim table_array As Range
Dim col_index_num As Long
Dim approximate_match As Boolean
lookup_value = "apple"
Set table_array = Range("A1:B10")
col_index_num = 2
approximate_match = True
Dim result As Variant
result = Application.WorksheetFunction.VLookup(lookup_value, table_array, col_index_num, approximate_match)
MsgBox "The approximate match result is " & result

在上述示例代码中，我们将“approximate_match”设置为TRUE，以进行近似匹配。如果将其设置为FALSE，则会执行精确匹配。

ykcbf1100

不上个附件？

Jerry谭悦

使用数组，用目标跟数组进行匹配，并输出数组对应的值。
示例：
目标：ID001
数组：ID001,张三,男,100岁
匹配性别：输出结果=男

lushang2018

假设数据在A列，输出在C列

1. Sub TestSub()
   
2.     Dim i, k, arr
   
3.     ReDim arr(1 To 1000)
   
4.     For i = 1 To Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
   
5.         x = Cells(i, 1)
   
6.         If x Like "*张三*" Then
   
7.             k = k + 1
   
8.             arr(k) = x
   
9.         End If
   
10.     Next
    
11.     Range("C1").Resize(k, 1) = Application.Transpose(arr)
    
12. End Sub

复制代码

lushang2018