excel批量修改多个工作簿文件中同一位置的数据

网友投稿 1141 2022-10-18

excel批量修改多个工作簿文件中同一位置的数据

最近,有位朋友咨询:“有很多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过程,批量修改文件夹中的工作簿,达到所示的效果。

代码图片版如下:

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:加强投资项目管理
下一篇:wps2019另存为在哪?wps2019文件另存为教程
相关文章