请教VBA高手EXCEL表格无规律数据中提取人名

请教VBA高手EXCEL表格无规律数据中提取人名~

Option Explicit

Sub fjs()
Dim i%, p%, k, j
With Application
.ScreenUpdating = False
End With

Range("F2", Range("F65536").End(xlUp)).Select
Selection.Copy
Range("E65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Range("E1", Range("E65536").End(xlUp)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1"), Unique:=True
Columns("F:G").Select
Range("G1").Activate
Selection.Sort Key1:=Range("G1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal

For i = 2 To Sheet1.UsedRange.Rows.Count
k = Cells(i, 3)
Cells(i, 5) = "": Cells(i, 4) = ""
For p = 2 To Range("F65536").End(xlUp).Row
j = Cells(p, 6)
If InStr(k, j) 0 Then
If Cells(i, 5) "" Then Cells(i, 5) = Cells(i, 5) & "、" & j Else Cells(i, 5) = j
k = Replace(k, j, "")
Cells(i, 4) = k
End If
Next
Next
With Application
.ScreenUpdating = True
End With
End Sub

先复制要提取的区域，

然后把那一列的宽度拉到一个字的大小

在点填充——两端对齐，效果如图


点数据——分列——下一步——下一步——完成




点查找——定位条件——常量——只勾选【文本】


都那很长的一列，右击，然后点删除——下方单元格上移，效果如图



7
最后把只有一个字宽的那一列拉宽一点，数字就显示出来了

假设你的表如图：

Sub fjs()

    With Application

        .ScreenUpdating = False

    End With

    For i = 2 To Sheet1.UsedRange.Rows.Count

        k = Cells(i, 3)

        For p = 2 To Sheet1.UsedRange.Rows.Count

            j = Cells(p, 6)

            If InStr(k, "" & j & "") <> 0 Then

            Cells(i, 5) = j

            TextString = Replace(k, "" & j & "", "")

            Cells(i, 4) = TextString

            End If

        Next

    Next

    With Application

        .ScreenUpdating = True

    End With

End Sub

姓名列公式
=INDEX(Sheet3!$A$1:$A$6,MATCH(100000,FIND(Sheet3!$A$1:$A$6,Sheet2!A2)))
其中Sheet3!$A$1:$A$6是你事先定义好的所有人名，这个是数组公式，粘贴好后用CTRL+SHIFT+ENTER结束
Sheet2!A2是你的原摘要数据
有了姓名后，新摘要用=SUBSTITUTE(A2,C2,"")这样的替换公式就可以了

查找并替换掉摘要。把名字抽取出来。

请问这段VBA该怎么使用？本人新手，应该插在哪里？
在你的VBA代码里，哪里是调用已有人名的代码？
调用人名是通过循环语句实现的，就是把所有的记录与现有的人名做比对，如果找到就进行处理

---

请教VBA高手EXCEL表格无规律数据中提取人名视频