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

roych

有个玩意儿叫usedrange.row，或者range("B1").end(xldown).row都可以判断行标（也可以改为rows来判断行数）
不过需要注意的是，这些都是读取连续单元格的。
如果是不连续单元格（即区域内有空值），应该用内置函数counta来判断，例如：application.WorksheetFunction.counta(sheet1.range("B:B"))即可统计非空行数。

roych

1. Sub getFormat()
   
2.     Dim i As Long
   
3.     Application.ScreenUpdating = False
   
4.     For i = 2 To Sheet1.Range("A1").End(xlDown).Row
   
5.         With Sheet1.Range("B" & i)
   
6.             .Interior.Color = RGB(0, 192, 0)
   
7.             .NumberFormat = "000"
   
8.         End With
   
9.     Next
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码

roych

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

那个就不是显示格式的了。前面的都是用类似于单元格格式的写法的。应该修改单元格的值才能实现。