VBA如何在指定元素下向下插入一整行空白

YUzero2020

就是我想指定这一列中出现1，定点单元格“1”向下插入一行或者3行，可以操作吗

3822

Sub 查询()

Dim i As Integer, n As Integer
n = Range("a1").Cells(Rows.Count).End(xlUp).Row

For i = 2 To n
    If Cells(i, 1).Value = 1 Then
    Cells(i + 1, 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End If

Next

End Sub

二维马

Sub dd()

arr = [a1].CurrentRegion

For i = UBound(arr) To 1 Step -1

    If arr(i, 1) = "1" Then
   

    Rows(i + 1).Resize(3).Insert
    End If
Next


End Sub

gwjkkkkk

Sub test()
    Dim ar
    ar = [A1].CurrentRegion
    For i = UBound(ar) - 1 To 2 Step -1
        If ar(i, 1) = 1 Then
             Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next i
End Sub

gwjkkkkk

请参考附件。。。

sxbjzjf110

参与一下。。。。。。

杨建营

参与一下，可以指定添加行数，也可以指定单元格个数。