从单元格值中查找和替换

编程问答 2022-04-30

问题描述

我是宏和编码的新手，我研究过在 vba 中查找和替换，但对我要实现的目标没有运气

我正在尝试创建一个宏来替换公式添加的工作表范围

公式是

'=sum (1:5'!a1)

我试图用“8:12”替换“1:5”，但我希望宏从单元格值中读取“1:5”和“8:12”

这是宏记录器生成的代码：

'
' Macro4 Macro
'

'
    Range("AE1").Select
    Selection.copy
    Range("AE2").Select
    Application.CutcopyMode = False
    Selection.copy
        Cells.Replace What:="1:5",Replacement:="8:12",LookAt:=xlPart,_
        SearchOrder:=xlByRows,MatchCase:=False,SearchFormat:=False,_
        ReplaceFormat:=False
End Sub

我尝试将 ae1 和 ae2 存储为这样的字符串：

'
' Macro3 Macro
    Dim strfval As String
    Dim strsval As String
    
    strfval = Audi_VW.Range("AE1").Value
    strsval = Audi_VW.Range("AE2").Value
        Cells.Replace What:=strfval,Replacement:=strsval,_
        ReplaceFormat:=False

但是什么都没发生

提前致谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

cellcellcellfindreplacereplacereplacestringstringsumsum