Excel宏应用：空值替换为0

昨天从下午折腾到晚上10点半，终于见识了什么叫 Excel的宏，咳，可怜我VB一点不会，宏命令更是从来没写过，被个Excel折磨的这叫一个惨哦！
话说回来，Excel 的功能还是很强大地，还是很好用地！为了我的数据核对时能方便一点（先把数据导到excel然后再用自定义函数检查，唉，没办法的办法啊），我决定跟 Excel vba对抗到底！
把我折腾了一个晚上的代码贴上来记录一下——当然不全是我折腾的，BF为了段破玩意儿还是出了很大力的：

Sub 空值替换为0()
'
' 空值替换为0 Macro
' 宏由 wy 录制，时间: 2009-4-13
'
' 快捷键: Ctrl+d
'
Dim lastRow As Long
Dim nowRow As Long
Dim lastColumn As Long
Dim nowColumn As Long
Dim r As Long
Dim c As Long


Dim nowWorksheet As Integer

' 准确返回当前工作表已经使用的最后一行的行号, ActiveSheet.UsedRange.Row 这句返回的是已经使用区域中第一行的行号, activesheet.UsedRange.Rows.Count 返回的是当前工作表已经使用区域的行数
lastRow = ActiveSheet.UsedRange.row - 1 + ActiveSheet.UsedRange.Rows.Count
nowRow = ActiveSheet.UsedRange.row
lastColumn = ActiveSheet.UsedRange.column - 1 + ActiveSheet.UsedRange.Columns.Count
nowColumn = ActiveSheet.UsedRange.column

For r = nowRow To lastRow
    For c = nowColumn To lastColumn
      If Len(Trim(ActiveSheet.Cells(r, c).Value)) = 0 Then
        ActiveSheet.Cells(r, c).Value = 0
      End If
    Next c
Next r

End Sub