需要帮助以垂直顺序获取多个查找值,Vlookup仅提供第一个值

时间:2019-03-29 01:28:12

标签: excel vba

我有一个包含多行的数据,我正在使用vlookup提取值,但是数据具有模拟值,有什么办法可以按垂直顺序一张一张地绘制重复的值,我有一个收集相似值的函数一个单元格中的值,但我正在按从上到下的顺序查看每个单元格中的每个值

Function SingleCellExtract(LookupValue As String, LookupRange As Range, 
ColumnNumber As Integer, Char As String)

Dim I As Long
Dim xRet As String
For I = 1 To LookupRange.Columns(1).Cells.Count
    If LookupRange.Cells(I, 1) = LookupValue Then
        If xRet = "" Then
            xRet = LookupRange.Cells(I, ColumnNumber) & Char
        Else
            xRet = xRet & "" & LookupRange.Cells(I, ColumnNumber) & Char
        End If
    End If
Next
SingleCellExtract = Left(xRet, Len(xRet) - 1)
End Function

 *******expecting below Result****

中   中   zhòng     hit at
中   中   zhòng     middle, center
中   中   zhōng     middle, center
国   国   guó       country, nation
国   国   guó       Guo
国   国   guó       country, nation
国   国   guó       Guo
家   家   jiā       home, family
家   家   jiā       mw (family, home)
时   时   shí       hit at
时   时   shí       o'clock, time
时   时   shí       Shi

0 个答案:

没有答案