Question

Excel中，如何用vba解决如下问题

将Excel表格按照g列向下插入空白行，值为2向下插入一个空白行，为4则向下插入3个空白行，如图，g列空值不管，大神有解决的办法吗？

Answer 1

Sub kkk()
dim i%
For i = Range("g65536").End(xlUp).Row To 2 Step -1
If IsNumeric(Cells(i, "g")) And Cells(i, "g") > 1 Then
Rows(i + 1 & ":" & i + Cells(i, "g") - 1).Insert
End If
Next
End Sub

追问

感谢😊

Answer 2

Sub test()
for each cl in columns("g")
if cl.vaue=2 then cl.entirecolumns.insert
if cl.value=4 then cl.entirecolumns.insert 3
End sub

追答

在End sub前再插一行：Next

追问

请问出现运行错误438，对象不支持属性或方法是怎么回事啊

追答

这个可以了
Sub test()
On Error Resume Next
For a = [g65536].End(xlUp).Row To 1 Step -1
If Cells(a, 7) = 2 Then Rows(a + 1).Insert
If Cells(a, 7) = 4 Then Rows(a + 1 & ":" & a + 5).Insert
Next
End Sub