发布网友
共2个回答
热心网友
用vba实现
从下面行开始循环插入行,并填充A1
for i=[A65536].END(XLUP).ROW
if cells(i,1)="Z0" then
Rows(i).Insert
cells(i,1)="A1"
end if
NEXT
热心网友
查找^pZ0,替换为^pA1^pZ0。^p是换段标记。