excel如何用宏实现:满足条件(An+1>An)插入3行

用宏实现如图1到如图2的效果,即当下一列的值大于上一列,则插入3行。
2026年09月23日 15:11
有1个网友回答
网友(1):

sub a()
for i=[a65536].end(3).row to 2 step -1
     if range("A"&i)>range("A"&i-1) then 
        for j=1 to 3
             rows(i).insert
        next j
    end if
next i
end sub