WhatsApp群发助手
WhatsApp注册与登录：首先，你需要下载安装WhatsApp，然后使用你的手机号进行注册，填写相关信息并设定密码，系统会发送一条验证短信到你的手机上，输入验证码后就可以完成注册了。登录时，只需输入手机号和密码即可。
点击 WPS 表格顶部“视图”菜单，找到最右侧的“宏”目录，在下拉菜单中找到“录制宏”命令，如下图所示。
“录制宏”命令所在位置示意图
2. 在弹出的对话框中，点击“确定”开始录制宏。
开始录制宏操作
3. 无需进行其他操作，点击左下角方块按钮结束录制宏。
结束录制宏操作
4. 按 Alt + F8 或者按下图所示点击“查看宏”命令。
查看宏
5. 在查看宏的弹出框中选择“编辑”，如下图所示。
编辑按钮示意
6. 将如下内whatsapp最新版下载容复制到弹出的文本框中：
'----------- 注意！复制请从此处开始！--------------
Sub 统计不重复数字()
'
'宏
'统计不重复的数字，并删除重复的数字
'
'
Dim StartRow As Integer '从第几行开始
Dim StartCol As Integer '从第几列开始
Dim RowOrCol As Boolean 'True为行，即一行一行的计算有无重复值，反之，False为列
Dim ResultLocation As Integer '将计数数字存放在第几列（或行）上
Dim MoveIfDelete As Boolean '删除数据后是否前移补空位
'将上述值进行预设置
StartRow = 2
StartCol = 2
RowOrCol = True
ResultLocation = 1
MoveIfDelete = True
Dim OuNum As Integer '外部遍历总数
Dim InNum As Integer '内部遍历总数
Dim StartOuNum As Integer '起始外部遍历数
Dim StartInNum As Integer '起始内部遍历数
If RowOrCol Then
OuNum = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
InNum = ActiveSheet.UsedRange.Columns.Count + ActiveSheet.UsedRange.Column - 1
StartOuNum = StartRow
StartInNum = StartCol
Else
OuNum = ActiveSheet.Uswhatsapp苹果版最新免费下载edRange.Columns.Count + ActiveSheet.UsedRange.Column - 1
InNum =whatsapp使用教程 ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
StartOuNum = StartCol
StartInNum = StartRow
End If
'初始化计数器
Dwhatsapp下载到电脑im k As Integer '外部遍历计数
Dim i As Integer '内部遍历计数 1
Dim j As Integer '内部遍历计数 2
Dim Num As Integer '内部不重复数字数量计数
If RowOrCol Thwhatsapp为我删除en
For k = StartOuNum To OuNum
Num = 0
For i = StartInNum To InNum
For j = StartInNum To InNum
If Cells(k, j) = Cells(k, i) And Not i = j Then
Cells(k, j).ClearContents '清除单元格内容
End If
Next
If IsNumeric(Cells(k, i)) Anwhatsapp网页版安卓版2021d Not Cells(k, i) = "" Then
Num = Num + 1
If MoveIfDelete Then
If Not StartInNum + Num - 1 = i Then
Cells(k, StartInNum + Num - 1) = Cells(kwhatsapp还原聊天记录, i)
Cells(k, i).ClearContents '清除单元格内容
End If
End If
End If
Next
Cells(k, ResultLocation) = Num
Next
Else
For k = StartOuNum To OuNum
Num = 0
For i = StartInNum To InNum
For j = StartInNum To InNum
If Cells(j, k) = Cells(i, k) And Not i = j Then
Cells(j, k).ClearContents '清除单元格内容
End If
Next
If IsNumeric(Cells(i, k)) And Not Cells(i, k) = "&quwhatsapp 显示一个表ot; Then
Num = Num + 1
If MoveIfDelete Then
If Not StartInNum + Num - 1 = i Then
Cells(StartInNum + Num - 1, k) = Cells(i, k)
Cells(i, k).ClearContents '清除单元格内容
End If
End If
End WhatsApp网页版登录辅助软件If
Next
Cells(Rwhatsapp登陆esultLocation, k) = Num
Next
End If
End Sub
'----------- 注意！复制到此处结束！--------------
7. 点击执行按钮，执行宏。
执行按钮所在位置
8. 执行完成后，即可完成统计数字（不重复计数），并删除重复值的操作。
9. 如需保存宏请将 . xlsx 格式的另存为 .xlsm 格式的，以后便可再查看或者修改宏。
10. 其它注释我都写在代码注释中，如果有不明白的事项可以再次。
建议重新设计下表格吧：第一行是列标题，之后的每一行都是一条完整的记录。
=SUMPRODUCT(1/COUNTIF(B1:S1,B1:S1))
如图所示：
http://jingyan.baidu.com/article/72ee561ab0e532e16138dfb5.html
第一步，用wps office表格打开需要查询的数据表格。
第二步，把需要查询的数据点住鼠标左键滑动使其被鼠标图蓝覆盖上。要查询的范围全部图蓝覆盖。
第三步，在上方功能菜单栏，找到【数据】按钮。
第四步，点击【数据】按钮，点击其菜单下找到【重复项】按钮，出现三个选项，依次选择【高亮显示重复项】--【设置】。
第五步，点击【设置】后出现如图的提示框，直接点【确定】按钮。
第六步，点击【确定】后，所覆盖的数据中，如果存在重复项就会在其上自动涂上浅橙色，这样被浅黄色高亮标注的数据就是重复了的数据。然后就可以对其进行删减等修改了。
WhatsApp网页版请注明：WhatsApp网页版 » whatsapp群发助手 whatsapp认证不了
