UC知道VB代码麻烦高手看看，谢谢！
来源：百度知道 编辑：UC知道 时间：2024/06/07 21:01:46
VB代码麻烦高手看看
悬赏分：0 - 离问题结束还有 14 天 22 小时
Private Sub CommandButton1_Click()
Dim i, j, r
For i = 2 To 9275
j = Sheet1.Range("D" & Trim(Str(i))).Value
If Len(j) = 1 Then
r = "0" & j
Sheet1.Range("D" & Trim(Str(i))).Value = r
End If
Next
End Sub
运行的得到的结果都是“0j”
麻烦高手看看错在什么地方 ！
悬赏分：0 - 离问题结束还有 14 天 22 小时
Private Sub CommandButton1_Click()
Dim i, j, r
For i = 2 To 9275
j = Sheet1.Range("D" & Trim(Str(i))).Value
If Len(j) = 1 Then
r = "0" & j
Sheet1.Range("D" & Trim(Str(i))).Value = r
End If
Next
End Sub
运行的得到的结果都是“0j”
麻烦高手看看错在什么地方 ！
我试过了，不是0j啊。。。
正常情况下单元格的格式为数字输入01会自动化为1滤掉那个0，所以我改了一下，我这边运行没问题的。。。
Dim i, j, r
For i = 2 To 9275
j = Sheet1.Range("D" & i).Value
'MsgBox j
If Len(j) = 1 Then
r = "'0" & j
'Sheet1.Range("D" & i).NumberFormatLocal = "@"
Sheet1.Range("D" & i).Value = r
End If
Next