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

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

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

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD