Excel 2010 VBA 入门 096 数据处理之用数组提取不重复值

最新推荐文章于 2024-05-22 17:17:43 发布

ngbshzhn

最新推荐文章于 2024-05-22 17:17:43 发布

阅读量3.7k

点赞数

分类专栏： # Excel 2010 VBA 入门

本文链接：https://blog.youkuaiyun.com/ngbshzhn/article/details/116751375

版权

本文介绍了如何使用Excel VBA的Filter函数来处理数据，特别是提取不重复值的方法。通过示例代码，展示了如何利用Redim Preserve语句动态调整数组大小，以及如何使用Transpose函数转置数组。同时，文章还讨论了Filter函数的精确筛选和在数据比对中的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

示例

代码1

Redim Preserve语句

使用工作表函数Transpose对数组进行转置

示例

如图所示，该表为某公司在某月的销售数据。现希望统计该月中销售的产品类别的个数。如何利用VBA数组提取该列不重复的值，并存放于新表中？

日期

销售经理

客户分类

区域

分配业务员

回款地

所属公司

产品分类

客户名称

销售数量

单价

销售金额

送货单号

2010/10/2

李泉

二线客户

天河区

何月

中山

海天建材

HT15MM

金虎

1280

83200

0005919

2010/10/2

李泉

二线客户

天河区

何月

中山

海天建材

HT15MM

金虎

1280

83200

0005920

2010/10/2

李泉

二线客户

天河区

何月

中山

海天建材

HT15MM

金虎

1280

83200

0005921

2010/10/3

林海峰

三大家

黄埔区

林海峰

中山

海天建材

HT15MM

猎豹家私

1600

65.5

104800

101004201

2010/10/3

林海峰

三大家

黄埔区

林海峰

中山

海天建材

HT15MM

猎豹家私

最低0.47元/天解锁文章

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

ngbshzhn

关注关注

0
点赞
踩
16

收藏

觉得还不错? 一键收藏
1
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
打赏
打赏
打赏举报

举报

专栏目录

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

复行数十步

04-30

5401

目录示例示例数据表代码1 去除重复值(RemoveDuplicates)方法代码2 代码3 示例如图所示，该表为某村人口登记表。现希望得知有哪些户的居民已登记，因而希望获取“户号”列的不重复值，并存储在J列。该如何用VBA实现？示例数据表姓名街路巷户别与户主关系性别民族户号甲1 清水乡双井村农村居民家庭户户主女汉族 310000122 甲2 清水乡双井村 ..

最全Excel VBA 办公自动化

数据爬坡ing的博客

04-01

4556

在日常办公中，Excel 经常被用来处理数据、创建报表和执行各种计算。但是，当我们需要重复执行一些任务时，手动操作可能会变得繁琐乏味。这时候，Excel VBA (Visual Basic for Applications) 就派上了用场。本文将介绍如何使用 Excel VBA 进行办公自动化，包括提示词编写技巧、打开 VBA 界面以及具体全面的 VBA 提示模板。

1 条评论您还未登录，请先登录后发表或查看评论

VBA之正则表达式（16）-- 提取非重复值

神奇的BI

08-01

2625

实例需求：数据序列使用减号连接，其中序列中包含重复元素。需要提取非重复元素，并使用减号连接，对于重复元素保留最后一次出现位置。测试字符串：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两列去重并提取不重复数据到新列

Jalen备忘录

04-28

6991

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 ...

vba 位前相似筛选_VBA筛选非重复值

weixin_39597636的博客

01-14

384

本示例共展示了包括采用1、countif函数 2、高级筛选 3、排序后筛选 4、数组循环 5、引用collection对象在内的共5种筛选非重复值的方法，并注明了各种方法的优缺点，对于学习者是非常好的资料。资料来源：Excelhome方法1：countif函数评价：这是很多网友通常使用的方法。代码由于使用了2次长循环，加上直接在工作表上判断导致速度会非常慢，机器配置不好者慎用！方法2：...

关于vba没有重复值数组

qq_37425177的博客

05-08

332

想利用数组获得一个不含重复值的数据

Excel VBA编程入门教程：自动化数据处理

通过学习VBA，你可以编写宏，实现复杂的计算、数据处理和交互式界面，从而提高工作效率，减少重复劳动。 1. VBA语言基础： - **标识符**：在VBA中，标识符是用于给变量、函数、过程等命名的字符组合，遵循特定的...

Excel.VBA从入门到精通

03-03

### Excel.VBA从入门到精通 #### VBA语言基础 **VBA**(Visual Basic for Applications)是一种由微软公司开发的应用程序级别的编程语言，主要用于Office套件等应用软件中实现自动化控制，提高工作效率。 ##### 一...

vba 提取 json某个值_Excel中提取不重复值的方法汇总（5种基础+VBA+1个自定义函数）...

weixin_39609500的博客

12-11

867

各位朋友，你们好，今天和你们分享Excel中提取不重复值的几种方法，着重介绍【5种】基础操作方法，另外附送一个VBA去重代码，拿去就可以直接使用。一、基础操作方法1、数据工具直接去重(见下图)数据工具去重2、高级筛选(见下图)高级筛选去重3、数据透视表(见下图)数据透视表方法去重4、条件格式(见下图)条件格式去重注：①条件格式去重的公式：=AND($A1<>"",COUNTIF($A$...

Excel VBA 找出选定范围不重复值和重复值

03-07

4205

找出不重复值 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

检查一列数据的重复项 vba_收藏，多列提取不重复，5种方法任你选

weixin_39676972的博客

12-05

2981

大家好啊！今天的文章简单粗暴，分享5个多行多列提不重复值技巧，总有一个是你想不到的！下面要把左边的表提取出不重复值1、操作才是王道想一想，如果数据都在一列，那该多好，直接使用删除重复项就能实现提取不重复值。现在关键在怎么把多列转成一列？每列复制后，使用剪贴板的全部粘贴，可以直把多列转成一列。2、函数很疯狂在F2单元格复制下面的公式，再按Ctrl+Shift+回车一直拖公式到出现空白为止！=INDI...

Excel VBA VBA去重复的几种方法

热门推荐

ChristopherChen的博客

11-29

2万+

VBA去重复典型有两种方法： ① 整数数值型数据，可以直接使用数组下标去重复 ② 通用方法：字典去重复 Sub RecSortTest() arr = Array(5, 4, 2, 1, 5, 8, 7, 2, 7, 9, 3, 6, "22", "23", "221", 22, 23, 221, "a", "z", "c") '测试数组 ' arr = WorksheetFunct

ExcelVBA使用删除重复项获取不重复记录

qq389445046的博客

02-19

2853

ExcelVBA使用删除重复项获取不重复记录关注微信公众号：VBA168 每天更新Excel VBA经典代码，祝你工作和学习更轻松！利用单元格区域的RemoveDuplicates方法可以去除重复值，从而获取不重复值列表，如下图所示。示例代码如下。 Sub RemoveDuplicates() Range("A1").CurrentRegion.Copy Range("E1") ...

excel去重复

threshold1980的专栏

08-19

718

http://club.excelhome.net/thread-888978-2-1.html 以下是楼主的方法1： Sub 矩形1_Click() i = Range("A65536").End(xlUp).Row For s = 1 To i For ss = i To s + 1 Step -1

VBA提取指定区间的数据

qq_44390640的博客

04-12

2496

Sub OptionalFeatureLicense() Dim Fs As Object, Ft As Object, S As String Set Fs = CreateObject("Scripting.FileSystemObject") Set d = CreateObject("scripting.dictionary") filePath = Th...

Excel高级技巧：提取不重复的数据

weixin_34247032的博客

04-19

870

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)))，最后是数组三键来完...

Excel/VB 将文件A的数据（源数据）提取到文件B（目标文件）

weixin_44139849的博客

05-16

4980

问题背景如果一切数据都跑在后台，数据之间的迁移在全部自动化的情况下，无疑使用csv+python等处理更理想。但不是什么都能全自动化的，如果数据的输入都是excel，而且还要能方便的在所有人的机器上跑，那基于excel的VB来实现一些简单数据处理也是非常方便的。咳咳，扯远了。这章总结的是，如何从一个固定格式的工作表A，提取出想要的数据，按自己设定好的格式，写入另一个工作表B。设计思路 1、需...

vba代码片之获取范围中不同数值个数

迪迦 • 奥特曼

04-17

1813

Function total(r As Range) Dim i As Integer Dim myd As Object Set myd = CreateObject("Scripting.Dictionary") total = 0 For i = 1 To r.Rows.Count If myd.Exists(r.Cells(i, 1).Value) = False Then myd.Add r.Cells(i, 1).V

excel中利用VBA实现筛选功能