루프의 유형 불일치 (오류 13)

Question

라인 4가 유형 불일치로 루프를 망치고 있습니다! 내가 도대체 ​​뭘 잘못하고있는 겁니까?

For i = 4 To 8 
    j = 20 + i 
    Col = Columns(j) 
    Range("'" & Col & "3'").FormulaR1C1 = "=IF(RC[-11]=0,0,(IF(SUMIF(R3C2:R" & lRow & "C2, RC2,R3C" & i & ":R" & lRow & "C" & i & ")>RC[-11]*1000000, SUMIF(R3C2:R" & lRow1 & "C2, RC2,R3C" & i & ":R" & lRow & "C" & i & ")- RC[-11]*1000000,0)))" 
Next i 

Answer 1

이 시도 :

For i = 4 To 8 
    Cells(3, 20 + i).FormulaR1C1 = "=IF(RC[-11]=0,0,(IF(SUMIF(R3C2:R" & lRow & "C2, RC2,R3C" & i & ":R" & lRow & "C" & i & ")>RC[-11]*1000000, SUMIF(R3C2:R" & lRow1 & "C2, RC2,R3C" & i & ":R" & lRow & "C" & i & ")- RC[-11]*1000000,0)))" 
Next i 

활성 통합 문서의 활성 워크 시트를 참조 할 가정합니다 자신의 엑셀 Cells 또는 Range를 사용하여. 코드를 실행할 워크 북/워크 시트를 정확히 지정하는 것이 좋습니다. 예 :

For i = 4 To 8 
    ThisWorkbook.Worksheets("Sheet1").Cells(3, 20 + i).FormulaR1C1 = "=IF(RC[-11]=0,0,(IF(SUMIF(R3C2:R" & lRow & "C2, RC2,R3C" & i & ":R" & lRow & "C" & i & ")>RC[-11]*1000000, SUMIF(R3C2:R" & lRow1 & "C2, RC2,R3C" & i & ":R" & lRow & "C" & i & ")- RC[-11]*1000000,0)))" 
Next i 

Answer 2

많은 오류가 있습니다.

먼저 col은 (범위 주소) 문자열이 아닌 열입니다. 열을 문자열에 연결할 수 없습니다.

두 번째로 범위 주소를 작은 따옴표로 묶지 마십시오 ('). 첫 번째 셀로 전환 (하지 xlR1C1 스타일 XLA1 스타일) 및 수식을 넣을 5 개 세포는 무엇

Cells(3, j).Formula = ...