用excel2013能运行，excel2019就不行，哪里出的错误

幻影之谷

Option Explicit
Function ZDZ() As Variant   '返回前一个工作表当前单元内容
Application.Volatile True  '自定义函数自动刷新
Dim cc As String, y As String, z As String
cc = ActiveSheet.Index    '当前工作表序号
y = Application.Evaluate("Address(Row(), Column()+2, 1, 1)")    '当前地址

ZDZ = ThisWorkbook.Sheets(cc - 1).Range(y).Value    '前一个工作表右二单元内容
End Function

582766

y = Application.Evaluate("Address(Row(), Column()+2, 1, 1)")    '当前地址

幻影之谷

582766 发表于 2022-11-22 22:06
y = Application.Evaluate("Address(Row(), Column()+2, 1, 1)")    '当前地址

求教一下这个怎么改才对

幻影之谷

有大神指教一下么

lele6809

y = Application.Evaluate("Address(Row(), Column()+ 2, 1, 1)")

幻影之谷

lele6809 发表于 2022-11-23 12:01
y = Application.Evaluate("Address(Row(), Column()+ 2, 1, 1)")

带入还是不太行吖，调试的时候还是显示错误