怎样自动查出没有交费用户？

w4275

已交费用户和未交费用户.7z (16.58 KB, 下载次数: 16)

2023-9-14 21:03 上传

点击文件名下载附件

sdytsxd991122

都市放牧人

参与一下.
用PQ,交费人员有变动,刷新下可自动更新未交费人员
已交费用户和未交费用户.zip (16.95 KB, 下载次数: 5)

2023-9-15 12:24 上传

点击文件名下载附件

422566739

参与下...
office 365 python in  Excel

在c2单元格 Py模式下输入
con = "全部用户 not in "+str(list(xl("B2:B11")[0]))
xl("A1:A38",headers= True).query(con).values

feilanga

xinxin2021 发表于 2023-9-14 20:04
发现你这个程序有点美中不足，就是B列某单元格的名字如果前面有空格，就会造成错误，把姓名前面有空格的 ...

...............数据不规范，空格处理掉就可以了

zhangcheng6688

来一个不是字典的
     arr = Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row)
    brr = Range("b2:b" & Cells(Rows.Count, "b").End(xlUp).Row)
    ReDim crr(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
         For j = 1 To UBound(brr)
             If arr(i, 1) = brr(j, 1) Then
                 GoTo x
             End If
          Next
          m = m + 1
          crr(m, 1) = arr(i, 1)
x:
   Next
   If m > 0 Then                                                                             
   Range("c2:c" &Cells(Rows.Count,"c").End(xlUp).Row).ClearContents
        Range("c2").Resize(m, 1) = crr
   End If

zhangcheng6688

学习一下字典
Sub test()
arr = [a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 1)
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   If arr(i, 2) <> "" Then
      d(arr(i, 2)) = ""
   End If
Next
For i = 2 To UBound(arr)
   If Not d.exists(arr(i, 1)) Then
      m = m + 1
      brr(m, 1) = arr(i, 1)
   End If
Next
[c2].Resize(m, 1) = brr
End Sub