Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

R1C1 Style

Sub R1C1Style()     FinalRow = cells(Rows.count, 2).End(xlUp).row     range("D4:D" & FinalRow).FormulaR1C1 = "=RC[-1]*RC[-2]"     range("F4:F" & FinalRow).FormulaR1C1 = "=IF(RC[-1],ROUND(RC[-2]*R1C2,2),0)"     range("G4:G" & FinalRow).FormulaR1C1 = "=+RC[-1]+RC[-3]"     cells(FinalRow + 1, 1).value = "Total"     cells(FinalRow + 1, 6).Formula = "=SUM(G4:G" & FinalRow & ")" End Sub