我有一个包含多行的数据,我正在使用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