[µo°Ý] Ãö©ó²Ä2¦ì¤¸«D¼Æ¦r«h¦Û°Ê¸É1­Ó0

starry1314

¦p¦ó§ï¼g¦¨²Ä2¦ì¤¸«D¼Æ¦r«h©¹¥ª¸É0¨Ã©óMÄæÂл\¶ñ¤W

¥H¤U¬°¤£¨¬7¦ì¤¸«h¦Û°Ê©¹¥ª§â0¸Éº¡
Sub yy()

For i = 2 To 20
If Range("M" & i) <> Len("00000") Then  '
A = Range("M" & i)
MsgBox String(7 - Len(A), "0") & A
Else

End If
Next
End Sub

­ã´£³¡ªL

¦^´_ 1# starry1314


½ÐÁ|¥X´X­Ó¤£¦Pª¬ªp¹ê¨Ò¤Î§Æ±æªºµ²ªG¡I
³Ì¦n¤WªþÀÉ¡I

starry1314

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

¤U¸ü (17.55 KB)

2015-9-8 11:29

¨ú±o½s¸¹¥N½X.rar (6.99 KB)

¤U¸ü¦¸¼Æ: 7

2015-9-8 11:28

    ¤wªþ¤W½d¨Ò¤Î§Æ±æ¨ú±oµ²ªG,³Â·Ð¤j¤j¤F

­ã´£³¡ªL

¦^´_ 3# starry1314

­Y¥u¬O­n¨ú¥X¡e¤ë¥÷¡fªº­^¤å¥N½X
¢Ð¢±¤½¦¡¡G=MID(A3,2+COUNT(-LEFT(A3,2)),1)

³o¤½¦¡«D°}¦C¹Bºâ¡AÀ³ÁÙ¥i¥H¡A
­Y¤£·Q¯d¤Ó¦h¤½¦¡¡A¥i«O¯d¢Ð¢±¤½¦¡¡A¤U©Ô¤@®æ¡A¦A¥H¢Ð¢²¥k¤U¨¤¶Â¤Q¦r¤U¨ê¨ì©³¡AµM«á¿ï¾Ü©Ê¶K¤W¡e­È¡f¡I

©Î¥HVBA¨ê¤½¦¡¡G
Sub TEST()
Dim R&
R = Cells(Rows.Count, 1).End(xlUp).Row
If R < 3 Then Exit Sub
With Range("B3:B" & R)
¡@¡@¡@.Formula = "=MID(A3,2+COUNT(-LEFT(A3,2)),1)"
¡@¡@¡@.Value = .Value
End With
End Sub

ª`·N¡GªþÀɤ¤¢ÏÄæ¤U¤èªº»¡©ú¤å¦r­n¥ý²M°£¡A¥H§K End(xlUp).Row ¦h§ì¤F´X¦æ¡I
¡@

­ã´£³¡ªL

¦^´_ 3# starry1314

±N­ì½s¸¹¡e¤ë¥÷¡f¬°­Ó¦ì¼Æªº¥[¡e«e¾É¢¯¡f¡G
Sub TEST2()
Dim R&, Arr, i&
R = Cells(Rows.Count, 1).End(xlUp).Row
If R < 3 Then Exit Sub
With Range("A3:A" & R)
¡@¡@¡@Arr = .Cells
¡@¡@¡@For i = 1 To UBound(Arr)
¡@¡@¡@¡@¡@If Not IsNumeric(Left(Arr(i, 1), 2)) Then Arr(i, 1) = 0 & Arr(i, 1)
¡@¡@¡@Next i
¡@¡@¡@.Cells = Arr
End With
End Sub

starry1314

¦^´_ 4# ­ã´£³¡ªL
·PÁ«ü¾É~«ä¸ô¯u¦n
¹J¨ìªÅ¥Õ¦C¤]¥i¨Ï¥Î

starry1314

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


    ·Q½Ð°Ý
=MID(A3,2+COUNT(-LEFT(A3,2)),1)

LEFT(A3,2) ¦b§A´£¨Ñªº¤½¦¡¤º¬O·|±N 12­pºâ¦¨2¦ì¤¸¶Ü?
§Úª½±µ³æ¿W¦bÀx¦s®æ´ú¸Õ, A1 LEFT(A3,2)  =  12
                                              A2 COUNT(A1,1) = 1
                                             A2 COUNT(A1,1) = 0
¤£¤Ó²z¸Ñ«ç»ò­pºâªº

starry1314

¦^´_ 4# ­ã´£³¡ªL
"=MID(A3,2+COUNT(-LEFT(A3,2)),1)"
²z¸Ñ¤F~·f°t 2+ ´N¹F¦¨®ÄªG¤F
¾Ç¨ì¤@©Û·PÁÂ

­ã´£³¡ªL

¦^´_ 7# starry1314


=COUNT(-LEFT(A3,2))¡@¬O§PÂ_¡e«e¢±¦ì¡f¬O§_¬°¡e¼Æ­È¡f¡A
9A????¡@¤£¬O¡A¬°¢¯¡A¥ÎMID("9A???",2,1)
12A???¡@¬O¡A¬°¢°¡A¥ÎMID("12A???",3,1)

MID ²Ä¢±°Ñ¼Æ¡A´N¥Î 2+COUNT(-LEFT(A3,2)) ¨Ó§PÂ_¡I
¡@

starry1314

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

·PÁ«ü¾É~!!