Question

VBA 函数变量中引用单元格

下面这段代码，我想把替换的内容不用常量表示，而引用单元格a1的内容，即怎么把下面代码中a,b表示成单元格a1？
Selection.Replace What:="a", Replacement:="b", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Answer 1

楼上说得很对。还有一种方式就是用第几行第几列的方式表示：

Selection.Replace What:=Cells(1, 1), Replacement:=Cells(1, 2), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

这种方式适合在循环中批量处理多行或多列数据，因为Cells里面的数字是可以用变量的，比如Cells(i, j)

Answer 2

1. 最简洁的书写：

Selection.Replace What:=[A1], Replacement:=[B1], LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False

2. 用 Range 对象：

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

PS：

需要绝对引用的话请加上 "$" 符号，比如 [$A$1], Range("$A$1")

追问

谢谢快速响应，我已经明白了，但是还有个小问题，如果引用的是外部单元格，例如“报告.xls”的sheet名称是“数据”的单元格a1，又怎么表示

追答

如果是外部单元格，可以这样引用：

='D:\[Sample.xlsx]Sheet1'!A1

替换掉路径和工作表名即可