VBA中的顺序行select

我是新的论坛和VBA（为Excel）。

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

• 我有一个1500行的数据集 – > 150个公司，每个年度观察10年。
• 我需要在每个子集的开始添加一行（即多一年）。

所以为了避免inputALT + 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 

我遇到的问题是，对于每个循环添加一个新行，程序“落后”一行。

我将不胜感激您的意见！

谢谢！ 艾丽赛欧

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 

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