Question

在EXCEL中，如何用VB判断当某一单元格条件满足时，选定区域的所有数据向下移动一行？

从C列第一行开始遍历，遍历到C3=0时，D列E列的第三行以下数据向下移动一行。然后再遍历到C5=0时，D列E列第五行以下的数据向下移动一行。直到遍历到最后一行。求VB代码

Answer 1

就不考虑速度问题了，试试！

Sub test()
    Dim i As Long
    For i = 1 To Cells(Rows.Count, 3).End(3).Row
        If Cells(i, 3) = 0 Then Cells(i, 4).Resize(, 2).Insert Shift:=xlDown
    Next i
End Sub

hx95

Answer 2

VB我不会啊，VBA可以么？

追问

可以，只要能实现这个功能就行