无法在VBA循环中插入Excel电子表格中的单行

下面的代码应该在我的电子表格的每5行之间插入一行，而不是插入5个空行。单步执行显示，当执行Rowsi.select时，它选择5行，然后执行插入。下面是非常简单的代码：

对于i=126至1步骤-5 罗西，选择 选择。插入移位：=xlDown 接下来我

---

您的代码运行良好-它确实在第5行之后插入空行，但是，您的代码将在第一行之后的第一个循环上插入行，然后在第5行之后插入空行。你可以试试这个代码

For i = 6 To 126 Step 5
   Rows(i).Select
   Selection.Insert Shift:=xlDown
Next i

或者如果你想从底部开始

   For i = 122 To 1 Step -5
       Rows(i).Select
       Selection.Insert Shift:=xlDown
    Next i

---

我从第6行开始，因为第1行是标题。然后它将开始在第5行之后插入空行。

您的代码运行良好-它确实在第5行之后插入空行，但是，您的代码将在第一行之后的第一个循环上插入行，然后再在第5行之后插入空行。你可以试试这个代码

For i = 6 To 126 Step 5
   Rows(i).Select
   Selection.Insert Shift:=xlDown
Next i

或者如果你想从底部开始

   For i = 122 To 1 Step -5
       Rows(i).Select
       Selection.Insert Shift:=xlDown
    Next i

---

我从第6行开始，因为第1行是标题。然后，它将在第五行之后开始插入空行。

不要使用select命令。如果合并了相应的单元格，则插入的行数与合并单元格的行数相同

Sub test()
    For i = 126 To 1 Step -5
        'Rows(i).Select
        Rows(i).Insert Shift:=xlDown
    Next i
End Sub

如果图纸上有合并的单元格，则为原始图像 代码的结果 我的代码的结果

---

不要使用select命令。如果合并了相应的单元格，则插入的行数与合并单元格的行数相同

Sub test()
    For i = 126 To 1 Step -5
        'Rows(i).Select
        Rows(i).Insert Shift:=xlDown
    Next i
End Sub

如果图纸上有合并的单元格，则为原始图像 代码的结果 我的代码的结果

---

这对我来说很好，不知道为什么对你不起作用。我在过去看到过一些奇怪的Excel行为，当时我有一大堆待处理的Office更新。安装它们并重新启动为我解决了这个问题-看看这是否对你有帮助。这对我来说很好，不知道为什么它对你不起作用。我在过去看到过一些奇怪的Excel行为，当时我有一大堆待处理的Office更新。安装它们并重新启动为我解决了这个问题-看看这是否对你有帮助。