¦U¦ì¤jô¦n
¤p§Ì³Ìªñoffice2010§@¤@Óvb¦boffice2000°õ¦æ·|¥X¿ù¡A¥H¤U¬O§Úªº¤º®e
§Úª¾¹D¦³ª©¥»°ÝÃD¦ý¬O¦]¬°¤£ª¾¦boffice2000n¦p¦ó³B²z¡C
Sub chkno()
'
'
Dim myrow As Long
Dim myrange As Range
Dim i As Integer
myrow = Range("a1").End(xlDown).Row
For i = 2 To myrow
Set myrange = Cells(i, 4)
If myrange.Value >= 1 Then
Cells(i, 5).Value = _
Cells(i, 3) & String(4 - Len(myrange), "0") & myrange
End If
Next
End Sub |