Excel 2010 VBA 入门 094 数据处理之使用数组

最新推荐文章于 2023-11-18 22:09:26 发布
最新推荐文章于 2023-11-18 22:09:26 发布
阅读量478 收藏 2
点赞数
分类专栏： # Excel 2010 VBA 入门
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ngbshzhn/article/details/116733676
版权
这篇博客介绍了如何在Excel VBA中利用数组和枚举进行数据处理。通过建立列数下标的数组以及使用枚举Enum，简化了处理大量数据时的列号引用，提高了代码的可读性和效率。示例中展示了如何根据月份计算产品销售和成本的汇总，以及如何通过枚举来方便地表示和使用数组下标。
摘要由CSDN通过智能技术生成

目录

示例

数据源收表

数据源成本表

代码

建立列数下标的数组

使用枚举Enum

示例

    如图所示，该表为某公司产品的销售记录以及相应的成本记录。现需要将两个表的数据按产品以及月份进行汇总。由于结果表的列数较多，如何快速正确地获取汇总表中各列的序号？

数据源收表

日期 商品代码 商品名 数量 收入
2011/1/6 01.0001 AAAD 183.56 169753.8
2011/1/7 01.0001 AAAD 192.09 177642.2
2011/1/8 01.0001 AAAD 190.3 175986.8
2011/1/9 01.0001 AAAD 190.51 176181
2011/1/10 01.0001 AAAD 192.61 178123.1
2011/1/11 01.0001 AAAD 191.04 176671.2
2011/1/12 01.0001 AAAD 190.39 176070.1
2011/1/13 01.0001 AAAD 192.13 177679.2
2011/1/14 01.0001 AAAD 188.14 173989.3
2011/1/15 01.0001 AAAD 188.89 174682.9
2011/1/16 01.0001 AAAD 193.24 178705.7
2011/1/17 01.0002 ERTY
最低0.47元/天 解锁文章
ngbshzhn
关注
专栏目录
【Excel VBA】数组应用(1)
qq389445046的博客
03-01 1001
合理使用数组和字典，将极大地提升代码的运行效率。例如，将单元格内容加载到数组中，充分利用数组在内存中的快速处理特征处理数据，然后再将回写到工作表单元格之中。 利用数组快速完成"编号"和"日期"两列数据的位置交换。 Sub uRngTomRng() Dim avntNum() As Variant, avntDate() As Variant avntNum = Range...
Excel VBA数组使用方法
weixin_30596735的博客
07-11 985
1、声明数组。 数组的声明方式和其它的变量是一样的，它可以使用Dim、Static、Private 或 Public 语句来声明。标量变量（非数组）与数组变量的不同在于通常必须指定数组的大小。若数组的大小被指定的话，则它是个固定大小数组。若程序运行时数组的大小可 以被改变，则它是个动态数组。 数组是否从0 或1 索引是根据Option Base 语句的设置。如果Option Base 没...
浅谈VBA中使用数组处理工作表数据
神奇的BI
02-28 1万+
前言 在VBA中最经常涉及的就是读写工作表中的单元格，如果读写操作次数较多，或者涉及到的单元格数量较多，往往会导致程序运行效率较低。这时经常用到的解决方法就是使用数组保存数据，在内存中进行数据处理和加工，最后一次行更新工作表，这样的操作方式往往会极大提升程序的运行效率。 读取数据 声明变量 首先如何声明用于保存单元格内容的变量呢？虽然在VBA可以直接使用未声明的变量，但是声明变...
EXCEL VBA数组使用的一些技巧和总结
miaozk2006的专栏
09-24 689
数组声明Dim myArray(1 to 50) as string 声明了一个下界为1，上界为50，类型为string的数组，当省略下界，如Dim myArray(50) as string时，其实声明了51个元素的数组，下界为0.可以在模块首行声明Option Base 1指明索引从1开始。多维数组声明 Dim MultiArray (1 To 4, 1 To 5, 1 To 3) as In...
VBA中数组的运用
最新发布
m0_54284125的博客
11-18 775
处理量大的数据，还是用数组方便。学习记录备忘
Excel 2010 VBA 入门 095 数据处理之用数组实现分列
复行数十步
05-13 927
示例 如图所示，该表为某系统中导出的数据。由于该数据将原本的四列信息合并至一个单元格中，现希望利用数组对该数据进行分列，将其分为四列。 关键词;关注指数;升降幅度;升降位次 小胸钢托聚拢游泳衣;12;9%;13位 泳衣 女 三件套;32;13%;12位 泳衣 四件套;28;30%;11位 爱慕 泳衣;19;10%;10位 女式泳装;12;4%;10位 维多利亚 secret;38;5%;9位 比基尼 三件套 纱;12;8%;8位 钢托泳衣;62;5%;6位 大..
Excel 2010 VBA 入门 093 数据处理之建立数组
复行数十步
05-12 686
目录 示例 代码 数组的基本概念 数组的声明 数组的赋值与数组数据的读取 Ubound和Lbound函数获取数组的上下限 ForEach---Next循环遍历数组的注意事项 计算程序运行的时间 数组处理的极限 示例 如图所示，该表为某公司的产品销售记录。现需要根据规格型号建立汇总表，并根据单元格G2所示的规格型号汇总数量及金额，然后将结果存入H2和I2中。由于该表数据超过10万条，如何利用数组加快该查询？ 规格型号 数量 单价 金额 ...
Excel 2010 VBA 入门 096 数据处理之用数组提取不重复值
复行数十步
06-29 3583
示例 如图所示，该表为某公司在某月的销售数据。现希望统计该月中销售的产品类别的个数。如何利用VBA数组提取该列不重复的值，并存放于新表中？ 日期 销售经理 客户分类 区域 分配业务员 回款地 所属公司 产品分类 客户名称 销售数量 单价 销售金额 送货单号 2010/10/2 李泉 二线客户 天河区 何月 中山 海天建材 HT15MM 金虎 1280 65 ..
Excel 2010 VBA 入门 097 数据处理之条件数量不确定的多条件数据查找
复行数十步
06-29 1114
目录 示例 代码 使用数组进行多条件查找 示例 如图所示，该表为某公司的加工记录。现己建立查询表，希望实现输入查询条件后，即可在查询结果区域显示原始数据的查询结果，并且查询条件的输入可省略。为“查询”按钮编写程序以实现该功能。 代码 使用一个数组作为存储条件的数组，然后循环遍历原始的数据数组，在其中使用循环依次判断各列的数据是否满足条件数组中各个非空的条件，若全部满足，则将该记录存放于结果数组中。 Option Explicit Sub 条件数量不确定的查找() ...
VBA由图表获取数据源
07-20
VBA由图表获取数据源
EXCEL-VBA：Excel Range数组批量输入数据
鞠勇鸿的技术专栏
11-03 3778
Sheets("Sheet1").Range("A1:B1").Value = Array(1, 2)  
VBA的数组 和 EXCEL的range 互相 导数据
奔跑的犀牛先生
05-29 1万+
1 在VBA里定义好数组后，导入到EXCEL里去 Rem 把数组导入到excel REM 如果导入的是一维数据，要注意一维数组是横向的 REM 如果导入2维数据，就没这些问题。 Rem 如果把一维数组导入到纵向EXCEL格子，需要先对一维数组进行transpose Rem 要注意，固定数组arr(3) 其实默认是arr(0 to 3) 是4个元素 Sub test00...
EXCEL VBA 取代cell查找，使用数组，提速显著
micotine的博客
01-09 1860
最近在做数据对照查找，类似vlookup的使用。最初使用的是worksheet中的cell单元格数值对应相等，返回一个结果。后来发现速度很慢。查阅资料后，发现使用数组很快。特此记录。 思路： 将数据源的两列数据对应成两个数组，分别读入到数组中，再使用输入单元格的数值和数组数值对比，如果相等，则返回第二个数组的对应值。 Sub test2() '合并,速度更快 Dim i '用于数组的索引，如果数据量很大，用int可能会溢出（int最大3w多），所以设置成variant Dim j As Int
VBA 设置图表数据源
liuxiaofeng1991的博客
03-02 1804
?????Sheets("异常图表").ChartObjects("图表?3").Chart.SetSourceData?Source:=Sheets("异常图表").Range("A1:B"?&?Sheets("异常图表").Range("a65536").End(xlUp).Row) ?????????? ?????????? ?????????? ?????????'?Sh...
VBA Range与数组互相赋值
热门推荐
kendyhj9999的专栏
11-19 2万+
Sub test() 'Range赋值给数组（利用Application.WorksheetFunction.Transpose） ' Dim myData '    myData = Application.WorksheetFunction.Transpose(Range("a1:e5")) '    MsgBox "共有" & UBound(myData) & "个数据！"
vba中数组用法
pgymeitianjinbu的博客
03-19 4172
1.筛选数组
小白vba之批量数据整理（excel自动化入门）
Soul_taker的博客
04-10 5848
excel数据整理 我们在日常工作中经常会碰到excel自带公式无法解决的问题，在面对大量数据需要整理计算的时候会消耗大量的时间，如果你了解vba的一些技巧，就可以减少很多工作量。本篇文章将会带你进入一个简单、易懂的自动化世界。 我们在日常工作中经常会碰到excel自带公式无法解决的问题，在面对大量数据需要整理计算的时候会消耗大量的时间，如果你了解vba的一些技巧，就可以减少很多工作量。本篇文章...
【原创】VBA学习笔记（304）VBA数组array基础知识（2）：数组更适合整体处理，字典更适合操作每个元素
奔跑的犀牛先生
01-08 2447
1 数组更像1个整体，而字典更像1个集合适合逐个处理。 设计数组和字典的人，目的性很不同 理解array 和 dictionary 两者的定位有很多差别 1.1 数组的特点 1.1.1数组方便的操作----数组最好用的方法是:循环 数组整体赋值 arr1=range() （动态）数组整体改变赋值 取得数组的上下限制，lbound() 和 uboun...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

打赏作者

ngbshzhn

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

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

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

打赏作者

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

抵扣说明：

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

余额充值