如何通过宏整理某一列文字，有大神在不

奶味香水

删除重复，删除包含

lenghonghai601

你这个问题说的不是很清楚，到底留哪些单元格。例如a包含b是删除前者还是删除后者，没有标准啊？

奶味香水

lenghonghai601 发表于 2018-7-10 14:14
你这个问题说的不是很清楚，到底留哪些单元格。例如a包含b是删除前者还是删除后者，没有标准啊？

都是a列，如果里面都单元格有包含最短的那个，那么就删除，保留里面最短的。

zopey

Sub 按钮1_Click()
Range("d2:d65535").ClearContents
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")

Set cnn = CreateObject("adodb.connection")
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName

Sql2 = "select * from [sheet1$a:a] where 文字列 is not null order by len(文字列)"
    Set rst2 = CreateObject("adodb.Recordset")
    rst2.Open Sql2, cnn, 1, 1

    Do While Not rst2.EOF
       b2 = rst2("文字列")
       If Not dic.exists(b2) Then
          k = 0
          For Each a2 In dic.keys
              If InStr(b2, a2) > 0 Then k = 1: Exit For
          Next
          If k = 0 Then dic(b2) = ""
       End If
    rst2.movenext
    Loop

cnn.Close
Set cnn = Nothing

[d2].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
End Sub


测试2.zip (14.95 KB, 下载次数: 3)

2018-7-10 16:15 上传

点击文件名下载附件

奶味香水

zopey 发表于 2018-7-10 16:15
Sub 按钮1_Click()
Range("d2:d65535").ClearContents
Dim dic As Object

3706错误，不知道是什么情况

zopey

             Str_coon 字符类型   数据库连接语句

            'Str_coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes';Data Source=" & ThisWorkbook.FullName      '//OFFICE2003

            'Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2007

            'Str_coon = "HDR=yes';Data Source =" & FileArr(i)    '//OFFICE2003，2007 通用