求助因数量巨大，将左侧数据变成右侧的，谢谢！

renliweihao · 发表于 2016-4-16 11:34

ykqrs · 发表于 2016-4-16 13:21

Sub qq()
Dim d As Object, m%, n%, j%
Dim d1 As Object
Dim r%, i%
Dim arr, brr
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
r = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("a1:d" & r)
ReDim brr(1 To UBound(arr), 1 To 20)
For j = 2 To UBound(arr)
If Not d1.Exists(arr(j, 4)) Then
m = m + 1
d1(arr(j, 4)) = m
End If
If Not d.Exists(arr(j, 2)) Then
n = n + 1
d(arr(j, 2)) = n
brr(n + 1, 1) = arr(j, 2)
End If
brr(d(arr(j, 2)) + 1, d1(arr(j, 4)) + 1) = arr(j, 3)
Next
brr(1, 1) = "户主姓名"
For i = 2 To m + 1
brr(1, i) = d1.keys()(i - 2)
Next
Columns("f:m").Clear
[f4:l4].Resize(n + 1) = brr
End Sub

复制代码

ykqrs · 发表于 2016-4-16 13:23

写的很啰嗦，附件供参考

工作簿1.rar (17.24 KB, 下载次数: 146)

renliweihao · 发表于 2016-4-19 09:15

非常感谢！

miyawei0629 · 发表于 2016-9-13 21:59

加了个辅助列，用vlookup函数查找

zhu0.703 · 发表于 2016-9-28 15:07

应该可以了吧，已经在里面了

ghdp0328 · 发表于 2016-10-12 16:47

先在 F5 输入公式 =IFERROR(INDIRECT("b"&SMALL(IF(($D:$D)="本人",ROW($D:$D)),ROW(A1))),"") 三键后下拉，然后在 G5 输入公式 =IFERROR(INDIRECT("c"&SMALL(IF(($B:$B)&($D:$D)=$F5&G$4,ROW($C:$C)),1)),"") 三键后右拉至 L5 ，最后选择 G5:L5 下拉即可。
虽然结果对了，但是感觉计算量很大，应该可以再精炼的，希望高手继续。

excelspss1 · 发表于 2016-10-18 14:55

=TEXT(IFERROR(INDEX($C:$C,SMALL(IF(($B:$B=$F5)*($D:$D=G$4),ROW($D:$D),4^8),1),0),""),"0;-0;;@")我的思路是首先找到满足条件的情况，首先找到满足条件的情况，户主等于户主，妻子等于妻子，然后返回满足条件的行号，然后使用index函数返回条件，但是有一个弊端，就是如果有两个儿子的话就不能满足了。就是里面的条件要满足唯一性

薄荷香茗 · 发表于 2016-10-19 22:35

天哪，你们太厉害了

123456789123123 · 发表于 2016-10-21 11:45

不知道有没有大神能看见
楼主我来借个楼
小弟这遇到一个问题，望大神们移步来看一看，谢谢！谢谢！
一个关于EXCEL数据统计的问题
http://club.excelhome.net/thread-1307130-1-1.html
(出处: ExcelHome技术论坛)

		自动登录	找回密码
密码			免费注册