UC知道怎么在excel表格里找出所有未知的相同的字段？
来源：百度知道 编辑：UC知道 时间：2024/05/17 04:36:11
河南现代电梯有限公司
安阳建工（集团）有限公司
河南广大电梯有限公司
河南天奥电梯公司
河南金桥电梯有限公司
鹤壁超越楼宇设备有限公司
郑州联合技术设备公司
省直机关物业管理中心
鸿福物业
许昌鑫利达电梯公司
南京同成电梯工程有限公司
江苏中菱电梯有限公司
江苏贝斯电梯工程有限公司
南京粤立电梯工程有限公司
南京赛德电梯工程有限公司
... ...
什么命令能在一大堆以上的数据中，找出有多少个包含“现代”的名称，及多少包含“安阳建工”的名称？关键字未知。
非常感谢！
但是关键字未知，意思是说我不知道里面会不会有“现代”，或“安阳建工”，需要找出有哪些重复的字段。
再强调一下，关键字未知，就是我只是想找重复的，但并不知道查找的值。我的悬赏分给的是最高的了，哪个高手来回答一下？就算回答一个需要先怎么调整才能得到我想要的方法也行，就是那种所谓的笨办法也行。
"不管什么，只要有重复字（包括字符串）就筛选出来的话还可以解决。"
请问这个方法如何实现?
所有答案里面只有魔法师理解了我的意思，我已经提高悬赏分数，请做回答，谢谢！
为了查找正确，首先，你必须要把筛选的数据放在A列，从第一行开始放。然后，alt+F11调出vba窗口，插入模块，拷贝下面的代码后保存。
运行宏SearchSame，在B列出现的数据是重复项关键字，C列往后就是和该关键字有重复的原始数据。因为excel有列限制，所以结果最多显示到IV列。不过想必够用了吧。
用你给的数据，代码运行正常，你可以试一下。
Sub SearchSame()
Dim pos As Integer
Dim bit As Integer
Dim cellstr As String
Dim keystr As String
Dim len_str As Integer
Dim foundnum As Long
On Error GoTo err
foundnum = 0
ActiveSheet.Range("B:IV").Clear
For Each cell In ActiveSheet.Range("A:A").Cells
cellstr = Trim(cell.Value)
len_str = Len(cellstr)
If cellstr = vbNullString Then
Exit For
End If
For pos = 1 To len_str
For bit = 1 To len_str - pos + 1
keystr = Mid(cell.Value, pos, bit)
If Not HasFound(keystr) Then
If IsSame(keystr, cell.Row) Then
foundnum = foundnum + 1
Cells(foundnum, 2).Val