excel - 复制以前工作的行的宏，现在不工作但没有错误消息？

Question

我正在使用以下宏将信息从一行复制到下面的空白行(我已经生成)。这个宏在一个月前有效，但是当我现在运行它时，尽管没有错误消息，但什么也没发生。

Sub FillEveryOther()

Dim lastRow As Long
Dim i As Long

lastRow = Cells(Rows.Count, 12).End(xlUp).Row

For i = 2 To i = lastRow Step 2
        Rows(i).EntireRow.Select
        Selection.Copy
        Rows(i + 1).EntireRow.Select
        ActiveSheet.Paste
     If i = lastRow + 1 Then Stop
Next i

End Sub

Answer 1

你永远不会进入循环，因为

For i = 2 to i = lastRow Step 2

在功能上与

For i = 2 to False Step 2

由于 False评估为 0，这真的是在说

For i = 2 to 0 Step 2

所以它永远不会进入循环。

只需将其更改为

For i = 2 To lastRow Step 2

编辑:

为清楚起见，语句是否计算 True或 False , 它仍然不会作为 False 进入循环评估 0和 True评估 -1 .