[已解决]根据相同日期查找引用相对应数据

dt7155 · 发表于 2015-4-17 20:33

最佳答案

tgydslr

2015-4-17 21:49

本帖最后由 tgydslr 于 2015-4-17 21:50 编辑

如下图，A3=IFERROR(INDIRECT(INDEX({"故障统计!","维护统计!"},INT(SMALL(IF(INT(N(INDIRECT({"故障统计","维护统计"}&"!B"&ROW($2:$99))))=$A$1,{1,2}*100+ROW($2:$99)),ROW(A1))%))&"r"&MOD(SMALL(IF(INT(N(INDIRECT({"故障统计","维护统计"}&"!B"&ROW($2:$99))))=$A$1,{1,2}*100+ROW($2:$99)),ROW(A1)),100)&"c"&COLUMN(),),"")三键横拉下拉 QQ截图20150417214701.png

设定b:c列单元格格式"e-m-d h:mm"

跳转到最佳答案楼层

橘子红 · 发表于 2015-4-17 20:54

Sub x()
Dim ar, br, x%, cr(1 To 65000, 1 To 7), r%, l%
ar = Sheets("故障统计").Range("a1").CurrentRegion
br = Sheets("维护统计").Range("a1").CurrentRegion
For x = 2 To UBound(ar)
If CDate(Format(ar(x, 2), "yyyy/m/d")) = [a1] Then
r = r + 1
For l = 1 To 7
cr(r, l) = ar(x, l)
Next
End If
Next
For x = 2 To UBound(br)
If CDate(Format(br(x, 2), "yyyy/m/d")) = [a1] Then
r = r + 1
For l = 1 To 7
cr(r, l) = br(x, l)
Next
End If
Next
Range("a3:g65000") = ""
Range("a3").Resize(r, 7) = cr
MsgBox "汇总完毕"
End Sub

复制代码

dt7155 · 发表于 2015-4-17 21:01

额，，，好强。。。没用过宏~~~谢谢
麻烦有没有函数公式的呀，，

橘子红 · 发表于 2015-4-17 21:12

函数,估计得借助辅助列.
2楼代码优化下

Sub x()
Dim ar, br, x%, cr(1 To 65000, 1 To 7), r%, l%,s%
For s = 1 To 2
ar = Sheets(s).Range("a1").CurrentRegion
For x = 2 To UBound(ar)
If CDate(Format(ar(x, 2), "yyyy/m/d")) = [a1] Then
r = r + 1
For l = 1 To 7
cr(r, l) = ar(x, l)
Next
End If
Next
Next
Range("a3:g65000") = ""
Range("a3").Resize(r, 7) = cr
MsgBox "汇总完毕"
End Sub

复制代码

dt7155 · 发表于 2015-4-17 21:14

恩，谢谢

tgydslr · 发表于 2015-4-17 21:49

这个最佳答案由 tgydslr 给出，感谢 tgydslr 的回答。

单击隐藏图章

本帖最后由 tgydslr 于 2015-4-17 21:50 编辑

如下图，A3=IFERROR(INDIRECT(INDEX({"故障统计!","维护统计!"},INT(SMALL(IF(INT(N(INDIRECT({"故障统计","维护统计"}&"!B"&ROW($2:$99))))=$A$1,{1,2}*100+ROW($2:$99)),ROW(A1))%))&"r"&MOD(SMALL(IF(INT(N(INDIRECT({"故障统计","维护统计"}&"!B"&ROW($2:$99))))=$A$1,{1,2}*100+ROW($2:$99)),ROW(A1)),100)&"c"&COLUMN(),),"")三键横拉下拉 QQ截图20150417214701.png

设定b:c列单元格格式"e-m-d h:mm"

tgydslr · 发表于 2015-4-17 21:53

本帖最后由 tgydslr 于 2015-4-17 21:57 编辑

如果不想设定格式（常规)的话外套text
==TEXT(IFERROR(INDIRECT(INDEX({"故障统计!","维护统计!"},INT(SMALL(IF(INT(N(INDIRECT({"故障统计","维护统计"}&"!B"&ROW($2:$99))))=$A$1,{1,2}*100+ROW($2:$99)),ROW(A1))%))&"r"&MOD(SMALL(IF(INT(N(INDIRECT({"故障统计","维护统计"}&"!B"&ROW($2:$99))))=$A$1,{1,2}*100+ROW($2:$99)),ROW(A1)),100)&"c"&COLUMN(),),""),IF(OR(COLUMN()={2,3}),"e-m-d h:mm","0.##;0;0;@"))

dt7155 · 发表于 2015-4-17 21:55

额。我晕，更加复杂。。。。谢谢了！~这么辛苦……

tgydslr · 发表于 2015-4-17 21:58

1111.rar (22.3 KB, 下载次数: 15)

tgydslr · 发表于 2015-4-17 21:59

dt7155 发表于 2015-4-17 21:55
额。我晕，更加复杂。。。。谢谢了！~这么辛苦……

工作表名称是数字的话会好办些

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