Excel:搜索单元格中的单词,并在另一个单元格中显示单词

时间:2014-04-15 00:21:12

标签: excel

我正在寻找excel的一些帮助。 我想做以下事情,但无法在此处或网上找到公式:

- 我在C栏中有一个单词列表:“绿色”,“蓝色”,“红色”等(共11种颜色) - 我想在A列中查找这些单词。列A包含短语,并且可能包含多种颜色。所以A2可以有“红绿螺栓” - 我想显示原始颜色列表的所有结果。所以A2会显示“红色,绿色”(请带逗号)

谢谢!

1 个答案:

答案 0 :(得分:0)

尝试一下:

Sub dural()
    Dim Na As Long, Nc As Long
    Na = Cells(Rows.Count, "A").End(xlUp).Row
    Nc = Cells(Rows.Count, "C").End(xlUp).Row
    For i = 1 To Na
        v = Cells(i, "A").Text
        mesage = ""
        For j = 1 To Nc
            vv = Cells(j, "C").Text
            If InStr(v, vv) > 0 Then
                mesage = mesage & "," & vv
            End If
        Next j
        Cells(i, "A").Value = mesage
    Next i
End Sub