☰

추가 행을 추가하는 Excel VBA 코드

tag-icon • tag-icon microsoft-excel vba
추가 행을 추가하는 Excel VBA 코드

행을 추가하고 서식을 지정하기 위해 Excel에서 VBA 코드를 만들고 있습니다.

Excel 시트의 첫 번째 열에 있는 항목 수에 따라 "i"에 대한 값이 변수(표시된 것처럼 20 대신)가 필요합니다.

Sub NextLine()

'
' AddLine Macro
' Adds Line

Dim i As Integer
i = 20

    ActiveCell.Offset(1, 0).Select '1 row down
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.SmallScroll ToRight:=1
    Range("$A$1:$M$" & i).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & i

End Sub

답변1

줄을 바꾸십시오 :

i=20

와 함께:

With ActiveSheet
    i = .Cells(.Rows.Count, "A").End(xlUp).Row 
End With

A열에 데이터가 있는 행의 개수를 셉니다.

그런데 매크로를 테스트했는데 행이 추가되지 않았습니다.

관련 정보