excel中在符合判断条件的行前插入新一行的代码是什么？

来源：百度知道 编辑：UC知道 时间：2024/05/16 08:38:27
假如excel中输入了序号为1～100的五行，我想在某符合“序号”条件的行前插入新的一行，应该怎样编写代码。
例如我设定条件为 if （“序号”＝5） ，如果成立，系统就在序号为5的一行前插入新的一行内容，不满足条件就不加入。
谢谢，紧急！

你是想要快速插入操作还是想要VBA代码
快速操作用排序的方法
VBA代码为
for i=1 to 最后一行
if 条件 then
Rows(i & ":" & i).Insert Shift:=xlDown
end if
next

插入行,原来的数据所在行发生了变化.
正序循环是会出问题的

Sub test()
Dim J As Integer, I As Integer

I = Application.WorksheetFunction.CountA(colmuns(1))
For J = I To 1 Step -1
If Cells(I, 1) Mod 5 = 0 Then
Rows(I).Insert
End If
Next
End Sub