本示例将每个“SIN”三角函数都替换为“COS”函数。替换所进行的区域为工作表 Sheet1 中的 A 列。

ThisWorkbook.Worksheets("Sheet1").Range("A:A").Replace _

    What:="SIN", Replacement:="COS", _

    SearchOrder:=etByColumns, MatchCase:=True