指定"公式"變成值

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2018-1-23 15:13 | 顯示全部帖子

試試看

Option Explicit
Sub Ex()
With Sheets("SHEET2")
With .Range(.Range("B4"), .Range("B4").End(xlDown)).Offset(, 1)
.FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC2,Sheet2!R1C8:R4C9,2,0)),0,VLOOKUP(RC2,Sheet2!R[-3]C[5]:RC[6],2,0))"
.Value = .Value
End With
End With
End Sub

複製代碼

回復 3# jsc0518

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。