- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 278
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-25
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-3-13 00:13 ½s¿è
¦^´_ 7# XDshining
D2°}¦C¤½¦¡
=IF(ROW(A1)>SUM(1/COUNTIF($A$2:$A$9,$A$2:$A$9)),"",INDEX($A:$A,MIN(IF(ISERROR(MATCH($A$2:$A$9,$D$1:D1,0)),ROW($A$2:$A$9),"")),))
¦V¤U½Æ»s
E1°}¦C¤½¦¡
=IF(COLUMN(A$1)>SUM(1/COUNTIF($B$2:$B$9,$B$2:$B$9)),"",INDEX($B:$B,MIN(IF(ISERROR(MATCH($B$2:$B$9,$D$1:D$1,0)),ROW($B$2:$B$9),""))))
¦V¥k½Æ»s
E2=(SUMPRODUCT(($A$2:$A$9&$B$2:$B$9=$D2&E$1)*1)>0)*1
¦V¥k¦V¤U½Æ»s
VBA- Sub ex()
- Set d = CreateObject("Scripting.Dictionary")
- Set d1 = CreateObject("Scripting.Dictionary")
- Set d3 = CreateObject("Scripting.Dictionary")
- For Each a In Range([A2], [A65536].End(3))
- d(a & a.Offset(, 1)) = a & a.Offset(, 1)
- d1(a & "") = ""
- d3(a.Offset(, 1) & "") = ""
- Next
- [d2].Resize(d1.Count, 1).Value = Application.Transpose(d1.keys)
- [E1].Resize(, d3.Count) = d3.keys
- For i = 2 To d1.Count + 1
- For j = 5 To d3.Count + 4
- Cells(i, j) = d.exists(Cells(i, 4) & Cells(1, j)) * (-1)
- Next
- Next
- End Sub
½Æ»s¥N½X |
|