Question

我使用多个excel电子表格，需要每月更新月末财务结算。我需要更改对外部工作簿的引用，以便从当前月份文件中提取数据。

例如更改

＆＃34; C：\桌面\文件夹\六月＆＃34;

到

＆＃34; C：\桌面\文件夹\七月＆＃34;

我希望能够将两个月输入工作表中的特定单元格，然后运行VBA脚本以自动更新整个工作簿中的引用。我可以录制一个＆＃34;宏＆＃34;对于Find＆amp;替换功能，但我无法弄清楚如何指向＆＃34;查找＆＃34;和＆＃34;替换＆＃34;我存储月份值的特定单元格的变量。

以下是我进行查找和替换的当前代码：

ActiveCell.Replace What:="Jun", Replacement:="Jul", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Answer 1

用单元格引用替换“Jun”和“Jul”的文字文本字符串。为此，您可以使用Range("A1")。当然，你会把它放在实际范围内。

ActiveCell.Replace What:=Range("A1"), Replacement:=Range("B1"),LookAt:=xlPart, _
    SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False`

Answer 2

你应该做的是给那些单元格名称然后你可以引用单元格

Range("find1").Select
ActiveCell.FormulaR1C1 = "July"
Range("find2").Select
ActiveCell.FormulaR1C1 = "July"

创建VBA代码以引用单元格文本并创建动态Find＆amp;取代

2 个答案: