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\n\r\t\v] 表示匹配任何非空白字符。見網址：https://blog.csdn.net/david_lyy/article/details/84875472
    sRegExp.Pattern = "(#|＃|-|—|－|號樓|井)[^ \f\n\r\t\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/    歪碰系列軟件官網