求助excel函数大牛帮忙解决

wwbest8311

日期	时间
2015/2/26	8:52:42
2015/2/26	5:36:11
2015/2/27	8:55:21
2015/2/28	8:57:35
2015/2/28	5:34:57
2015/3/4	9:01:15
2015/3/4	5:33:02
2015/3/5	9:05:44
2015/3/5	5:34:37
2015/3/6	9:07:09
2015/3/9	8:56:23
2015/3/9	5:34:12
2015/3/10	8:48:13
2015/3/11	8:58:32
2015/3/11	9:01:07
2015/3/11	5:34:29
2015/3/16	8:58:57
2015/3/17	8:58:01
2015/3/17	5:34:11

   
求教怎么将同一日期的不同时间显示在同一行？如下这样

2015/2/26	8:52:42	5:36:11
2015/2/27	8:55:21
2015/2/28	8:57:35	5:34:57

````````

交叉点

示例.rar (29.54 KB, 下载次数: 16)

2015-3-28 01:23 上传

点击文件名下载附件

wshcw

1. =IF(AND(COUNTIF($D$1:D1,$A$1:$A$20)),"",INDEX(A:A,MATCH(,COUNTIF($D$1:D1,$A$1:$A$20),)))
   
2. =IF(COLUMN(A:A)>COUNTIF($A$2:$A$20,$D2),"",INDEX($B:$B,SMALL(IF($A$2:$A$20=$D2,ROW($2:$20),21),COLUMN(A:A))))
   

复制代码

wswfzwswfz

发了N次都发不出去，咋有开始卡了

透视刷的

wwbest8311

wshcw 发表于 2015-3-28 01:29

您好，谢谢您的热心解答，不过我根据您的公式，我把前面又加了姓名一项就又不会写了，excel水平太差，见谅哈，我把案例表法您一下，您能不能再帮我写一下，谢谢了

zongyj

1. Option Explicit
   
2. 
   
3. Sub zh()
   
4. Dim d As New Dictionary
   
5. Dim arr, brr, i, m, n
   
6. arr = Sheet1.Range("a2:b20")
   
7. For i = 1 To UBound(arr)
   
8. If Not d.Exists(arr(i, 1)) Then
   
9. d.Add arr(i, 1), arr(i, 2)
   
10. Else
    
11. Debug.Print d(arr(i, 1))
    
12. d(arr(i, 1)) = d(arr(i, 1)) & ";" & (arr(i, 2))
    
13. Debug.Print d(arr(i, 1))
    
14. End If
    
15. Next
    
16. For i = 0 To d.Count - 1
    
17. brr = Split(d.Items(i), ";")
    
18. Sheet1.Range("i" & i + 1) = d.Keys(i)
    
19. Sheet1.Range("j" & i + 1).Resize(1, UBound(brr) + 1) = brr
    
20. Next
    
21. End Sub

复制代码

zongyj

看看是否这样！1

zongyj

上传附件！！

袁勇

wwbest8311 发表于 2015-3-28 10:35
您好，谢谢您的热心解答，不过我根据您的公式，我把前面又加了姓名一项就又不会写了，excel水平太差，见谅 ...

案例.zip (11 KB, 下载次数: 13)

2015-3-28 13:18 上传

点击文件名下载附件

wwbest8311

感谢前辈的热心解答，问题已经解决了，各位大牛实在是太厉害了，佩服的五体投地呀