- 综合排序
- 最热优先
- 最新优先
- 来自专栏哆哆Excel
Excel VBA学习
学习一下，记录一下，资料来自于网络 网络代码收集一： Sub test() Dim arr, brr, i&, r&, k Set d = CreateObject("scripting.dictionary ") Set d1 = CreateObject("scripting.dictionary") With Sheet1 r = .Cells(Rows.Count, 1 i% ar = Range("d5").CurrentRegion br = Range("a1").CurrentRegion Set d = CreateObject("scripting.dictionary
2.7K30编辑于 2022-10-31 - 来自专栏完美Excel
Excel应用实践22： 比较并合并工作表
图4 编写代码如下： Sub CombineSheets() '声明变量 '用于存储工作表Sheet1中的数据 Dim dic1 As Scripting.Dictionary '用于存储工作表Sheet2中的数据 Dim dic2 As Scripting.Dictionary '工作表Sheet1 Dim wks1 As Worksheet Set wks2 = Sheets("Sheet2") Set wks3 = Sheets("Sheet3") '初始化字典对象 Set dic1 = New Scripting.Dictionary Set dic2 = New Scripting.Dictionary '填充字典dic1 lngLastRow = wks1.Range("A" &Rows.Count Dim i As Long Dim cell As Range Dim rng As Range Dim rngTemp As Range Dim dic As Scripting.Dictionary
1.1K20发布于 2019-10-22 - 来自专栏完美Excel
VBA实用小程序79：统计不同值或唯一值的VBA自定义函数
rngToCheck As Range) As Variant '早期绑定 '需要引用Microsoft Scripting Runtime库 Dim dicDistinct As Scripting.Dictionary 1个单元格 '那么varValues是一个二维数组 If IsArray(varValues) Then Set dicDistinct = CreateObject("Scripting.Dictionary Public Function COUNTDISTINCTdicStatic(ByRef rngToCheck As Range) As Variant Static dicDistinct As Scripting.Dictionary IsArray(varValues) Then If dicDistinct Is Nothing Then Set dicDistinct = CreateObject("Scripting.Dictionary AsRange, _ Optional ByVal blnCaseSensitive As Boolean = True) As Variant Static dicDistinctAs Scripting.Dictionary
2.5K20发布于 2021-07-12 - 来自专栏完美Excel
VBA字典（Dictionary）极简教程
这可以通过以下方式完成： Sub ScriptKey() Dim d As Variant Set d = CreateObject("Scripting.dictionary") 图２ 统计字典中的项目数量 要统计字典中的项目数，使用下面的方法： Sub ScriptKey() Dim d As Variant Set d = CreateObject("Scripting.dictionary 下面的代码将删除所有内容： Sub ScriptKey() Dim d As Variant Set d = CreateObject("Scripting.dictionary") Sub ScriptKey() Dim d As Variant Set d = CreateObject("Scripting.dictionary") d.Add "KEy1 下面的代码将修复比较问题： Sub ScriptComp() Dim d As New Dictionary Set d = CreateObject("Scripting.dictionary
4.4K30编辑于 2022-11-16 - 来自专栏完美Excel
Excel VBA解读（159）： 数据结构—字典对象的基本操作
如下面的代码： Sub testAddItem() Dim dict As Object Set dict =CreateObject("Scripting.Dictionary") 其语法为： 字典对象.Exists(Key) 例如，代码： Sub testCheckKey() Dim dict As Object Set dict =CreateObject("Scripting.Dictionary 方法返回字典中元素的数量，其语法为： 字典对象.Count 例如，代码： Sub testCount() Dim dict As Object Set dict =CreateObject("Scripting.Dictionary 方法可以删除指定的字典元素项，其语法为： 字典对象.Remove Key 例如，代码： Sub testRemove() Dim dict As Object Set dict =CreateObject("Scripting.Dictionary 其语法为： 字典对象.RemoveAll 例如，代码： Sub testRemoveAll() Dim dict As Object Set dict = CreateObject("Scripting.Dictionary
3.8K21发布于 2019-08-27 - 来自专栏数据处理与编程实践
VBA: 字典(Dictionary)的基本概念
代码示例： Sub dic_key() Dim dic, aa Set dic = CreateObject("Scripting.Dictionary") dic.Add 代码示例： Sub dic_item() Dim dic, aa Set dic = CreateObject("Scripting.Dictionary") dic.Add 代码示例： Sub dic_compare() Dim dic Set dic = CreateObject("Scripting.Dictionary") dic.CompareMode Sub dic_exist() Dim dic Set dic = CreateObject("Scripting.Dictionary") dic.Add "a", 代码示例： Option Explicit Sub Start() Dim d As Object Set d = CreateObject("Scripting.Dictionary
2.5K20编辑于 2023-08-17 - 来自专栏完美Excel
Excel VBA解读（160）： 数据结构—字典对象的基本操作（续）
遍历字典元素 使用For Each循环来遍历字典元素，例如： Sub testForEachLoop() Dim dict As Object Set dict = CreateObject("Scripting.Dictionary alArrList.Reverse End If '声明并创建新的字典 Dim dictNew As Object Set dictNew = CreateObject("Scripting.Dictionary 使用下面的代码来测试SortByKey函数： Sub testSortByKey() Dim dict As Object Set dict = CreateObject("Scripting.Dictionary System.Collections.ArrayList") '声明并创建字典 Dim dictTemp As Object Set dictTemp = CreateObject("Scripting.Dictionary 使用下面的代码来测试SortByValue函数： Sub testSortByValue() Dim dict As Object Set dict = CreateObject("Scripting.Dictionary
3.7K50发布于 2019-08-29 - 来自专栏哆哆Excel
ExcelVBA随机生成不重复的N个N位数文本
Randomize (Timer) '初始化随机数生成器 Set d = CreateObject("Scripting.Dictionary Case Else a = "0123456789" End Select m = Len(a) Set tempdic = CreateObject("scripting.dictionary
85920编辑于 2022-10-31 - 来自专栏VBA 学习
VBA一维表转二维表
： Sub TarnsTable2() Dim drow As Object Dim dcol As Object Set drow = VBA.CreateObject("Scripting.Dictionary ") Set dcol = VBA.CreateObject("Scripting.Dictionary") Dim i As Long Dim arr() As Variant
2.2K30发布于 2020-07-28 - 来自专栏哆哆Excel
Pandas 拆分总表为多文件，一个文件有多个工作表
Application.ScreenUpdating = False Application.DisplayAlerts = False Set d = CreateObject("scripting.dictionary UBound(arr) If Not d.exists(arr(i, 1)) Then Set d(arr(i, 1)) = CreateObject("scripting.dictionary
1.5K20编辑于 2022-10-25 - 来自专栏哆哆Excel
VBA application.rank按班排名与按级排名
Rng1 As Range, Rng2 As Range, d1 As Object, d2 As Object, rngall As Range Set d1 = CreateObject("Scripting.Dictionary ") ' Set d2 = CreateObject("Scripting.Dictionary") arr = [a1].CurrentRegion For i = 2 To UBound
1.4K20编辑于 2022-10-25 - 来自专栏哆哆Excel
Excel VBA取白色单元格内容黄色的单元格的Address
r As Range, myr As Range Dim colorA As Integer, Saddress As String Set dicA = CreateObject("scripting.dictionary ") Set dicB = CreateObject("scripting.dictionary") Set outSht = Worksheets("结果") With outSht
1.5K30编辑于 2023-09-09 - 来自专栏哆哆Excel
ExcelVBA字典用法之按列拆分工作表
字典绑定=== Sub 前期绑定() Dim dic As New Dictionary End Sub sub 后期绑定() Dim dic Set dic= CreateObject("Scripting.Dictionary 我想按班别拆分为各个班的成绩各一个工作表 Sub 字典拆分() Dim active_sht As Worksheet, rng As Range Set dic = CreateObject("scripting.dictionary
1.7K20编辑于 2022-10-25 - 来自专栏完美Excel
删除包含多行文本的单元格中重复文本的VBA自定义函数
val As Variant Dim var As Variant Dim i As Integer Dim sKey As String Set dict = CreateObject("scripting.dictionary ") Set dOut = CreateObject("scripting.dictionary") dict.CompareMode = vbTextCompare dOut.CompareMode
2.5K11编辑于 2024-07-05 - 来自专栏VBA 学习
常用功能加载宏——一维表转二维表
Sub TarnsTable1To2() Dim drow As Object Dim dcol As Object Set drow = VBA.CreateObject("Scripting.Dictionary ") Set dcol = VBA.CreateObject("Scripting.Dictionary") Dim i As Long Dim arr() As Variant
1.1K20发布于 2020-07-28 - 来自专栏数据处理与编程实践
VBA: 将选中的单元格区域导出为 JSON 文件
dataBodyRange = dataRange.Resize(dataRange.Rows.Count - 1).Offset(1, 0) Set headers = CreateObject("Scripting.Dictionary ) Next For rowIndex = 1 To dataBodyRange.Rows.Count Set jsonObject = CreateObject("Scripting.Dictionary
1.6K10编辑于 2025-04-17 - 来自专栏哆哆Excel
Excel VBA银行发放超过1W元的数据拆分
代码】 Sub 银行发放超过1W的拆分() Dim sp_arr(), arr, brr() Dim dic As Object Set dic = CreateObject("Scripting.Dictionary Sub Sub 银行发放超过1W的拆分() Dim sp_arr(), arr, brr() Dim dic As Object Set dic = CreateObject("Scripting.Dictionary
61220编辑于 2022-10-31 - 来自专栏哆哆Excel
VBA把数量不同的多表进行汇总
两字为关键字的为结尾 Dim sht As Worksheet Dim dic1 As Object, dic2 As Object Set dic1 = CreateObject("Scripting.Dictionary ") Set dic2 = CreateObject("Scripting.Dictionary") s= "*" title_row = 3 Lcol = 4 For
1.4K21编辑于 2022-10-25 - 来自专栏哆哆Excel
VBA用字典批量查找社保数据
本程序是个人原创学习之用== ====程序1==== Sub 批量查找社保数据a() Dim dic As Object, wb As Workbook Set dic = CreateObject("scripting.dictionary main_sht As Worksheet Dim Urng As Range Dim arr, brr, temp_rr() Set mydic = CreateObject("scripting.dictionary
1K31编辑于 2022-10-25 - 来自专栏完美Excel
Excel VBA解读（161）： 数据结构—字典对象操作示例
As clsStudent Dim lngLastRow As Long Dim i As Long '创建字典对象 Set dict = CreateObject("Scripting.Dictionary As Worksheet Dim lngLastRow As Long Dim i As Long '创建字典对象 Set dict = CreateObject("Scripting.Dictionary
2.7K21发布于 2019-09-03
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号