ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨Ì­q³æ_¼Ð¥Ü«È¤á

¦^´_ 10# °a¤ªºµ
¤µ¤Ñ¨Ï¥Î®É¥¿¦nµo²{¦³°ÝÃD,¯u¬O¤Î®É«B,·PÁ¡I

TOP

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

TOP

¦^´_ 12# ­ã´£³¡ªL

ÁÂÁ·Ǥjªº´£ÂI ³o­ÓÅÞ¿è§ó²M·¡ ¥ý¦¬¤U¤F
:)

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD