특정영역 수식 붙여넣기 또는 자동 채우기..

1. 수식이 있는 셀을 복사하여 해당 데이터베이스의 마지막 줄까지 붙여넣기..

    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]/1000"
    Range("i2").Select
    Selection.Copy
' 아래 코드에서 Sheets("매출표")는 ActiveSheet로 대체할 수 있다.
' 또, Range("B65536") 부분은 데이터베이스의 크기를 대표할 수 있는 컬럼의 알파벳을 적어주면 된다.
' 즉.. 데이터 베이스가 A부터 시작한다면 Range("A65536") 도 무방.
    Range("i3:i" & Sheets("매출표").Range("B65536").End(xlUp).Row).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False


2. 수식이 있는 셀을 선택하고 데이터베이스의 마지막 셀가지 선택하여 자동채우는 방법..

    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]/1000"
    Range("i2").Select
    Selection.AutoFill Destination:=Range("i2:i" & ActiveSheet.Range("B65536").End(xlUp).Row), Type:=xlFillDefault

'    참고) i2값이 수식이 아니고 숫자일 경우, 일련번호로 채워넣는 옵션..
    Selection.AutoFill Destination:=Range("i2:i" & ActiveSheet.Range("B65536").End(xlUp).Row), Type:=xlFillSeries