excel vba当数据等于20时在它下方插入一行，并在插入的行里粘贴指定的行内容

满意答案

大于20 就在等于20的行下插入？只有一个行等于20吗？如果有多个行等于20 或者大于20又该如何？复制16行，是否要考虑插入新行后原来的16行会下移？

• 追问： 错了是a列中有数据=20如果有多个全部插入

• 追答：代码考虑了等于20的单元格可能在要复制的行的前面行或者后面行。

• Sub MyFunction()

• Dim I As Long, N As Long,R As Long

• R = 16 '要复制的行

• Do Until I = Range("A65536").End(xlUp).Row

• I = I + 1

• If Range("A" & I).Text = 20 Then

• If I < 16 Then R = R + 1 '如果等于20的行在要复制的行的前面，那将要复制的行号加1，否则不用加1，因为在下面的话插入行后要复制的行号不会改变。

• Rows(I + 1).Insert

• Rows(R).Copy Rows(I + 1)

• End If Loop

• End Sub