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

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

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

¤j¤j¦n,

ªþ¥ó¬O±qºô¸ô¤U¸üªº¸ê®Æ
CÄæ¬OBarcode,
C¶}ÀYªº¬O­q³æ¸¹½X,³o¦¸§ì¤U¨Ó¦³3±i­q³æ
¸ê®Æ·|¦Û°Ê±q¨C±i­q³æªº²Ä¤@µ§Barcode¶}©l
¦Û°Ê¦b³Ì«e­±¥[¤W¬y¤ô¸¹,¦p1,2,3...
§Ú·Q±N¬y¤ô¸¹¥h°£,µ²ªG¦pFÄæ©ÒÅã¥Ü
½Ð°Ý¦p¦ó¥ÎVBA¹F¦¨¡H

¤u§@ªí¬°Â²¤Æ¹Lªº,¦bVBA°õ¦æªº®É­Ô,
­n¯à¤£¤zÂZ¨ì¨ä¥LÀx¦s®æ¸ê®Æ(¬Y¨Ç¦³¤½¦¡)
¥u­n¯à§âCÄæÅܦ¨¦pFÄ檺­È§Y¥i

¥h°£¬y¤ô¸¹.rar (9.07 KB)

¦^´_ 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

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

·PÁ±z

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

¦^´_ 4# samwang

ÁÂÁ±z,
°õ¦æ¨S°ÝÃD¡I

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD