VBA遍历指定单元格区域修改跨工作表引用列的方法求助

原代码错误分析 #

你的代码报错主要有两个原因：

1. 错误操作了单元格的Value属性：C.Value返回的是公式计算后的结果，不是公式本身，所以InStr(C.Value, "!")找不到"!"符号，会返回0，执行Left(C.Value, 0-1)就会触发参数无效的错误。
2. 拼接RC[-3]的逻辑错误：这是相对引用写法，会让单元格引用向左偏移3列（正好是你现在要替换的CO列），和你要向右改到CR列的需求完全相反，而且相对引用会随单元格位置变化，不符合固定引用对应行CR列的要求。

最优实现方法（推荐） #

直接对指定区域的公式进行文本替换，把CO列标换成CR，代码简洁高效：

Dim targetRng As Range
Set targetRng = Range("CR7,CR9:CR24,CR28:CR39,CR45:CR50,CR52")
' 替换公式中的CO为CR，精准匹配列标
targetRng.Replace What:="CO", Replacement:="CR", LookAt:=xlPart, MatchCase:=True

这个方法不需要循环，Excel内置的Replace方法会自动处理区域内所有单元格，直接把='Trend'!CO7这类公式改成='Trend'!CR7，完全符合你的需求。

循环处理的修正方案（适合复杂逻辑场景） #

如果你需要更灵活的逻辑控制，也可以循环修改每个单元格的公式：

Dim cell As Range
For Each cell In Range("CR7,CR9:CR24,CR28:CR39,CR45:CR50,CR52")
    ' 操作Formula属性获取公式文本，替换列标
    cell.Formula = Replace(cell.Formula, "CO", "CR")
Next cell

这里改用cell.Formula获取公式本身，再通过Replace函数替换列标，避免了原代码的错误。

内容的提问来源于stack exchange，提问作者sakinney03