Function kbyy(a) "跨表引用.工作表序號差值,行號,列號

Application.Volatile

If a = 0 Then "迴圈引用

kbyy = "引數錯誤"

GoTo js

End If

x = Application.ThisCell.Worksheet.Index + a "公式所在工作表的序號

If b = 0 Then "所在單元格的行號

b = Application.ThisCell.Row

End If

If c = 0 Then

c = Application.ThisCell.Column

End If

kbyy = Worksheets(x).Cells(b, c).Value

js:

End Function

一般用法:

=kbyy(-1)

返回值:對上一張工作表相同位置的引用.

引用物件:

文字的,返回文字

數字的,返回數字

空值,返回0