求助excel怎样利用vba添加行、加边框

我现在有一个像下图那样的表格，然后希望通过添加一个文本框、一个按钮，在文本框输入要插入的行数后，按下按钮就会在表格后面自动添加相应数量的行，并且新添加的行也要像上面一样有... 我现在有一个像下图那样的表格，然后希望通过添加一个文本框、一个按钮，在文本框输入要插入的行数后，按下按钮就会在表格后面自动添加相应数量的行，并且新添加的行也要像上面一样有边框，同时在A列自动填充序号。请问代码应该怎么写？谢谢~~~ 展开

 我来答

1个回答

#热议# 空调使用不当可能引发哪些疾病？

绿水青山20198
2012-07-28 · TA获得超过500个赞

知道小有建树答主

回答量：668

采纳率：100%

帮助的人：312万

我也去答题访问个人页

关注

展开全部

Sub 边框()
Range("a1").BorderAround ColorIndex:=3, Weight:=xlThin '红色、细线
End Sub

追问

您的答案好像不符合我的提问。。。

追答

Private Sub CommandButton1_Click()
Dim I, L,J, M
Set SH1 = Sheet1
On Error GoTo QQ
M = InputBox("输入行数！")
If M = "" Then Exit Sub
    With SH1
        L = .[A1000].End(xlUp).Row
        For I = 1 To M
            .Cells(I + L, 1) = .Cells(L, 1) + I
            For J = 1 To 5
                .Cells(I + L, J).BorderAround ColorIndex:=3, Weight:=xlThin '红色、细线
            Next
        Next
    End With
QQ:
End Sub