如果Vlookup是相同的，那么添加

Question

我有这个，我希望如果工作表1中有2个相同的A代码，请在工作表2的E列中添加B值列。你可以帮我吗？

Answer 1

尝试使用以下UDF功能。这可以直接应用于任何细胞。请看截图。

Public Function udfvlookup(a As Range, b As Range) As String
    Dim findtext As String
    Dim cell As Range
    Dim out As Double
    findtext = a.Value
    For Each cell In b
        If cell Like "*" & findtext & "*" Then
            out = out + cell.Offset(0, 1)
        End If
    Next
    udfvlookup = out
End Function