반응형

Sub insertTempCells()

    Dim i As Long, n As Long

    n = Val(InputBox("How many rows insert?", "Number"))

        If n <= 0 Then Exit Sub

    For i = 1 To n

        Dim lastRow As Long, lastCol As Long

        ActiveSheet.UsedRange.Select

        lastRow = Selection.End(xlDown).Row

        

        Range("A" & lastRow & ":AH" & lastRow).Copy

        Cells(lastRow + 1, 1).Select

        ActiveSheet.Paste

        

    Next

End Sub


컬럼사이즈는 어떻게 잡아서 어떻게 처리해야될지 몰라서 일단 하드코딩으로 처리......


엑셀 VB Macro 를 사용해서 마지막행을 찾아서 그 행의 내용은 바로 아래 복사하는데,

몇번 복사할지까지 물어봐서 처리하는 구문인데, 좀 더 폭넓게 사용하기 위해 더 많은 수정이 있어야 겠다 ㅠ


아오 매크로 어렵네

반응형

+ Recent posts