셀 범위에 수식을 설정합니다.

셀 범위에 수식을 설정합니다.

이것은 내가 하고 싶은 것에 대한 간단한 데모입니다.셀 범위에 공식을 설정하려고 합니다(예:C1에서 C10까지).

Range("C1").Formula = "=A1+B1"

동적 셀을 사용하여 공식을 만드는 방법은 다음과 같습니다.

Range("C1:C10").Formula = "=Ax+Bx"

그래서 실제로는 이렇습니다.

C1 = A1 + B1
C2 = A2 + B2
C3 = A3 + B3
C4 = A4 + B4
C5 = A5 + B5
...
C10 = A10 + B10

위의 공식을 작동하도록 이 공식의 RHS를 변경하는 방법을 설명합니다.Range("C1:C10").Formula = "=Ax+Bx"

Range("C1:C10").Formula = "=A1+B1"

그렇게 간단해요.

공식을 사용하여 범위를 자동 채웁니다(FillDown).

저는 이것이 가장 간단한 대답이라고 생각합니다: 두 줄이고 매우 이해하기 쉽기 때문입니다.셀에 작성된 공식을 셀 범위 전체에 걸쳐 끄는 기능을 에뮬레이트합니다.

Range("C1").Formula = "=A1+B1"
Range("C1:C10").FillDown

나는 C1의 공식을 업데이트 할 것입니다.그런 다음 C1에서 공식을 복사하여 C10까지 붙여넣습니다.

더 우아한 솔루션에 대해 확신이 없습니다.

Range("C1").Formula = "=A1+B1"
Range("C1").Copy
Range("C1:C10").Pastespecial(XlPasteall)

공식 R1C1을 사용합니다.

Cells((1,3),(10,3)).FormulaR1C1 = "=RC[-2]+RC[-1]"

Formula와 달리 FormulaR1C1에는 상대 참조가 있습니다.

이것을 사용하세요.

            Sub calc()


            Range("C1:C10").FormulaR1C1 = "=(R10C1+R10C2)"


            End Sub

언급URL : https://stackoverflow.com/questions/15522538/set-formula-to-a-range-of-cells 입니다.