☰

使用宏插入“n”个空白行

tag-icon • tag-icon microsoft-excel-2010 vba
使用宏插入“n”个空白行

我目前正在尝试开发一个 Excel 电子表格，以便更容易格式化。我想做的是创建一个宏，在多个位置插入空白行，而不会影响后续行。我对编码有点熟悉。我的伪代码如下：

cell a1 = n
if(n>1, insert 'n' rows in row 10, insert '0' rows)
if(n>1, insert 'n' rows in row 20. insert '0' rows)
etc.

可能存在已存在的宏或函数，但我不确定。如果没有可用的宏，我想知道如何创建一个。

谢谢

答案1

类似这样的方法就可以了

Sub test()
Dim n As Integer
n = Cells(1, 1)
    If n >= 1 Then
        Rows("10:" & 10 + n).Insert shift:=xlDown
        Rows("20:" & 20 + n).Insert shift:=xlDown
    End If
End Sub

你也可以这样做 -

Sub test()
Dim n As Integer
n = Cells(1, 1)
    If n >= 1 Then
        For i = 1 To n
        Rows(10).Insert shift:=xlDown
        Rows(20).Insert shift:=xlDown
        Next
    End If
End Sub

相关内容