☰

새 행을 삽입하고 수식으로 자동 완성

tag-icon • tag-icon microsoft-excel vba
새 행을 삽입하고 수식으로 자동 완성

특정 조건이 충족되면 새 행을 삽입하려고 합니다. 마지막 행의 수식을 삽입된 행으로 드래그하고 싶지만 그렇게 하면 오류가 발생합니다. 아래는 내 코드입니다.

  For i = 1 To diff
    MsgBox ("Difference is " & diff)

    With Sheet5.Rows(ModelLastRow.Row + 1)
       .Insert Shift:=xlDown
    End With

    insertRowRange = "C" & CStr((ModelLastRow.Row))

    pasteRowRange = "C" & CStr((ModelLastRow.Row + 1))
    Range("insertRowRange").AutoFill Destination:=Range("pasteRowRange")
  Next

답변1

단일 셀을 한 행씩 아래로 복사하려고 하는 것 같습니다. "ModelLastRow"가 복사하려는 단일 셀이라고 가정하겠습니다. 루프의 모든 단계에서 ModelLastRow를 하나씩 아래로 오프셋하여 다른 행을 복사했습니다.

 Dim ModelNextRow As Range
 MsgBox ("Difference is " & diff)
 For i = 1 To diff

     Set ModelNextRow = Union(ModelLastRow, ModelLastRow.Offset(1, 0))
     ModelLastRow.AutoFill Destination:=ModelNextRow, Type:=xlFillDefault

     Set ModelLastRow = ModelLastRow.Offset(1, 0)
   Next

 End Sub

이것이 당신에게 도움이 되기를 바랍니다. 행운을 빕니다!

관련 정보