- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-10-22 20:05 ½s¿è
¦^´_ 1# ¤Ú§J´µ - Sub Test()
- Dim ar, d, i As Long, s
-
- Set d = CreateObject("scripting.dictionary")
- With Sheets(1)
- With .Range(.[A2], .[A2].End(xlDown)).Resize(, 2)
- ar = .Value
- For i = 1 To UBound(ar)
- d.RemoveAll
- For Each s In Split(ar(i, 1), ",")
- d(s) = ""
- Next
- ar(i, 1) = Join(d.keys, ",")
- ar(i, 2) = d.Count
- Next
- .Offset(, 2).Value = ar
- End With
- End With
- End Sub
½Æ»s¥N½X |
|