Question

excel查找某一列包含的文本并列出该文本

如图
数据源很不规则，十万行，笨办法是行不通了。有木有办法让其
在结果1里判定如果数据源含有类型a，则返回a
在结果2里判定如果数据源含有类型y，则返回y

Answer 1

给你一个VBA的示例吧。点击附件中的按钮即可自动分类了！

Sub FenLei()
    Dim i As Long, m As Long, n As Long, t As Long
    Dim arr, brr, crr
    With ActiveSheet
        i = .[b1].End(xlDown).Row:      arr = .Range("B2:B" & i)
        m = .[c1].End(xlDown).Row:      brr = .Range("C2:C" & m)
        n = .[A1].End(xlDown).Row:      crr = .Range("A2:A" & n)
    
        Dim trr()
        ReDim trr(1 To n - 1, 1 To 2)
        For t = 1 To n - 1
            For i = 1 To UBound(arr)
                If crr(t, 1) Like "*" & arr(i, 1) & "*" Then
                    trr(t, 1) = arr(i, 1)
                    Exit For
                End If
            Next
            
            For m = 1 To UBound(brr)
                If crr(t, 1) Like "*" & brr(m, 1) & "*" Then
                    trr(t, 2) = brr(m, 1)
                    Exit For
                End If
            Next
        Next
        .[d2].Resize(n - 1, 2) = trr
    End With
End Sub

Answer 2

在D2、E2中分别输入或复制粘贴此公式
=IF(COUNT(FIND(B2,A2),B2,"")
=IF(COUNT(FIND(C2,A2),C2,"")
选中D2:E2
下拉填充

Answer 3

假定数据区是a:e
d2输入
=IF(ISNUMBER(FIND("a",A2)),"a",IF(ISNUMBER(FIND("b",A2)),"b",IF(ISNUMBER(FIND("c",A2)),"c",IF(ISNUMBER(FIND("d",A2)),"d",""))))
e2输入
=IF(ISNUMBER(FIND("x",A2)),"x",IF(ISNUMBER(FIND("y",A2)),"y",IF(ISNUMBER(FIND("z",A2)),"z","")))
两公式下拉复制

Answer 4

一个if函数不就行了？