Excel 根据列固定值，插入相应行

Question

原 excel 文件如图一，想实现根据上图‘PSC‘ 列的数值在两行之间插入9行(PSC值-1），结果如下图，请问给位大侠帮忙，有没有什么快速计较或者宏？谢谢

Answer 1

以后楼主提问的截图请把行号列标截出来，以便编写代码，以下代码以PSC这一列为第4列进行编写的，行数从第2行开始。

Sub 插入行()
'想实现根据上图‘PSC‘ 列的数值在两行之间插入9行(PSC值-1)
i = 2
Cells(i + 1, 4).Select
Do
For j = 1 To Cells(i, 4).Value - 1
Selection.Insert 3
Next j
i = i + j
j = 0
Cells(i + 1, 4).Select
Loop While Cells(i + 1, 4) <> ""
End Sub追问

 

在excel，录制宏里面按代码改的，不能保存，run出来的，在前面加了一列进去。。。。，第三行开始，固定值为第十列

本回答被提问者和网友采纳

Answer 2

这需要宏的帮忙，假设数据从第2行开始，总共300行，psc所在列是"C"
sr=2
er=300
sc="C"
for i=er to sr step -1
sv=range(sc & i).value
if IsNumeric(sv) then
for k=2 to sv
rows(i).insert(xlShiftDown)
next
end if
next