Question

2019excel。怎么用VBA代码，批量编辑修改文件？

2019excel。怎么用VBA代码，批量编辑修改文件
例如有三个文件夹，每个文件夹下有10个excel文件，需要修改表格的数值（单元格匹配）正常等于1.异常等于2.类推

Answer 1

Excel怎样快速批量将相同表式多文件数据修改

Answer 2

Option Explicit
Sub test() '新建工作簿，与文件夹一起放在同一目录下
Dim p$, fd, f$, sh As Worksheet
Application.ScreenUpdating = False
For Each fd In CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).SubFolders
p = fd & "\"
f = Dir(p & "*.xls*")
Do While f <> ""
If f <> ThisWorkbook.Name Then
With Workbooks.Open(p & f, 0)
For Each sh In .Worksheets
sh.Cells.Replace "正常", "1", xlWhole
sh.Cells.Replace "异常", "2", xlWhole
Next
.Close 1
End With
End If
f = Dir
Loop
Next
Application.ScreenUpdating = True
End Sub

追问

这个代码没反应。。。。。

追答

我在EH中见了附件，已答