在多个工作薄中删除与源数据中相同身份证号的人员

limonet

Sub limont()
    Dim Cn As Object, StrSQL$, Path$, FileName$
    Set Cn = CreateObject("Adodb.Connection")
    Path = ThisWorkbook.Path & "\"
    FileName = Dir(Path & "*.xls?")
    Do While FileName <> ""
        If FileName <> "源数据.xlsm" Then
            Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;Hdr=No';Data Source=" & Path & FileName
            StrSQL = "Update [Sheet1$] Set F1=Null,F2=Null Where F2 In(Select * From [Excel 12.0;Hdr=No;DataBase=" & ThisWorkbook.FullName & "].[Sheet1$B:B])"
            Cn.Execute (StrSQL)
            StrSQL = "Select '" & Split(FileName, ".xlsx")(0) & "',Count(*) From [Sheet1$] Where F1<>''"
            Range("D" & Range("D" & Rows.Count).End(xlUp).Row + 1).CopyFromRecordset Cn.Execute(StrSQL)
            Cn.Close
        End If
        FileName = Dir
    Loop
End Sub

HooPHooP

沈默00 发表于 2024-4-7 14:21

感谢！基本搞懂了，想问一下，最初定义变量时，i&是何意？

shiruiqiang

i as long长数组和i as int短数字，手机打字

沈默00

HooPHooP 发表于 2024-4-7 23:37
感谢！基本搞懂了，想问一下，最初定义变量时，i&是何意？

dim i as long的简写，有几个常用变量的简写可以网上查一下，

HooPHooP

沈默00 发表于 2024-4-8 07:26
dim i as long的简写，有几个常用变量的简写可以网上查一下，

HooPHooP

沈默00 发表于 2024-4-8 07:26
dim i as long的简写，有几个常用变量的简写可以网上查一下，

For i = UBound(ar) To 1 Step -1
                If Len(ar(i, 2)) Then
                    s = ar(i, 2)
                    If d.exists(s) Then
                        wb.Sheets(1).Rows(i).Delete
                    End If
                End If
            Next
你好！这段代码是if嵌套，意思我理解是：如果第二列中数据不为空，将值赋给变量S，然后对照字典查重，有重复就删除工作表中对应的行。如果第二列中数据为空，代码如何运行呢？

shiruiqiang

在数组中找到字典(字典只有唯一)就删除对应的行号。空的话，字典中也没空的key

沈默00

HooPHooP 发表于 2024-4-8 22:54
For i = UBound(ar) To 1 Step -1
                If Len(ar(i, 2)) Then
                    s = ar ...

空就是跳到end if,,你可以F8 逐步运行，在本地窗口查看一下会更加清楚些