Sub OpenCloseArray()        Dim MyFile As String        Dim Arr(100) As String        Dim count As Integer        MyFile = Dir("F:\Desktop\98、99年\" & "*.xls")  '修改文件夹路径        count = count + 1        Arr(count) = MyFile                  Do While MyFile <> ""            MyFile = Dir            If MyFile = "" Then                Exit Do            End If            count = count + 1            Arr(count) = MyFile         '将文件的名字存在数组中        Loop                  For i = 1 To count            Workbooks.Open Filename:="F:\Desktop\98、99年\" & Arr(i)  '循环打开Excel文件                '编辑范围                        Dim allRow As Integer                allRow = Cells(Rows.count, 1).End(xlUp).Row                                For j = 2 To allRow                    Cells(j, 1) = Cells(j, 1) / 1000                Next                         '编辑范围                        ActiveWorkbook.Close savechanges:=True       '关闭打开的文件，并保存        Next    End Sub

发现在 2010 上面测试有问题，没办法保存，但是在 2007 上是可以的！

对于需要批量改变的内容直接写在编辑范围内就可以了！