2个回答
2013-06-03
展开全部
用宏可以解决的。
将这些工作簿放到一个文件夹(只有这些Excel文件,且若打开某一文件,数据就能看见——即不用点其他sheet),建一新Excel,也存到该文件夹。仅打开该新Excel,同时按Alt+F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
range("B5") = 20
ActiveWindow.Close 1
Match = Dir$
End If
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub
其中,粗体部分的意思是将单元格B5的值修改为20,如果是将A8改为 上海,将其改为Range("A8") ="上海"
注意都是英文符号。
然后在此界面下直接按F5运行此宏,很快完成。
将这些工作簿放到一个文件夹(只有这些Excel文件,且若打开某一文件,数据就能看见——即不用点其他sheet),建一新Excel,也存到该文件夹。仅打开该新Excel,同时按Alt+F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
range("B5") = 20
ActiveWindow.Close 1
Match = Dir$
End If
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub
其中,粗体部分的意思是将单元格B5的值修改为20,如果是将A8改为 上海,将其改为Range("A8") ="上海"
注意都是英文符号。
然后在此界面下直接按F5运行此宏,很快完成。
2013-06-03
展开全部
多个工作薄好像不行吧?同一个工作薄多个工作表,相同格式的可以编辑
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询