做了一个EXCEL宏，请帮助看看，谢谢

ly

yanwei82123300 发表于 2016-5-6 15:03
请大家看看例子，绿色的部分想设置成“000”三位，谢谢

Sub FormatRng()
ActiveSheet.Range("B2", Cells(Rows.Count, 2).End(xlUp)).NumberFormat = "000"
End Sub

ly

yanwei82123300 发表于 2016-5-7 07:51
谢谢，大家的帮助！但是数据导入到access中还是不准确不是000三位的！在EXCEL中显示是三位，但是excel中显 ...

在excel中，可以用文本格式来表示，但一定不是数值了

1. Sub FormatRng()
   
2. ActiveSheet.Range("B2", Cells(Rows.Count, 2).End(xlUp)).Select
   
3.         For Each cell In Selection.Cells
   
4.             cell.Value = Format(cell, "'000")
   
5.         Next
   
6. End Sub

复制代码