创buildVBA代码来引用单元格文本并创build一个dynamic的查找和replace
我使用多个excel电子表格，每月需要更新月末财务结算。 我需要更改对外部工作簿的引用，以便从当前月份文件中提取数据。
例如改变
“C：\桌面\文件夹\六月”
至
“C：\桌面\文件夹\七月”
我希望能够在工作表中input特定单元格的两个月，然后运行一个VBA脚本来自动更新整个工作簿中的引用。 我可以为查找和replacefunctionlogging一个“macros”，但我无法弄清楚如何将“查找”和“replace”variables指向我存储月份值的特定单元格。
这是我现在执行查找和replace的代码：
ActiveCell.Replace What:="Jun", Replacement:="Jul", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False 用单元格引用replace“Jun”和“Jul”的文本string。 为此，可以使用Range("A1") 。 当然，你会把实际的范围。
ActiveCell.Replace What:=Range("A1"), Replacement:=Range("B1"),LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False`
你应该做的是给那些单元格名称，然后你可以引用单元格
Range("find1").Select ActiveCell.FormulaR1C1 = "July" Range("find2").Select ActiveCell.FormulaR1C1 = "July"