关于excel直接插入行的问题

来源：百度知道编辑：UC知道时间：2024/06/19 08:10:11

假如说列A有些单元格是空的，有的是1，我想在所有的单元格值为1的前面添加三个空行，怎么可以达到呢，好像用现有的函数做不到，VBA怎么做呢？非常感谢!

假设你的数据在A列，c为你的总行数
dim i
for i=1 to c
if cells(i,1)=1 then
cells(i,4)=cells(i,1)
cells(i,1)=""
end if
next
我觉得这样可以达到楼主想要的效果，当然也可以改用插入的VBA代码