Excel VBA 找出选定范围不重复值和重复值
2024-10-19 18:30:45
Sub 找出选定范围内不重复的值()
On Error Resume Next Dim d As Object
Set d = CreateObject("scripting.dictionary")
For c_i = 1 To selection.Columns.Count
For Each ce In selection.Columns(c_i).Cells
'd.Add ce.Value, 1
If ce <> "" Then
'D(ce.Value) = ""
If d.Exists(ce.Value) Then
d(ce.Value) = d(ce.Value) + 1
Else
d(ce.Value) = 1
End If
End If
Next
Next
'Debug.Print d.Count
If MsgBox("是否在邻列显示出现次数?", vbYesNo, "统计次数") = vbYes Then
标记 = True
End If
e = InputBox("希望在那个单元格下生成结果:", "结果输出", Chr(97 + selection.Columns(1).Cells(1).Column + 2) & selection.Columns(1).Cells(1).row)
m = Left(e, 1)
jj = Mid(e, 2, 1)
Range(m & jj) = "不重复值"
If 标记 = True Then
Range(Chr((Asc(m) + 1)) & jj) = "频率" '大于1的值
End If
For Each Key In d.Keys
Range(m & (jj + 1)) = Key
If 标记 = True Then
' If d(Key) > 1 Then Range(Chr((Asc(m) + 1)) & (jj + 1)) = d(Key)
Range(Chr((Asc(m) + 1)) & (jj + 1)) = d(Key)
End If
jj = jj + 1
Next
Set d = Nothing
'最后进行排序
' Range(m & selection.Columns(1).Cells(1).row & ":" & Chr((Asc(m) + 1)) & (jj)).Select
Range(e & ":" & Chr((Asc(m) + 1)) & (jj)).Sort Key1:=Range(m & Mid(e, 2, 1) + 1), Order1:=xlAscending, HEADER:=xlYes _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
End Sub
最新文章
- appium 常用API
- CodeForces 742A Arpa’s hard exam and Mehrdad’s naive cheat
- Spring的DI(Ioc) - 注入集合类型
- Redis源码研究--字符串
- php empty()和isset()的区别<;转载>;
- 【转】Xcode常用快捷键与技巧分享
- C#获取硬盘空间信息
- Java基础知识强化之IO流笔记07:自定义的异常概述和自定义异常实现
- gdb调试python
- Redis util
- CSS实现背景透明而背景上的文字图片不透明
- 转载:C#特性-表达式树
- Xaml引用图片路径的方式
- react案例->;新闻移动客户端--(react+redux+es6+webpack+es6的spa应用)
- Java部署环境搭建(Linux)
- NPM(Node Package Manager,Node包管理器)
- 20155218《网络对抗》MSF基础应用
- BufferedImage操作图片笔记(转)
- vue-router路由原理
- Laravel 中自定义日志目录
热门文章
- ISSCC 2017论文导读 Session 14: A 28nm SoC with a 1.2GHz Prediction Sparse Deep-Neural-Network Engine
- kylin构建cube优化
- fiddler几种功能强大的用法(二)
- POJ 1170 Shopping Offers(完全背包+哈希)
- windows下hadoop安装配置(转载)
- xtu 1242 Yada Number 容斥原理
- js 面试题总结 3
- git 使用和安装
- SGU 144. Meeting 概率dp 几何概率分布 难度:0
- 201621123010《Java程序设计》第6周学习总结