经验直达：
- wps表格怎么插入数据图表对比图
- 在WPS表格中
- wps表格每行都基本都有重复的数字
一、wps表格怎么插入数据图表对比图
在软件顶部菜单栏中，点击【插入】，在插入的功能区 ， 我们选择【图表】 。
点击图表后在弹出的窗口中，选择柱形下的第一个图表，然后选择【下一步】!
进入到【源数据窗口】，在数据区域的输入框后方，点击那个选择图标 。
点击后窗口便缩小至输入框大?。颐前咽蟊攴诺?号的数据表格中，点击鼠标不放一直拖动鼠标到10号数据表格中 。这时在源数据的输入框中 ， 我们发现有一条读取数据的代码，然后再点击输入框右边的图标，还原窗口!
在还原窗口中，我们可以看到数据区域已经出现图表样式和数据分析结果 。这里我们点击【完成】 。
二、在WPS表格中
B1单元格写入公式
=SUBSTITUTE(INDIRECT("A"&ROW(A1)*3-1),"-",)
或
=MID(INDIRECT("A"&ROW(A1)*3-1),2,999)
下拉填充公式
还可以写成
=SUBSTITUTE(INDEX(A:A,ROW(A1)*3-1),"-",)
=SUBSTITUTE(OFFSET(A$1,ROW(A1)*3-2,),"-",)
=MID(INDEX(A:A,ROW(A1)*3-1),2,999)
=MID(OFFSET(A$1,ROW(A1)*3-2,),2,999)
三、wps表格每行都基本都有重复的数字
请按如下步骤操作：
- 点击 WPS 表格顶部“视图”菜单，找到最右侧的“宏”目录，在下拉菜单中找到“录制宏”命令，如下图所示 。
“录制宏”命令所在位置示意图
2. 在弹出的对话框中，点击“确定”开始录制宏 。
开始录制宏操作
3. 无需进行其他操作 ， 点击左下角方块按钮结束录制宏 。
结束录制宏操作
4. 按 AltF8 或者按下图所示点击“查看宏”命令 。
查看宏
5. 在查看宏的弹出框中选择“编辑” ， 如下图所示 。
编辑按钮示意
6. 将如下内容复制到弹出的文本框中：
'----------- 注意！复制请从此处开始！--------------
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.CountActiveSheet.UsedRange.Row - 1
InNum = ActiveSheet.UsedRange.Columns.CountActiveSheet.UsedRange.Column - 1
StartOuNum = StartRow
StartInNum = StartCol
Else
OuNum = ActiveSheet.UsedRange.Columns.CountActiveSheet.UsedRange.Column - 1
InNum = ActiveSheet.UsedRange.Rows.CountActiveSheet.UsedRange.Row - 1
StartOuNum = StartCol
StartInNum = StartRow
End If
'初始化计数器
【在WPS表格中 wps表格怎么插入数据图表对比图】Dim k As Integer '外部遍历计数
Dim i As Integer '内部遍历计数 1
Dim j As Integer '内部遍历计数 2
Dim Num As Integer '内部不重复数字数量计数
If RowOrCol Then
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)) And Not Cells(k, i) = "" Then
Num = Num1
If MoveIfDelete Then
If Not StartInNumNum - 1 = i Then
Cells(k, StartInNumNum - 1) = Cells(k, 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) = "" Then
Num = Num1
If MoveIfDelete Then
If Not StartInNumNum - 1 = i Then
Cells(StartInNumNum - 1, k) = Cells(i, k)
Cells(i, k).ClearContents '清除单元格内容
End If
End If
End If
Next
Cells(ResultLocation, k) = Num
Next
End If
End Sub
'----------- 注意！复制到此处结束！--------------
7. 点击执行按钮，执行宏 。
执行按钮所在位置
8. 执行完成后 ， 即可完成统计数字（不重复计数），并删除重复值的操作 。
9. 如需保存宏请将 . xlsx 格式的另存为 .xlsm 格式的，以后便可再查看或者修改宏 。
10. 其它注释我都写在代码注释中，如果有不明白的事项可以再次追问 。