- 帖子
- 19
- 主題
- 5
- 精華
- 0
- 積分
- 29
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- 2010
- 閱讀權限
- 10
- 註冊時間
- 2011-10-31
- 最後登錄
- 2014-11-13
|
2#
發表於 2011-12-9 17:40
| 只看該作者
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
寫出來了 分享一下 |
|
