【VBA】多条件去重
2024-10-07 00:05:09
Function kaidan(txt)
Dim i As Integer
Dim arr
Set d = CreateObject("scripting.dictionary")
For i = 1 To Worksheets("汇-销").Range("a65536").End(xlUp).Row
arr = Worksheets("汇-销").Range("a1:s" & i).Value
If arr(i, 19) = txt And arr(i, 9) > 0 Then
d(arr(i, 8)) = ""
End If
Next
kaidan = d.Count
End Function
最新文章
- Jquery事件
- Angular实现递归指令 - Tree View
- 基于WORDPRESS+MYSQL的绿色企业主题制作全过程
- Preloading an Image with jQuery--reference
- python Debug 单步调试
- 关于重复记录和外部 ID （CRM导入提示已找到重复的查找引用）
- nRF Toolbox 1.2 使用AKII的实现，而Becon始终不好使
- ViewPager 实现 Galler 效果, 中间大图显示，两边小图展示
- Android官方技术文档翻译——迁移 Gradle 项目到1.0.0 版本
- ldap命令
- 解决下载的CHM文件无法显示网页问题
- Qt 查找功能
- hadoo异常——org.apache.hadoop.security.UserGroupInformation: PriviledgedActionException
- Educational Codeforces Round 45 (Rated for Div. 2) F - Flow Control
- VS2008 对话框编辑器“即时预览”
- springboot的controller使用及url参数的获取
- MAC 下安装 SVN
- 解决gitosis中authorized_keys不自动更新问题
- 使用 Qt 获取 UDP 数据并显示成图片（2）
- 企业级Nginx Web服务优化实战