搜索
写经验 领红包
 > 教育

怎么把数组里的每一项拿出来(如何分割数组)

导语:将数组数据拆分后再合并,作为字典的键,实现多条件数据汇总

大家好,我们今天继续讲解VBA数组与字典解决方案,今日的内容是第43讲,将数组数据拆分后合并,作为字典的键,实现多条件的数据汇总。在进入字典的讲解后,我给大家讲各种实际情况中利用字典的解决方案,让大家逐渐了解到字典的用处,并学会利用字典来解决实际问题。

今日我们要解决的实际问题是,如何把多个数据放在键中,然后在分解开,在之前的讲解中,我讲过两个条件放到键中,今日来讲解多个条件的情况,我们看下面的数据:

我们要把上述数据中A.B.C三列的数据作为合并汇总的基准,这个代码如何写呢?下面看我给出代码:

Sub mynzsz_43() '第43讲 将数组的拆分后合并作为字典的键,实现多条件的数据汇总

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

代码截图;

代码讲解:

1 上述代码实现了多列条件下数据的汇总求和的过程,在这个过程中是灵活的把数组打碎后放到键中,然后又建立起一个数组回填到数据区域中。

2 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

上述代码把数组的前三列打碎并放到键中,这里用了array() 函数和JOIN() 函数,关于这两个函数我在《VBA代码解决方案》中有了详细的讲解,在本部书的前部分也有讲解,有不明白的朋友可以参考一下。

3 For Each key In mydic.Keys

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

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

i = i + 1

Next

此处用了一个FOR RACH 的循环来把键提取出来,然后用Split()函数键又重新变成数组回填给工作表。

下面我们看代码的运行:

今日内容回向:

1 如何将多列数据放到键中?

2 如何把键转换为数组回填到工作表中?

本文内容由快快网络小熊整理编辑!