自動填入公式

rcaa1234

小弟目前更在整理一些表格
之前都是vba直接套好帶值進去
但新的報表較複雜，常常變動
所以希望帶進去的是公式，保留未來的調整空間

舉例

        If Sheet2.Cells(i, 1) = Sheet1.Cells(ii, 1) Then
            Sheet2.Cells(i, x + 2) = Sheet1.Cells(ii - 1, x + 39)
        End If

這樣帶出來的是值
現在希望帶出來的是 =Sheet1!Z10 這樣之類的
請問要怎麼寫呢

麻煩高手指點一下，感激不盡
謝謝各位