- ©«¤l
- 2831
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2887
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-4
|
Sub TEST()
Dim Arr, i&, T$, N&
Arr = Range([e1], [c65536].End(xlUp)) '¥HCÄæÀˬd³Ì«á¤@µ§
T = [a1] 'A1¦WºÙ¤å¦r
For i = 2 To UBound(Arr)
If Arr(i, 3) Like "[A-z]*#*" Then N = N + 1 'EÄæ±a¦³[^¤å+¼Æ¦r], ²Ö¥[1
Arr(i - 1, 1) = T & IIf(N > 1, N, "") '¦WºÙ+§Ç¸¹(N>=2)
Next i
[B2].Resize(UBound(Arr) - 1) = Arr
End Sub |
|