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

[µo°Ý] ¥h°£¬y¤ô¸¹

¦^´_ 1# PJChen

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, i&, n
Arr = Range([c1], [c65536].End(3))
For i = 2 To UBound(Arr)
    If UCase(Left(Arr(i, 1), 1)) = "C" Then n = 1: GoTo 99
    Arr(i, 1) = Mid(Arr(i, 1), Len(n) + 1): n = n + 1
99: Next
Range("c1").Resize(UBound(Arr)) = Arr
End Sub

TOP

¦^´_ 3# PJChen


½Ð°Ý     If UCase(Left(Arr(i, 1), 1)) = "C" Then n = 1: GoTo 99
1) ­n¦p¦ó§ï¬°°»´ú²Ä¤@­Ó¦r¬O"¤å¦r",
     ¦]¬°­q³æ¸¹½X,¦³®É¤£¬OC¶}ÀY
>>If Len(Arr(i, 1)) < 8 Then n = 1: GoTo 99

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD