Excel 对于2到最后一行-不工作

就像它不把LastRow读作数字一样！救命！！这是我的代码：

Sub DD()

Dim rNum As Long
Dim LastRow As Long

LastRow = ActiveSheet.Range("A1").End(xlDown).Rows.Count

For rNum = 2 To LastRow    
  Select Case Range("D" & rNum).Value
    Case "FXD"
      Range("P" & rNum).FormulaR1C1 = "= RC[-13]"
   Case Else
     Range("P" & rNum).Value = -4

End Select
Next rNum       
End Sub

更改此行：

LastRow = ActiveSheet.Range("A1").End(xlDown).Rows.Count

为此：

LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlup).Row

---

你想要的是

Row

而不是

Rows.Count

（因为你指的是一个单元格，所以它总是1），通常最好是从工作表的底部向上，而不是向下。

另一个问题对不起，我以为你忽略了“.Row”中的“s”，然后我把它放在代码中，因此，我得到了计算到第41639行的公式！为什么？有s的行和没有s的行有什么区别？提前感谢

行

返回行号，而

行

返回表示指定范围内所有行的范围对象。