excel批量修改多个工作簿文件中同一位置的数据
发布时间：2022-06-02 10:51:08
最近，有位朋友咨询：“有很多Excel文件是从软件中直接生成的，有些数据**.**KN是软件自动填写上去的，但是因为数据单位的问题，每次都需要将其手动更改为***.*KN。一般来说，都是几十个这样的文件，手动修改的工作量很大，所以想请教一下，看有没有简便的方法。”
他给的工作簿中，要修改两个位置的数据，分别为单元格G27和G54，其格式都是**.**KN，将其修改为***.*KN。如下所示。
使用VBA可以完成上述任务。代码如下：
Sub DatasArrange()
Dim strPath As String
Dim strName As String
Dim Wb As Workbook
Dim rng1 As Range
Dim rng2 As Range
‘获取文件夹路径和工作簿
strPath = ThisWorkbook.Path &”\”
strName = Dir(strPath &”*.xls*”)
On Error Resume Next
Application.ScreenUpdating = False
‘遍历文件夹中的工作簿
‘代码所在的工作簿除外
Do While strName <> “”
If strName <> ThisWorkbook.NameThen
Set Wb = Workbooks.Open(strPath& strName)
‘要修改的单元格
‘可根据实际调整
Set rng1 = Range(“G27”)
Set rng2 = Range(“G54″)
‘传递到修改值的子过程
ModifyDatas rng1, rng2
‘关闭并保存工作簿
Wb.Close True
End If
‘获取下一个工作簿
strName = Dir
Loop
Application.ScreenUpdating = True
End Sub
‘修改所接收的单元格中的值
Sub ModifyDatas(rng1 As Range,rng2 As Range)
On Error Resume Next
‘加一个判断条件,防止每运行一次就更改单元格值
If Mid(rng1, Len(rng1) – 3, 1) <>”.” Then
rng1.Value = Left(rng1.Value,Len(rng1.Value) – 2) * 1 & “KN”
End If
If Mid(rng2, Len(rng2) – 3, 1) <>”.” Then
rng2.Value = Left(rng2.Value,Len(rng2.Value) – 2) * 1 & “KN”
End If
End Sub
DatasArrange过程遍历工作簿所在文件夹中除本工作簿以外的所有工作簿，将工作簿中当前工作表单元格G27和G54中的值进行修改，关闭并保存修改后的工作簿。
运行DatasArrange过程，批量修改文件夹中的工作簿，达到所示的效果。
代码图片版如下：
0
投稿猜你喜欢
大家虽然提前体验win10手机新版功能，但由于是早期技术预览版，对第三方应用游戏不兼容出现了，这可怎么办好呢？今天小编就为大家带了win10- 很多用户在使用电脑打字时候会发现输入法打不出来汉字，这时很多用户就会着急不知道该怎么解决，其实该问题解决方法有很多种，下面一起来看看小编为你
- 大家在使用office2010制作Excel表格的时候不知道office2010Excel表格怎么制作回归直线，其实方法很简单哦，只要打开o
- 在高校中，运用PPT 课件的多媒体教学已经成为一种非常重要的课堂教学活动形式。本文对基于基本输入设备的PPT 控制系统在教学运用中存在的主要
- uc浏览器是一款非常不的浏览器，uc浏览器有一个无痕浏览功能，使用此功能浏览网页不会留下任何痕迹，但是很多用户不知道怎么操作，下面教大家使用
- Win10有哪些模式？相信很多使用Win10系统的用户都对Win10的几个特殊模式十分好奇，对此今天小编就为大家介绍Win10的五种模式及其
- 小编所用的Win7电脑中近来突然出现了一个奇怪的现象，那就是桌面右下角的扬声器无法正常打开，甚至连音量也不能进行调整了。那么，Win7系统右
- 金舟截图软件是一款很优秀的截图软件，支持多种形式的截图功能，以及支持导出多种图片格式，是办公人员截图的好帮手，它也可以进行图像合并，浏览更方
- 如何解决Excel2013中灰色实线框影响打印范围？有时候我们使用Excel2013的网上模板进行表格制作时，可能会遇到表格中出现一个不是网
- 我们都知道win10有个功能是按下键盘上的win+v组合键，这是打开系统中的剪贴板查看剪贴板历史记录，保存多个项目剪贴板已被备稍候使用，查看
- 最近一些win0的用户反馈说每次开机都会弹出msn网址导航；不知道该怎么办？下面小编就为大家带来Win10系统每次开机都会弹出msn网址导航
- 我们在使用win10系统电脑的时候，有些情况下可能需要找到我们的网络适配器进行相关的设置，但是有的小伙伴在设备管理器中并没有找到。对于这种问
- 6款城市夜景高级效果lr预设带给大家，城市夜景lr预设可以使您的夜间图像脱颖而出,在夜间图像所有照片上创建令人惊叹的效果，喜欢的朋友欢迎下载
- 我们知道有时候如果我们粘贴了别的地方的文字到自己的文档里来，就会发生格式错乱的现象，那么我们可以通过清除格式的方式来解决这一问题，具体做法就
- 我们日常使用的电脑啊和手机之类的电子产品，平时都是需要用到CPU来进行操作的，但是很多的用户们不清楚，在使用CPU的时候，到底哪种CPU最好
- 流量精灵是一款网络推广软件，看名字我们就可以猜到这款软件的用途，主要是面对网站站长、博客主等各类网络用户来提升每日的访问量，那么流量精灵这款
- 如何使用熊猫动态壁纸设置微信主题?想要给使用熊猫动态壁纸app给微信换一个主题，但是不知道具体怎么操作。下面就是使用熊猫动态壁纸设置微信主题
- Excel中经常需要使用到日期公式，日期公式具体该如何使用呢?下面是由小编分享的excel使用日期公式的方法，欢迎大家来到学习。excel表
- 开发工具在Office软件中是非常实用的，用得好可以制作出很多不一样的样式，本期Word小编与大家分享有关的Word开发工具用法。一、开发工
- 说到Excel表格，相信小伙伴们都不会觉得名声，我们在日常进行办公时，经常都会需要使用到Excel表格这款专业的数据处理软件。比如，我们可以
