QQ群管理 --- 免费提取QQ群所有成员

https://qun.qq.com/manage.html#click   QQ群管理

https://www.cnblogs.com/onelikeone/protected/p/11478723.html  提取每栋楼的业主人数，VBA脚本

说明：#号前面的数字表示 业主所在的 楼号

需求：统计各个 楼号 的业主人数

Option Explicit
Option Compare Binary
Sub 正则表达式提取楼盘的楼号()
    '声明语句
    Dim i As Long
    Dim sLength As Long '源工作表总行数
    Dim sSheet As Worksheet '源工作表
    Dim sRange As Range
    Dim sRangeAppPath As Range
    Dim sRangeAppName As Range
    
    Dim sRangeValue As String '源单元格值
    Dim sRegExp As Object
    Dim sRegExpModuleName As Object

    Dim startTime '记录程序运行开始时间
    startTime = Now() '将当前时间赋值给变量

    '--------------------------------------------Start!!
    '--------------------------------------------只提取楼号
    Set sRegExp = CreateObject("vbscript.regexp")
    sRegExp.Global = True
    
    '正则表达式：[^ f

	v] 表示匹配任何非空白字符。见网址：https://blog.csdn.net/david_lyy/article/details/84875472
    sRegExp.Pattern = "(#|＃|-|—|－|号楼|井)[^ f

	v]*$"  ' x|y|z 或的关系
    
    '--------------------------------------------End!!
    
    '赋值语句
    Set sSheet = Worksheets("Sheet1") '翻译工具导出的总表

    '获取工作表总行数
    sLength = sSheet.Cells(Rows.Count, "A").End(xlUp).Row 'A列
    
    '打印总行数
    Debug.Print "--------:source total rows:" & sLength

    For i = 2 To sLength
        Set sRange = sSheet.Range("A" & i) '资源路径列
        Set sRangeAppPath = sSheet.Range("B" & i) 'B列显示提取后的数值
        Set sRangeAppName = sSheet.Range("C" & i) 'C列显示提取后的数值
    
        sRangeValue = sRange.Value
        Debug.Print "值:" & sRangeValue
        
        Debug.Print "提取后的楼号:" & sRegExp.Replace(sRangeValue, "")
        sRangeAppPath.Value = sRegExp.Replace(sRangeValue, "")
        
    Next i
    
    ActiveWorkbook.Save '自动保存
    Debug.Print "耗时: " & Format(Now() - startTime, "hh:mm:ss") '程序运行耗时多久
    Debug.Print "完成！！！"
End Sub

脚本运行后，已经提取出来了：

从网页进入某个群--- 向下滑动网页 --- 显示所有的 QQ成员 --- 全选复制 到Excel 表格 --- 整理即可

收费工具：

http://www.12345ee.com/  嗨星QQ营销软件，试用版只能导出50个号码

http://www.weapoon.com/    歪碰系列软件官网