[已解决]添加数据的VBA代码

安全网

怎样给A3：A65536列的单元格内的数据如果不够六位，设置怎样的VBA可以立即在前面添加0或者后面添加Z。

最佳答案

月排行榜 / 总排行榜

七彩屋

2016-5-7 10:21

1. Sub qcw()
   
2. Application.ScreenUpdating = False
   
3. Dim r, i, m
   
4. r = Range("a65536").End(xlUp).Row
   
5. For i = 3 To r
   
6. If Len(Cells(i, 1)) <= 5 Then
   
7. If Right(Cells(i, 1), 1) <> "z" Then
   
8. m = 5 - Len(Cells(i, 1))
   
9. Cells(i, 1) = String(m, "0") & Cells(i, 1) & "z"
   
10. Else
    
11. m = 6 - Len(Cells(i, 1))
    
12. Cells(i, 1) = String(m, "0") & Cells(i, 1)
    
13. End If
    
14. End If
    
15. Next
    
16. Application.ScreenUpdating = True
    
17. End Sub

复制代码

跳转到最佳答案楼层

七彩屋

那是要在前面加还是在后面加？
判断字数可以用Len函数

安全网

七彩屋 发表于 2016-5-6 13:29
那是要在前面加还是在后面加？
判断字数可以用Len函数

先在后面加，加了还是不够位就在前面加0

七彩屋

加了0还不够6位的如何操作？

安全网

七彩屋 发表于 2016-5-6 16:48
加了0还不够6位的如何操作？

继续加零

七彩屋

1. Sub qcw()
   
2. Application.ScreenUpdating = False
   
3. Dim r, i, m
   
4. r = Range("a65536").End(xlUp).Row
   
5. For i = 3 To r
   
6. If Len(Cells(i, 1)) <= 5 Then
   
7. m = 5 - Len(Cells(i, 1))
   
8. Cells(i, 1) = String(m, "0") & Cells(i, 1) & "z"
   
9. End If
   
10. Next
    
11. Application.ScreenUpdating = True
    
12. End Sub

复制代码

安全网

七彩屋 发表于 2016-5-6 17:43

如果后面已经有了Z，还是会自动加Z，能否识别有就不加

七彩屋

1. Sub qcw()
   
2. Application.ScreenUpdating = False
   
3. Dim r, i, m
   
4. r = Range("a65536").End(xlUp).Row
   
5. For i = 3 To r
   
6. If Len(Cells(i, 1)) <= 5 Then
   
7. If Right(Cells(i, 1), 1) <> "z" Then
   
8. m = 5 - Len(Cells(i, 1))
   
9. Cells(i, 1) = String(m, "0") & Cells(i, 1) & "z"
   
10. Else
    
11. m = 6 - Len(Cells(i, 1))
    
12. Cells(i, 1) = String(m, "0") & Cells(i, 1)
    
13. End If
    
14. End If
    
15. Next
    
16. Application.ScreenUpdating = True
    
17. End Sub

复制代码