使用VBA 实现文本内数据替换

雷沛qaz

quqiyuan 发表于 2024-7-27 17:19
参与一下，供参考。。。

这个里边数字变了，内容也只剩下数字了，不过还是感谢

雷沛qaz

ykcbf1100 发表于 2024-7-27 21:02
参与一下。。。

您这个里边数字变了，内容也只剩下数字了，能完善一下吗，内容保留，只 修改数字，感谢

quqiyuan

雷沛qaz 发表于 2024-7-30 11:24
这个里边数字变了，内容也只剩下数字了，不过还是感谢

你里面也没有需要修改的数字啊，不太懂你的意思，是不是83行或者96行前面的空格改成你需要的数字，后面的文字不变？

雷沛qaz

quqiyuan 发表于 2024-7-30 12:37
你里面也没有需要修改的数字啊，不太懂你的意思，是不是83行或者96行前面的空格改成你需要的数字，后面的 ...

件附件图片上写的需求，内容件附件，谢谢

quqiyuan

参与一下，仅供参考，请留意，我写的这个是83行和96行跟你表格的数字同时相同才更换

quqiyuan

代码如下。。。
Sub test()
    Application.ScreenUpdating = False
    Set ws = ThisWorkbook.Sheets(1)
    arr = ws.Range("b3:c" & ws.Cells(Rows.Count, 3).End(3).Row)
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.b5r")
    Do While f <> ""
        With Workbooks.Open(p & f, 0).Sheets(1)
            For i = 1 To UBound(arr)
                If InStr(.[a83], arr(i, 1)) And InStr(.[a96], arr(i, 2)) Then
                    .[a83] = Replace(.[a83].Value, arr(i, 1), 4444.4)
                    .[a96] = Replace(.[a96].Value, arr(i, 2), 4444.4)
                    Exit For
                End If
            Next
            .Parent.Close 1
        End With
        f = Dir
    Loop
    Beep
    Application.ScreenUpdating = True
End Sub

雷沛qaz

quqiyuan 发表于 2024-7-30 16:28
代码如下。。。
Sub test()
    Application.ScreenUpdating = False

4444.4是一个假设值，实际每个文件83行96行改的数据不一样，不过还是感谢！

雷沛qaz

gwjkkkkk 发表于 2024-7-27 16:34
Option Explicit
Sub test()
    Dim ar, br, cr, i&, j&, strTxt$, strFileName$, strPath$

您好，要是需要一次更换5行数据，现有更换2行基础上，能帮忙完善下代码吗，感谢

gwjkkkkk

雷沛qaz 发表于 2024-8-2 14:53
您好，要是需要一次更换5行数据，现有更换2行基础上，能帮忙完善下代码吗，感谢

再上传一个附件，具体是哪几行？

雷沛qaz

gwjkkkkk 发表于 2024-8-2 18:55
再上传一个附件，具体是哪几行？

见附件，感谢