QQ好友清单整理方法与工具

工作中，由于各种原因，时候需要把qq里面的所有好友清单整理出来。为了提高效率，笔者自己总结了一套快速整理和提取的方法：

1 登录qq，打开qq - 点击邮箱 - 通讯录
2 选择最右侧的qq好友分组 - 在页面中间全选 - 添加到通讯录
3 依次将所有分组好友全部添加到通讯录
4 点右边“全部”
5 点中间“工具” - “导出联系人” - “vCard格式”
6 打开excel， 将导出的 vcf 文件拖到excel中，“加载项”-“QQ好友整理” - “好友整理”

加载项是用VBA写的，大家只要把下面的代码放到excel里面，运行宏，然后在excel的菜单栏会增加一个“加载项”，里面有一个“qq好友整理”。

代码如下：

Public Sub ZFQL()
 Dim helpmenu As CommandBarControl
    Dim newmenu As CommandBarPopup
      '利用ID属性查询帮组菜单
      Set helpmenu = CommandBars(1).FindControl(ID:=30010)
     
      If helpmenu Is Nothing Then
        '如果该菜单不存在，则将新菜单添加到末尾
        '设置新菜单为临时的
        Set newmenu = CommandBars(1).Controls _
          .