excel 通过自定义的关键字表匹配长文字进行分类？

复制到 歌曲 表 ，参考下这个编程

Sub 歌曲()

Dim i, k

For i = 1 To [a65536]End(xlUp)Row

For k = 1 To Sheets("关键字")[a65536]End(xlUp)Row

x = Len(Cells(i, "a"))

For r = 1 To x

n = Mid(Cells(i, "a"), r, 1)

m = WorksheetFunctionCountIf(Sheets("关键字")Range(Sheets("关键字")Cells(k, "a"), Sheets("关键字")Cells(k, "k")), "" & n & "")

If m > 0 Then

Cells(i, "b") = Sheets("关键字")Cells(k, "a")

End If

Next

Next

Next

End Sub

没明白文字信息分类是指的什么。

如果你要批量处理数据信息，数据格式越规范越好。事实上，Excel更灵活，很多数据库对数据规范性要求要比Excel高的多得多。

如果是一整段文字，最好放在Word里边。批量处理的话，Excel单元格内的内容太长，会影响处理速度和结果的。

关键是看你具体数据是什么

1、在电脑里面将需要进行分类汇总的表格双击打开。

2、打开了表格，最后选中需要汇总的单元格，在数据里面选择降序，并点选扩展选定区域。

3、设置好了之后，点击数据—分类汇总，将分栏汇总设置窗口打开，并勾选分类汇总里面的名称。

4、最后点击确定，这样就将EXCEL表格中含有某相同关键字进行分类汇总。