返回列表 上一主題 發帖

[發問] 又黎VLOOKUP 開題

回復 7# yowhome

直接寫入公式計算
  1. Sub ex()
  2. With Sheet2
  3.   With .Range(.[A2], .[D2].End(xlDown).Offset(, -3))
  4.   .FormulaR1C1 = "=VLOOKUP(RC[3],Sheet1!R2C1:R65536C3,2,0)"  '寫入公式
  5.   .Value = .Value  '寫入值
  6.    End With
  7. End With
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 改變自己是自救,影響別人是救人。
返回列表 上一主題