在VBA中逐行運行

我需要創建一個代碼插入公式以在行中添加一些單元格，並在將值傳遞添加到所選列的下一行之後。預先感謝您的幫助。在VBA中逐行運行

For cont = 1 To 125 
    Range("BA1").Select 

    Cells(cont, 53).Value = Range("BA2").Select 
    ActiveCell.FormulaR1C1 = _ 
    "=RC[-1]+RC[-2]+RC[-3]+RC[-4]+RC[-5]+RC[-6]+RC[-7]+RC[-8]+RC[-9]+RC[-10]+RC[-11]+RC[-12]+RC[-13]+RC[-14]+RC[-15]+RC[-16]+RC[-17]+RC[-18]+RC[-19]+RC[-20]+RC[-21]+RC[-22]+RC[-23]+RC[-24]+RC[-25]+RC[-26]+RC[-28]+RC[-30]+RC[-32]+RC[-34]+RC[-36]+RC[-38]+RC[-39]+RC[-40]+RC[-41]+RC[-42]" 


    Next cont

來源

2017-08-01 WillGreco

爲什麼要爲此使用VBA？ –

@ScottCraner好，請以「答案」 –

@ShaiRado恭喜擊中20k！ –

需要任何循環，只是使用這一行;

Range("BA2:BA125").FormulaR1C1 = "=SUM(RC[-42]:RC[-1])"

來源

2017-08-01 14:14:00

在VBA中逐行運行

回答

相關問題