Sub 宏3()
'
' 宏3 宏
'

'
    ActiveCell.FormulaR1C1 = _
        "=CORREL(20Induatrials
'!RC[-2]:R[204]C[-2],RC[-2]:R[204]C[-2])"
End Sub

那如果是这种公式里的的可以改吗？

a=Worksheets(1).Name
ActiveCell.FormulaR1C1 = _
        "=CORREL(" & a & _
"'" & "!RC[-2]:R[204]C[-2],RC[-2]:R[204]C[-2])"
实际上先求出第1个工作表的名称到一个变量中，然后将变量中的内容当字符串来合成公式，公式一经合成，将只能引用该名称了。由于单元格公式没有用索引号引用工作表的功能，所以只能这样间接完成。

我直接复制粘贴怎么不太对。。

你的填写公式得基本代码能通过吗，请先不用工作表名调试填写公式的代码成功后，然后再加入工作表名调试，然后再用变量调试