文件夹里，多个工作簿的同个表格里，某一列需要将空值填0

zxc13

比如文件夹里有10个工作簿，都是需要sheet1里，将C列的2-18行里的空白格填0，用if then 好像无法对所有工作簿都进行操作..求助

3190496160

上传附件，问题是可以解决的，没有附件肯定是没法解决的

3190496160

Sub test()
Application.ScreenUpdating = False
Set obmapp = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件目录：", 0, 0) '浏览文件对话框
If obmapp Is Nothing Then MsgBox "您没有选择文件夹！": emd '
fp = obmapp.Self.Path & "\" '取得选择的文件夹的路径
f = Dir(fp & "*.xls*") '建立文件目录
Do While f <> "" ''在目录中循环
    Set wb = Workbooks.Open(fp & "\" & f) '打开文件
    With wb.Worksheets(1) '再打开文件的第一个工作表循环
        For i = 2 To 18
            If Trim(.Cells(i, 3)) = Empty Then
                .Cells(i, 3) = 0
            End If
        Next i
    End With
    wb.Close True
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

参考
批量修改.rar (10.92 KB, 下载次数: 3)

2023-3-14 09:50 上传

点击文件名下载附件

zxc13

3190496160 发表于 2023-3-14 09:51
参考

感谢感谢！想请教一下，文件目录我是把代码写哪里？

ykcbf1100

zxc13 发表于 2023-3-14 10:13
感谢感谢！想请教一下，文件目录我是把代码写哪里？

看吧，不上传附件即便别人给你写了代码你都不会用。

zxc13

调整好了，谢谢31大佬！