vba实现 Vlookup增强

原创

已于 2024-02-26 16:48:50 修改 · 1k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#vba #excel

于 2021-08-11 12:24:07 首次发布

这篇博客介绍了如何处理Excel宏错误，如‘禁用了宏’，并展示了两个函数COMPFLOAT和COMPSTR，用于数值和字符串的比较。COMPFLOAT找到与给定值最接近的表格行，而COMPSTR利用编辑距离算法计算字符串相似度。这些函数对于数据匹配和搜索具有重要意义。

请添加图片描述

出现错误名称，禁用了宏 “name”

=COMSPORT(table, valuecolmn, colmn)
table: 查询表，
valuecolmn：欲查询值，
colmn：欲查询列（在表中的某一列）

Function COMPFLOAT(table, value, search_col, return_col)


    Dim b As Variant
    Dim indexc As Integer
    
    tableV = table.Value2
    
    table_startrow = table.Row
    table_startcol = table.Column
    
    cells_col = return_col + table_startcol - 1
    
    len_table = UBound(tableV) - LBound(tableV) + 1

    Threshold = 0.002
    subvalue = Threshold
    '值相差最小的目标行
    '值相差最小的目标行
    For i = 1 To len_table
    
        cellsVal = tableV(i, search_col)
        
        If Abs(cellsVal - value) < subvalue Then
            subvalue = Abs(cellsVal - value)
            
            indexc = i
        
        End If
    
    Next

    If subvalue = Threshold Then
    
        COMPFLOAT = ""
    Else
    
        indexc = Int(indexc)</