Question

如何将同目录下所有EXCEL中同一工作表中的同一单元格的数值改成同一数字

在D盘ABC目录下有多个EXCEL文件，其中第个EXCEL工作簿中都有一个“123”的工作表，现在想把“123”这张工作表中的A1单元格的数值都改成1，如何操作方便，求大神详解！

Answer 1

在这个目录下    新建个 工作薄， Alt+F11视图 代码窗口,

如下代码复制进去 ，F5 运行 即可

Sub 遍历当前文件夹下工作薄()
  t = Timer
  Application.ScreenUpdating = False
 Dim i, r, wk As Workbook, sh As Worksheet, rr
        p = ThisWorkbook.Path & "\"
        s = Dir(p & "*.xls*")
    Do While s <> ""
          If s <> ThisWorkbook.Name Then
            Set wk = Workbooks.Open(p & s)
            Set sh = wk.Sheets("123")
     sh.[a1]=1
     wk.Close true
         End If
           s = Dir
      Loop
  t1 = Timer - t
MsgBox ("所有工作薄处理完成,用时" & t1 & "秒")
Application.ScreenUpdating = True
End Sub

Answer 2

说明：myPath值可改为实际路径。

AK.Sheets("Sheet1")引号中内容改为实际工作表名称

Sub FilesRewrite()
   Application.ScreenUpdating = False
   Dim myPath$, myFile$, AK As Workbook
   myPath = "E:\test\"
   myFile = Dir(myPath & "*.xls")
   Do While myFile <> ""
        Set AK = Workbooks.Open(myPath & myFile)
        AK.Sheets("Sheet1").Range("A1") = "1"
        Workbooks(myFile).Close True
      myFile = Dir
   Loop
   Application.ScreenUpdating = True
End Sub