[问题求助] VBS怎样批量将Excel表格有效数据区域的空白单元格填写为0？

nihaoareyou

有很多个excel文件，每个excel里面没有值的部分都是空白，现在想全部替换为0.
比如：
系数            总有效值           有效系数
2.4981                            7.19
2.5267                            5.12
2.5776                            4.35
2.571                            4.48
改为：
系数            总有效值           有效系数
2.4981                0           7.19
2.5267                0           5.12
2.5776                0           4.35
2.571                0           4.48[list=1]

pcl_test

Set fso = CreateObject("Scripting.FileSystemObject")
Set xlsApp = CreateObject("Excel.Application")
Set Folder = fso.GetFolder(".")
For Each File In Folder.Files
    If LCase(Right(File.Path, 3)) = "xls" Then
        Repxls File.Path
    End If
Next
xlsApp.Quit
msgbox "Done"

Function Repxls(file)
    Set objBook = xlsapp.Workbooks.Open(file)
    For i=1 To objBook.sheets.count
        If objBook.sheets(i).UsedRange.count > 1 Then
            For Each cell In objBook.sheets(i).UsedRange
                  If cell.value = "" Then cell.value = 0
            Next
        End If
    Next
    objBook.Save
    objBook.Close
    Set objBook=Nothing
End Function
复制代码