如何用VB对多个EXCEL表格中的数值进行修改操作

同一个文件夹下有很多个EXCEL表格,要对其中的某几项进行相同的修改操作,例如第三行第五列的值统一改为“xxxx”... 同一个文件夹下有很多个EXCEL表格,要对其中的某几项进行相同的修改操作,例如第三行第五列的值统一改为“xxxx” 展开
 我来答
匿名用户
2013-07-20
展开全部
确保这个文件夹只有这些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
cells(3,5) = "xxxx"
activeworkbook.save
Activeworkbook.Close
End If
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub

粗体部分照猫画虎,然后在此界面直接按F5运行此宏,完成操作。
匿名用户
2013-07-20
展开全部
这个需要复制的
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式