excel表格字典函数怎么使用

1.如何在Excel VBA中使用字典Dictionary对象

字典的简介字典（Dictionary）对象是微软Windows脚本语言中的一个很有用的对象。

附带提一下，有名的正则表达式（RegExp）对象和能方便处理驱动器、文件夹和文件的（FileSystemObject ）对象也是微软Windows脚本语言中的一份子。字典对象相当于一种联合数组，它是由具有唯一性的关键字（Key）和它的项（Item）联合组成。

就好像一本字典书一样，是由很多生字和对它们对应的注解所组成。比如字典的“典”字的解释是这样的：“典”字就是具有唯一性的关键字，后面的解释就是它的项，和“典”字联合组成一对数据。

常用关键字英汉对照：Dictionary 字典Key 关键字Item 项，或者译为 条目字典对象的方法有6个：Add方法、Keys方法、Items方法、Exists方法、Remove方法、RemoveAll方法。Add方法向 Dictionary 对象中添加一个关键字项目对。

object.Add (key, item)参数object 必选项。总是一个 Dictionary 对象的名称。

key 必选项。与被添加的 item 相关联的 key。

item 必选项。与被添加的 key 相关联的 item。

说明如果 key 已经存在，那么将导致一个错误。常用语句：Dim d Set d = CreateObject("Scripting.Dictionary")d.Add "a", "Athens" d.Add "b", "Belgrade"d.Add "c", "Cairo"代码详解1、Dim d ：创建变量，也称为声明变量。

变量d声明为可变型数据类型（Variant）,d后面没有写数据类型，默认就是可变型数据类型（Variant）。也有写成Dim d As Object的，声明为对象。

2、Set d = CreateObject("Scripting.Dictionary")：创建字典对象，并把字典对象赋给变量d。这是最常用的一句代码。

所谓的“后期绑定”。用了这句代码就不用先引用c:\windows\system32\scrrun.dll了。

3、d.Add "a", "Athens"：添加一关键字”a”和对应于它的项”Athens”。 4、d.Add "b", “Belgrade”：添加一关键字”b”和对应于它的项”Belgrade”。

5、d.Add "c", “Cairo”：添加一关键字”c”和对应于它的项”Cairo”。 Exists方法如果 Dictionary 对象中存在所指定的关键字则返回 true，否则返回 false。

object.Exists(key)参数object 必选项。总是一个 Dictionary 对象的名称。

key 必选项。需要在 Dictionary 对象中搜索的 key 值。

常用语句：Dim d, msg$ Set d = CreateObject("Scripting.Dictionary")d.Add "a", "Athens" d.Add "b", "Belgrade"d.Add "c", "Cairo"If d.Exists("c") Thenmsg = "指定的关键字已经存在。"Elsemsg = "指定的关键字不存在。

"End If代码详解1、Dim d, msg$ ：声明变量，d见前例；msg$ 声明为字符串数据类型（String），一般写法为Dim msg As String。String 的类型声明字符为美元号 （$）。

2、If d.Exists("c") Then：如果字典中存在关键字”c”，那么执行下面的语句。3、msg = "指定的关键字已经存在。

" ：把"指定的关键字已经存在。"字符串赋给变量msg。

4、Else ：否则执行下面的语句。5、msg = "指定的关键字不存在。

" ：把"指定的关键字不存在。"字符串赋给变量msg。

6、End If ：结束If …Else…Endif判断。Keys方法返回一个数组，其中包含了一个 Dictionary 对象中的全部现有的关键字。

object.Keys（ )其中 object 总是一个 Dictionary 对象的名称。常用语句：Dim d, k Set d = CreateObject("Scripting.Dictionary")d.Add "a", "Athens" d.Add "b", "Belgrade"d.Add "c", "Cairo"k=d.Keys[B1].Resize(d.Count,1)=Application.Transpose(k)代码详解1、Dim d, k ：声明变量，d见前例；k默认是可变型数据类型（Variant）。

2、k=d.Keys：把字典中存在的所有的关键字赋给变量k。得到的是一个一维数组，下限为0，上限为d.Count-1。

这是数组的默认形式。3、[B1].Resize(d.Count,1)=Application.Transpose(k) ：这句代码是很常用很经典的代码，所以这里要多说一些。

Resize是Range对象的一个属性，用于调整指定区域的大小，它有两个参数，第一个是行数，本例是d.Count，指的是字典中关键字的数量，整本字典中有多少个关键字，本例d.Count=3，因为有3个关键字。呵呵，是不是说多了。

第二个是列数，本例是1。这样=左边的意思就是：把一个单元格B1调整为以B1开始的一列单元格区域，行数等于字典中关键字的数量d.Count，就是把单元格B1调整为单元格区域B1:B3了。

=右边的k是个一维数组，是水平排列的，我们知道Excel工作表函数里面有个转置函数Transpose，用它可以把水平排列的置换成竖向排列。但是在VBA中不能直接使用该工作表函数，需要通过Application对象的WorksheetFunction属性来使用它。

所以完整的写法是Application. WorksheetFunction.Transpose(k)，中间的WorksheetFunction可省略。现在可以解释这句代码了：把字典中所有的关键字赋给以B1单元格开始的单元格区域中。

Items方法返回一个数组，其中包含了一个 Dictionary 对象中的所有项目。object.Items（ )其中 object 总是一个 Dictionary 对象的名称。

常用语句：Dim d, t Set d = CreateObject("Scripting.Dictionary")d.Add "a", "Athens" d.Add "b", "Belgrade"d.Add "c", "Cairo"。

2.Excel 怎样用数据字典进行汇总统计

先从系统中导出需要的数据，现在大部分的ERP系统导出的文件都是excel格式，删除掉不需要的信息，方便编辑。

本则经验中我就以汇总月度产品销售记录为例。将光标放到“货品名称”一栏，点击工具栏中的“升序排列”功能，完成后可以看到数据只要是一样的都排列到一起了，如下图所示：点击工具栏“数据”下拉菜单中的“分类汇总”功能，出现对话框，选择汇总类型，有多种汇总类型选择，本次经验中具体参考数据如下图所示：4第三步点击确认后，分类汇总就完成了，会出现三种分类情况（最左边的1.2.3标示），可以选择性查看，分类汇总结果如下图所示：。