Question

我既是论坛的新手，也是VBA的新手。（

）

我正在尝试做一件非常简单的事情：

我有1500行的数据集 - ＆gt; 150家公司，每年都有10年的年度观察。
我需要在每个子集的开头添加一行（即多一年）。

所以为了避免输入ALT + H + I + R 150次（也因为我将来可能遇到同样的问题）我正在尝试VBA。

这是我到目前为止的代码：

Sub InsertRows()
' InsertRows Macro

Dim Var As Integer
Var = 5
Do While Var < 1700
    Var = Var + 10
    Range("F" & Var).Select
    Selection.EntireRow.Insert
Loop

End Sub

我遇到的问题是，对于每次重复，程序“落后”一行，因为每个循环都添加了一个新行。

我非常感谢您的意见！

THX！ Eliseo

Answer 1

这会让你更近一点：

Sub InsertRows()
    Dim Var As Long
    Var = 1700
    Do While Var > 10
        Var = Var - 10
        Range("F" & Var).EntireRow.Insert
    Loop
End Sub

您可能需要更改为起始行才能获得所需的间距

VBA中的顺序行选择

1 个答案: