object'_Global'的方法範圍在VBA中失敗

Question

我是VBA的新手，我有一個代碼，我想要統計從A2到表尾的空行數，但我保持get這個錯誤，代碼如下：

我不能用手指出來的問題是什麼

感謝 帕奇

Answer 1

簡單的修復到Set：

Sub TicketCopy() 
    With Worksheets("Formulas") 
     Dim K As Range 
     Dim M As Long 
     Set K = Range(.Range("A2"), .Range("A2").End(xlDown)) 
     M = K.Rows.Count 
     MsgBox "The Rows Count=" & M 
    End With 
End Sub 

注意這是比列的底部少一個。

Answer 2

並不清楚OP實際需要（「不爲空」細胞或公式，或者還有什麼導致「不爲空」細胞）

所以我扔在只是一些例子：

Option Explicit 

Sub TicketCopy() 

    With Worksheets("Formulas") 
     With .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)) '<--| reference column "A" cells from row 2 to last not empty one 

      ' all cells in range with formulas only 
      With .SpecialCells(xlCellTypeFormulas) 
       MsgBox "The Rows Count= " & .Count ' cells number 
       MsgBox "The Rows Count= " & WorksheetFunction.Count(.Cells) ' cells resulting "not blank" (a 'zero' is a "not blank") 
       MsgBox "The Rows Count= " & WorksheetFunction.CountIf(.Cells, "") ' cells resulting "blank" (a 'zero' is a "not blank") 
       MsgBox "The Rows Count= " & WorksheetFunction.CountBlank(.Cells) ' cells resulting "blank" (a 'zero' is a "not blank") 
      End With 

      'all cells in range 
      MsgBox "The Rows Count= " & .Count ' cells number 
      MsgBox "The Rows Count= " & WorksheetFunction.Count(.Cells) 'cells resulting "not blank" (a 'zero' is a "not blank") 
      MsgBox "The Rows Count= " & WorksheetFunction.CountIf(.Cells, "") 'cells resulting "blank" (a 'zero' is a "not blank") 
      MsgBox "The Rows Count= " & WorksheetFunction.CountBlank(.Cells) ' cells resulting "blank" (a 'zero' is a "not blank") 
     End With 
    End With 

End Sub