宏每隔一行添加一行

时间:2015-11-03 14:56:28

标签: excel excel-vba vba

我在Excel电子表格上运行了以下宏:

Sub yTest01()
    For i = 10 To 72 Step 2
        Cells(i, 1).EntireRow.Insert
    Next i
End Sub

每隔一行添加一个新行。但是,我想分别添加五行。我尝试了以下但是它不起作用

Sub yTest01()
    For i = 10 To 72 Step 2
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
    Next i
End Sub

任何想法我能做什么?

3 个答案:

答案 0 :(得分:2)

我的猜测是你想要一行现有数据,然后是5行空白。请尝试以下

apt-get --purge remove apache2
apt-get autoremove
rm -rf /etc/apache2/
apt-get clean
apt-get update

如果你想要的是两行数据,那么五行空行然后将步骤改为-2

添加或减去行时,最好先向后循环。

答案 1 :(得分:2)

作为最佳实践,我努力减少VBA必须跨越边界与Excel通信的次数。

因此,不是每次插入都要跨越边界进行五次调用,而是制作一次。向后退步可能会有所帮助,但这不是必需的。

File

注意:迭代值0和62只是OP的行数调整为从零开始。

答案 2 :(得分:0)

为什么它不起作用,为什么使用第2步? 移动行后你可以移动i 5个帖子吗?

$table->truncate();