[算表] 這個函數如何寫程巨集 OR VBA ??

[a777starmy (7星)]

也就是B18、C18、D18、E18
希望數字的部份變成「變數」

for 的話怎麼跑???

==================================
Sub Macro12()
'
    Range("B18").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]=R2C1,R2C2,"""")"
    Range("C18").Select
    ActiveSheet.Paste
    Range("D18").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-3]=R2C1,R2C4,"""")"
    Range("E18").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-4]=R2C1,R2C5,"""")"
    Range("E19").Select
End Sub
==================================

thx
※ 編輯: a777starmy      來自: 210.209.136.4        (12/18 23:55)