第2个回答 2017-12-07
用VBA编写自定义函数:
Public Function VLookUpS(FindValue As Range, FindRegion As Range, ReturnColumn As Integer) As String
'本自定义函数用法,与VLOOKUP用法相同,只是比VLOOKUP少了第四个参数
Dim Rng As Range, MyStr As String, i As Long
For i = 1 To FindRegion.Rows.Count
Set Rng = FindRegion.Cells(i, 1)
If Rng.Value = FindValue.Value Then
MyStr = IIf(MyStr = "", Rng.Offset(0, ReturnColumn - 1), MyStr & "," & Rng.Offset(0, ReturnColumn - 1))
End If
Next
VLookUpS = MyStr
End Function本回答被网友采纳