Excel 2010 VBA 入门 081 数据处理之获取不重复的数据

最新推荐文章于 2024-05-22 17:17:43 发布
最新推荐文章于 2024-05-22 17:17:43 发布
阅读量5.1k 收藏 22
点赞数 3
分类专栏： # Excel 2010 VBA 入门
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ngbshzhn/article/details/116303022
版权

目录

示例

示例数据表

代码1

去除重复值(RemoveDuplicates)方法

代码2

代码3

示例

    如图所示，该表为某村人口登记表。现希望得知有哪些户的居民已登记，因而希望获取“户号”列的不重复值，并存储在J列。该如何用VBA实现？

示例数据表

姓名 街路巷 户别 与户主关系 性别 民族 户号
甲1 清水乡双井村 农村居民家庭户 户主 女 汉族 310000122
甲2 清水乡双井村 农村居民家庭户 女 女 汉族 310000122
甲3 清水乡红岩村 农村居民家庭户 妻 女 汉族 310000148
甲4 清水乡红岩村 农村居民家庭户 子 男 汉族 310000148
甲5 清水乡红岩村 农村居民家庭户 女 女 汉族 310000148
甲6 清水乡红岩村
最低0.47元/天 解锁文章
ngbshzhn
关注
  • 3
    点赞
  • 踩
  • 22
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 1
    评论
专栏目录
Excel 2010 VBA 入门 096 数据处理之用数组提取不重复值
复行数十步
06-29 3537
示例 如图所示，该表为某公司在某月的销售数据。现希望统计该月中销售的产品类别的个数。如何利用VBA数组提取该列不重复的值，并存放于新表中？ 日期 销售经理 客户分类 区域 分配业务员 回款地 所属公司 产品分类 客户名称 销售数量 单价 销售金额 送货单号 2010/10/2 李泉 二线客户 天河区 何月 中山 海天建材 HT15MM 金虎 1280 65 ..
检查一列数据的重复项 vba_收藏，多列提取不重复，5种方法任你选
weixin_39676972的博客
12-05 2719
大家好啊！今天的文章简单粗暴，分享5个多行多列提不重复值技巧，总有一个是你想不到的！下面要把左边的表提取出不重复值1、操作才是王道想一想，如果数据都在一列，那该多好，直接使用删除重复项就能实现提取不重复值。现在关键在怎么把多列转成一列？每列复制后，使用剪贴板的全部粘贴，可以直把多列转成一列。2、函数很疯狂在F2单元格复制下面的公式，再按Ctrl+Shift+回车一直拖公式到出现空白为止！=INDI...
Excel VBA 找出选定范围不重复值和重复值
03-07 3888
找出不重复值 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.Column
excel中利用VBA实现筛选功能
最新发布
造钞
05-22 906
笔者使用的是excel 2021家庭或学生版。实现功能：在office的excel中，在一张表中，从表中第4行开始，C列、D列、E列、F列（4列）输入的数据在该四列已经输入的数据中已经存在（输入的数据类型多样化，并且允许4列数据中有空值存在）。此时，提示用户这数据已经存在，请勿重复输入，并且该条新增记录不被保存，怎么实现？
ExcelVBA使用删除重复项获取不重复记录
qq389445046的博客
02-19 2456
ExcelVBA使用删除重复项获取不重复记录 关注微信公众号：VBA168 每天更新Excel VBA经典代码，祝你工作和学习更轻松！ 利用单元格区域的RemoveDuplicates方法可以去除重复值，从而获取不重复值列表，如下图所示。 示例代码如下。 Sub RemoveDuplicates() Range("A1").CurrentRegion.Copy Range("E1") ...
VBA之正则表达式（16）-- 提取非重复值
神奇的BI
08-01 2422
实例需求：数据序列使用减号连接，其中序列中包含重复元素。需要提取非重复元素，并使用减号连接，对于重复元素保留最后一次出现位置。 测试字符串：A-B-D-CC-C-C-F-C-E-C-D-E-CC-F 重复元素标记为蓝色，去重后结果为：A-B-C-D-E-CC-F 这个字符提取规则相对简单，直接使用VBA方法也可以实现。 Sub VBA_DEMO_0725() Dim arrData ...
VBA 获取多列不重复值
Seabiscuit_92的博客
07-22 3104
Sub Uniquedata() Dim EachCell As Range 'Creat UniqDicictionary object Set UniqDic = CreateObject("Scripting.Dictionary") 'Traverse selected area For Each EachCell In Range("A2:C11") 'Judge wheth
Excelvba.rar_Excel VBA_excel vba入门
09-19
这篇文档“Excelvba.doc”将引导初学者入门Excel VBA。 在Excel VBA中，主要涉及以下几个关键知识点： 1. **VBA编辑器**：这是编写VBA代码的地方。通过点击“开发者”选项卡（在Excel界面中可能需要开启），然后...
VBA-excel最基础入门教程.pdf
12-05
"VBA-excel最基础入门教程" VBA 是 Visual Basic For Application 的简称，它是一种应用程序开发工具，建立在 Office 中，用于自定义和扩展 Excel 的功能。学习 VBA 可以让用户更好地使用 Excel，提高工作效率。 1...
Excel+vba入门教程
06-13
总的来说，Excel VBA入门教程将引导初学者了解VBA的基本概念，通过实践操作掌握宏的录制和执行，为进一步学习VBA的高级特性打下基础。随着技能的提升，用户可以创建复杂的解决方案，不仅限于Excel，还可以扩展到Word...
Excel+vba入门教程Word版.docx
03-16
5. 与Excel内置的函数结合，进行复杂的数据处理和分析。 6. 连接多种数据库，进行数据导入导出和处理。 在学习VBA之前，可以通过录制宏来初步理解其工作原理。宏是VBA指令的集合，能记录用户的操作并转化为可执行的...
VBA RemoveDuplicates方法去重复项
weixin_34114823的博客
01-01 2222
RemoveDuplicates后边必须跟参数否则不起作用 ActiveSheet.Range("G21:R36").RemoveDuplicates Columns:=12, Header:=xlYes 其中Columns参数指定要删除重复项的列，如果是1的话，那么第一列中重复项所在行都会被删除，如果是2则只有1,2两列均重复的行才会被删除，以此类推，你的区域12列，那么只有12列均重复的行...
VBA两列去重并提取不重复数据到新列
Jalen备忘录
04-28 6507
Sub CheckDiff() Dim r%, i% Dim arr, brr Dim d As Object Set d = CreateObject("scripting.dictionary") With Worksheets("sheetName") r = .Cells(.Rows.Count, 1).End(xlUp).Row ...
Excel/VB 将文件A的数据（源数据）提取到文件B（目标文件）
weixin_44139849的博客
05-16 4457
问题背景 如果一切数据都跑在后台，数据之间的迁移在全部自动化的情况下，无疑使用csv+python等处理更理想。但不是什么都能全自动化的，如果数据的输入都是excel，而且还要能方便的在所有人的机器上跑，那基于excel的VB来实现一些简单数据处理也是非常方便的。 咳咳，扯远了。这章总结的是，如何从一个固定格式的工作表A，提取出想要的数据，按自己设定好的格式，写入另一个工作表B。 设计思路 1、需...
Excel高级技巧：提取不重复的数据
weixin_34247032的博客
04-19 809
2015-04-01|@Excel报表顾问因为是要保留源数据的，所以此处不允许用删除重复项等一些操作。本文介绍一种函数和一段vba代码，进行运算。源数据如下：函数的方式是D1=INDEX(A:A,SMALL(IF(MATCH($A$1:$A$10,$A$1:$A$10,)=ROW($1:$10),ROW($1:$10),65536),ROW(A1)))，最后是数组三键来完...
RemoveDuplicates
xdugucc的博客
09-13 3107
问题描述：给一个排好序的数组，要把该数组中所有重复的值删除，并返回删除之后的数组长度。 解决：使用双指针来处理，其中一个指针用来遍历。另一个指针用来处理元素。在这个题里，当出现重复元素时，遍历指针往后走，元素不重复时，保存。 /* * Given a sorted array, remove the duplicates in place such that each element
Excel 2010 VBA 入门 085 数据处理之制作多级下拉列表
复行数十步
05-04 2103
目录 示例 代码 添加一个隐藏工作表 在查询表中添加事件 示例 如图所示，该表为某公司的员工工资数据。现希望建立一个查询表，在查询表中建立二级下拉列表，可供选择部门以及部门内的员工。该如何用VBA实现？ 员工编号 姓名 部门 基本工资 0006 程建华 管理部 2875 0009 李国敏 管理部 3050 0016 袁志刚 财务部 3523 0017 周汉林 管理部 289...
多种方法实现从Excel表格的两列数据中提取不重复(唯一)值
热门推荐
sddsdl的博客
09-25 5万+
在Excel表格中有两列数据如何提取不重复值，即从两列中提取不重复(唯一)值，本文指将两列中所有相同行的两个单元格数据连接后去掉重复项。大家可以看到在下图的A、B两列中，有部分行两个单元格中的数据相同，即为重复值，图中用红色标识，现在的需求就是从两列中提取唯一值到其他区域，多次出现的重复值只提取一次，下面以Excel 2013和下图两列数据为例向大家介绍使用四种不同的方法从两列数据中提取不重复值，

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ngbshzhn

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值