批量修改数据_Excel应用实践02：批量修改多个工作簿文件中同一位置的数据

学习Excel技术，关注微信公众号：

excelperfect

最近，有位朋友咨询：

“有很多Excel文件是从软件中直接生成的，有些数据**.**KN是软件自动填写上去的，但是因为数据单位的问题，每次都需要将其手动更改为***.*KN。一般来说，都是几十个这样的文件，手动修改的工作量很大，所以想请教一下，看有没有简便的方法。”

他给的工作簿中，要修改两个位置的数据，分别为单元格G27和G54，其格式都是**.**KN，将其修改为***.*KN。如下图1所示。

图1

使用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 &"\"

  &n