提取包含特定字符的所有记录

《Excel 2010 函数与公式》疑难151

如图所示为某培训班的学员信息，如何将E-mail地址后缀为“@fudan.edu.cn”的学员信息提取到右表中。

Snap1.jpg
函数公式法
在F3单元格输入如下数组公式：

{=INDEX(A:A,SMALL(IF(ISNUMBER(SEARCH("@fudan.edu.cn",$D$3:$D$14)),ROW($3:$14),4^8),ROW(1:1)))&""}

然后将F3单元格公式向右、向下填充至I14单元格。

** VBA法**

Sub 提取特定字符串所在记录()
    Dim i As Integer
    Dim j As Integer
    j = 3
    For i = 3 To Range("A65536").End(xlUp).Row
        If Cells(i, 4).Value Like "*@fudan.edu.cn" Then
            Debug.Print Cells(i, 4)
            Range("A" & i & ":d" & i).Copy Cells(j, 11)
            j = j + 1
        End If
    Next
End Sub