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

发布网友

我来回答

共2个回答

热心网友

公式解决不了这种问题。用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

热心网友

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