多对多数据如何引用？

yvhusrwg414

1、左边是需要的结果数据，每户６个年度，右边是辅助数据，每户有１－３个不等的孩子信息。

２、需要将右边孩子的信息依次添加到左边每户的信息里面。当然最好是从每户的第一个年度添加，有几个添加几个年度的，无就空着。（如果不能依次添加，只要将每户的孩子信息添加到户主下面的空格中也行）。

mmlzh

数组公式
C2=INDEX(G:G,SMALL(IF(MATCH($G$2:$G$25,$G$2:$G$25,)=ROW($1:$24),ROW($2:$25)),INT(ROW(6:6)/6)))

E2=2014+MOD(ROW(6:6),6)
A2=IF(COUNTIF($C$1:$C1,$C2)<COUNTIF($G:$G,$C2),INDEX(I:I,MATCH($C2,$G:$G,)+COUNTIF($C$1:$C1,$C2)),"")

jenaszhang

学习中

山菊花

VBA方法，供参考。

yvhusrwg414

mmlzh 发表于 2020-3-8 19:40
数组公式
C2=INDEX(G:G,SMALL(IF(MATCH($G$2:$G$25,$G$2:$G$25,)=ROW($1:$24),ROW($2:$25)),INT(ROW(6:6)/ ...

感谢你的帮助，正是想的结果。学习学习。

yvhusrwg414

山菊花 发表于 2020-3-8 20:05
VBA方法，供参考。

感谢版主的方法，对这一万多个数据的处理速度挺好的。还得好好学习一下数组的应用。数组对我来说有点摸不着北。

山菊花

yvhusrwg414 发表于 2020-3-8 21:54
感谢版主的方法，对这一万多个数据的处理速度挺好的。还得好好学习一下数组的应用。数组对我来说有点摸不 ...

觉得数组好就把它学到手。
数组包括一维数组、二维数组、三维数组等等，其中二维数据跟工作表挺像的，一张工作表有固定的行数、列数，可以用Cells(行、列）引用每一个单元格，这数组就是一张灵活的工作表，可以自定义它的行数与列数，同样可以用Arr(行、列）引用每一个元素。
数组真的挺好，喜欢就用吧，用多了就熟悉了。

yvhusrwg414

山菊花 发表于 2020-3-8 22:06
觉得数组好就把它学到手。
数组包括一维数组、二维数组、三维数组等等，其中二维数据跟工作表挺像的，一 ...

真的感谢版主的鼓厉，数组的功能看着确实挺厉害的。还有就是挺灵活的。在定义时就可以指定范围。
ReDim Brr(1 To nRow * 6, 1 To 5)这能看懂。下面这两个看不懂，能否解说一下，特别是Rang括号里面的意思
Arr = Range("g1:j" & nRow + 1).Value
Range("a2:e" & m + 1).Value = Brr，这个&后面的是不是直接跟在J后面的.如果 nRow + 1=338那就是rang(g1:j338).value

蓝色冰焰33

学习

山菊花

yvhusrwg414 发表于 2020-3-8 22:24
真的感谢版主的鼓厉，数组的功能看着确实挺厉害的。还有就是挺灵活的。在定义时就可以指定范围。
ReD ...

理解正确。&叫连接符。
Range("g1:j338")是一单元格区域，把数据存储到数组Arr：
Arr = Range("g1:j338").Value
Arr(1,1)对应的位置就是Range("g1")
Arr(2,1)对应的位置就是Range("g2")
……
经过计算，最后把数据保存到单元格：
Range("a2:e" & m + 1).Value = Brr
按F8逐行运行程序，点击“视图——本地窗口”，打开本地窗口，可看到变量值的变化情况，能帮助自己更好理解数组的作用：