龙空技术网

数组的拆分及条件匹配

VBA语言専攻 75

前言:

现时同学们对“java数组分割”大致比较关切,朋友们都需要剖析一些“java数组分割”的相关知识。那么小编同时在网上收集了一些对于“java数组分割””的相关文章,希望同学们能喜欢,大家快快来了解一下吧!

怀善心,做善事,一生无愧。怀平常心,做平常事,日夜安宁。把浮躁的心静下来,去感悟真实的时间,静下心,常存感恩之心,做善事,一生无愧。怀平常心,做平常事,日夜安宁。人之欲望不止,一山还比一山高,岂能如愿?看淡纷争,看轻得失,心安即是归处。一杯茶,满也好,少也好,不要计较其间;浓也好,淡也好,其中自有值得品的味道。逆境时多学习,积累的就是福报,多学习,积累的就是财富。保持快乐的心态,坚定且执着。去学习有用的知识,经营自己,而不是天天混日子,也不是天天熬日子。不管现实有多残忍,我们都要固执地相信,只要顽强的前行,一切阴霾都会吹散在风中。静下心,为后疫情时代做知识的储备。后疫情时代将会是一个全新的世界。在今后更加严峻的存量残杀世界中,为自己的生存进行知识的储备,特别是新知识的储备。为后疫情时代做的必要准备。

什么是存量残杀?简单而言,在取代OFFICE新的办公软件没有到来之前,谁能把应用做到最为先进,谁就是王者。其中登峰至极的技能非VBA莫属!

今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验的记录,来源于我多年的经验。最近代码多是出自"VBA数组与字典解决方案"教程,有一些朋友反映分享的内容不能很好的理解,可以参考这套资料的内容进行研读。今日分享的是第273期。

VBA过程代码273:将数组的拆分后合并作为字典的键,实现多条件的数据汇总

Sub MyNZ ()

Set mydic = CreateObject("scripting.dictionary")

'将数据页的数据放入数组

myarr = Sheets("数据").UsedRange

'将数组的前三列打碎后放入键中

For i = 2 To UBound(myarr)

If Not mydic.exists(Join(Array(myarr(i, 1), myarr(i, 2), myarr(i, 3)), "|")) Then

mydic(Join(Array(myarr(i, 1), myarr(i, 2), myarr(i, 3)), "|")) = myarr(i, 4)

Else

mydic(Join(Array(myarr(i, 1), myarr(i, 2), myarr(i, 3)), "|")) = _

mydic(Join(Array(myarr(i, 1), myarr(i, 2), myarr(i, 3)), "|")) + myarr(i, 4)

End If

Next

Sheets("43").Select

[a:e].Clear

Range("A1:D1") = Array("型号", "类别", "小类", "数量")

i = 2

'此处用一个循环将键回填到数据区域,这里要把键再合成一个数组

For Each key In mydic.Keys

Cells(i, 1).Resize(1, 3) = Split(key, "|")

Cells(i, 4).Value = mydic(key)

i = i + 1

Next

End Sub

代码讲解:上述代码实现了多列条件下数据的汇总求和的过程,在这个过程中是灵活的把数组打碎后放到键中,然后又建立起一个数组回填到数据区域中。在代码中把数组的前三列打碎并放到键中,这里用了array() 函数和JOIN() 函数,关于这两个函数我在《VBA代码解决方案》中有了详细的讲解,在本部书的前部分也有讲解,有不明白的朋友可以参考一下。又用了一个FOR RACH 的循环来把键提取出来,然后用Split()函数键又重新变成数组回填给工作表。

VBA是利用Office实现自己小型办公自动化的有效手段.我根据自己20多年的VBA实际利用经验,现在推出了四部VBA学习教程,也是我"积木编程"思想的具体体现。

第一:VBA代码解决方案,是VBA中各个知识点的讲解,这部教程可以覆盖绝大多数的知识点;

第二:VBA数据库解决方案,是数据处理的专业利器,详细的介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。

第三:VBA数组与字典解决方案,讲解VBA中的数组和字典的利用。字典是VBA代码水平提高的手段,值得深入的学习。

第四:VBA代码解决方案之视频,是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。

上述教程的学习顺序,1,3,2或者是4,3,2逐渐深入的了解VBA掌握VBA.目前正在集中精力写第五部教程:VBA中类的解读和利用,希望在年内能陆续在各个平台和大家见面。

利用VBA进行数据统计真的非常实用,希望大家掌握这个工具,利用这个工具,让自己轻松,高效,快乐的工作。我的"积木编程"思想也是值得大家借鉴的,这种思想让大家在代码中解脱出来,成模块的构建自己的应用,提高自己的编程效率。根据我提供的经验,利用时间多学习。

标签: #java数组分割