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

w4275 · 发表于 2023-9-14 21:03

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

sdytsxd991122 · 发表于 2023-9-15 09:33

都市放牧人 · 发表于 2023-9-15 12:24

参与一下.
用PQ,交费人员有变动,刷新下可自动更新未交费人员

已交费用户和未交费用户.zip (16.95 KB, 下载次数: 5)

422566739 · 发表于 2023-9-15 17:39

本帖最后由 422566739 于 2023-9-15 17:43 编辑

参与下...
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 · 发表于 2023-9-15 17:45

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

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

zhangcheng6688 · 发表于 2023-9-19 12:20

来一个不是字典的
   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 · 发表于 2024-3-12 12:02

学习一下字典
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

		自动登录	找回密码
密码			免费注册

[求助] 怎样自动查出没有交费用户？

评分