如果在Microsoft Excel 工作表中自动添加行数

发布网友发布时间：2022-03-16 10:34

共2个回答

热心网友时间：2022-03-16 12:04

公式解决不了这种问题。用VBA可以实现，但问题是vba一般需要针对你的具体内容写。

Sub 加行()

    FLS = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row      '本程序所在工作表F列最后一个非空单元格行号。



    For x = FLS To 2 Step -1

        fdyg = ActiveSheet.Cells(x, 6)

        gs = Split(fdyg, "*")(UBound(Split(fdyg, "*")))

        gs = IIf(IsNumeric(gs), gs, 0)

        tjgs = gs - 1

        If tjgs >= 1 Then

            Rows(x & ":" & x).Select
            Application.CutCopyMode = False
            Selection.Copy
            Rows(x + 1 & ":" & x + tjgs).Select
            Selection.Insert Shift:=xlDown

        End If

    Next x

End Sub

热心网友时间：2022-03-16 13:22

手动插入行不行？先插入几行再复制。