- ©«¤l
- 19
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 29
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-10-31
- ³Ì«áµn¿ý
- 2014-11-13
|
Sub Macro3()
Dim b As String
For i = 2 To 204
b = 0
a = 7 - Len(Cells(i, 1))
If a > 0 Then
For k = 1 To a - 1
b = b & "0"
Next
Cells(i, 10) = "LTRIM(publn_nr) = '" & b & Cells(i, 1) & "' or "
End If
Next
End Sub
¼g¥X¨Ó¤F ¤À¨É¤@¤U |
|