- ©«¤l
- 471
- ¥DÃD
- 121
- ºëµØ
- 0
- ¿n¤À
- 579
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- OFFICE2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-4-16
- ³Ì«áµn¿ý
- 2023-1-17
|
ª©¤j ¤£¦n·N«ä,
쥻¤W¤èªºµ{¦¡½X¬O¤@¦¸¥upºâ¤@ºØ¤H¼Æ,¦pªGn²Îp8ºØ¤£¦P±ø¥óªº¤H¼Æ
´N¥²¶·°µ8ºØµ{¦¡
¹Á¸Õ§ï¦¨¥H¤UÅý¥L¨Ì§Ç¤@ª½²Îp¤U¥h
¦ý¦b FOR EACH³o¦æ·|¹J¨ì°}¦Cªø«×Âê©w,¤£ª¾«ç»ò§â¥¦°µ²M°£
¬d¸ê®Æ»¡ ¶i¤J°j°é«á´N·|Âê¦í ¥u¯àŪ¨úµLªk¼g¤J,
- Sub ²Îp¤H¼Æ()
- Dim A, xD, t$(1), n&(1), i
- Set xD = CreateObject("Scripting.Dictionary")
- For i = 3 To Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
- t(0) = Mid(Range("B" & i), 1, 2)
- t(1) = Mid(Range("B" & i), 3, 1)
- For Each A In Range([¤u§@ªí1!C2], [¤u§@ªí1!C1].Cells(Rows.Count, 1).End(xlUp)(3)).Value
- If A = "0" Or xD(A) = 1 Then GoTo 101
- If InStr(A, t(0)) Then
- If InStr(A, t(1)) Then n(1) = n(1) + 1 Else n(0) = n(0) + 1
- End If
- xD(A) = 1
- 101: Next
- Range("C" & i) = n(0)
- Range("D" & i) = n(1)
- Next
- End Sub
½Æ»s¥N½X
¦^´_ starry1314
...
ã´£³¡ªL µoªí©ó 2015-11-10 16:33 |
|