没有合适的资源?快使用搜索试试~ 我知道了~
首页VBA让Excel数据去重.docx
VBA让Excel数据去重.docx
需积分: 42 9 下载量 89 浏览量
更新于2023-03-16
评论
收藏 14KB DOCX 举报
讲解怎么使用VBA处理 数据,主要是Excel中。包括讲解和源代码,有兴趣的可以看看--------后面描述纯属凑字数,看看即可
资源详情
资源评论
资源推荐
之前做过用用 VBA 来筛选数据,去重的相关工作,但是后面给忘记了,最近需要用到,又
重新写了一个。鉴于此,还是做一个归纳,以后再需要的时候也方便一些。
VBA 主要用在 Excel 中,别的就不说了,只说 Excel 中的情况
一个是筛重。筛重简单的说就是将表格中的很多重复的数据进行归纳,特别是我们在
选型的时候会经常用到。
在我们在设计的时候,会先把按钮啊、开关之类的先一个个的写出来,然后对应每个
按钮选定一个按钮的型号,对应每个电机选定电机的型号,这样的话,在修改和查看起来
就非常简单。但是在最后下采购单的时候就需要把型号一样的进行汇总,对同一个型号的
列一个项目,后面做一个数量上的累加就行了。比如说,启动按钮用的是 A 型号,停止按
钮用的也是 A 型号,下采购单的时候,就需要在前面列一个(名称:按钮,型号:A,数
量:2)就行了,不用单独拆出来。
简要说下具体使用:
第一步,先把需要统计的数据找出来。比如,下面一个例子:
Private Sub CommandButton2_Click()
Dim i As Integer
For i = 5 To 500
If Sheets("采购清单_test").Cells(i, "I") <> "" Then
If Sheets("采购清单_test").Cells(i, "k") = "乙供" Then
Cells(i, "D") = Sheets("采购清单_test").Cells(i, "I")
Cells(i, "C") = Sheets("采购清单_test").Cells(i, "G")
End If
End If
Next
End Sub
在上面的例子中,就是把《采购清单_test》这个表格中 K 里面写的是“乙供”的找出来。
当然,我这个表格中的 K 列写的是这个零件是甲方供货还是乙方供货。在这个项目里面我
们是乙方,我们就需要下标注为乙方的采购单。在新的表格里面,D 列是将旧表格的第 I
列的数据复制过来,C 列是把旧表格的 G 列的数据复制过来。在我的旧表格里面 I 列是型
号,G 列是数量。
经过这个程序,我们就把需要采购的东西都筛选到我的新表格中了,当然我这个是从
第五行开始筛选,一直筛到第五百行,而实际上我的数据不到三百行。
因为从旧表格复制过来的数据没有进行任何处理。所以,在旧表格中是属于甲方供货
的那些行就是空白行,这样就需要把空白行给剔除掉,让新的表格中的数据从上到下排列
具体的方法如下。
第二步,将复制过来的数据,从上往下一个挨着一个排列在一起。
Private Sub CommandButton3_Click()
Dim i, j, k, l, m, n As Integer
k = 5
n = 5
For i = 5 To 500
If Cells(i, "D") <> "" Then
Cells(k, "F") = Cells(i, "D")
Cells(k, "E") = Cells(i, "C")
saga20081208
- 粉丝: 29
- 资源: 7
上传资源 快速赚钱
- 我的内容管理 收起
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
会员权益专享
最新资源
- ExcelVBA中的Range和Cells用法说明.pdf
- 基于单片机的电梯控制模型设计.doc
- 主成分分析和因子分析.pptx
- 共享笔记服务系统论文.doc
- 基于数据治理体系的数据中台实践分享.pptx
- 变压器的铭牌和额定值.pptx
- 计算机网络课程设计报告--用winsock设计Ping应用程序.doc
- 高电压技术课件:第03章 液体和固体介质的电气特性.pdf
- Oracle商务智能精华介绍.pptx
- 基于单片机的输液滴速控制系统设计文档.doc
- dw考试题 5套.pdf
- 学生档案管理系统详细设计说明书.doc
- 操作系统PPT课件.pptx
- 智慧路边停车管理系统方案.pptx
- 【企业内控系列】企业内部控制之人力资源管理控制(17页).doc
- 温度传感器分类与特点.pptx
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论0