在不同的工作表中使用countif和vba宏中的计数，但出现错误下标超出范围

Question

我在来自不同工作表的VBA宏中使用COUNTIF和COUNTA ，但出现错误

下标超出范围

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Sheets("Sheet4").Range("B8").Select
  ActiveCell.FormulaR1C1 = "=COUNTA('Raw data'![B:B]-1)"
  Sheets("Sheet4").Range("C8").Select
  ActiveCell.FormulaR1C1 = "=COUNTIF('Raw data'![M:M],""Suppress"")"
  Range("C9").Select
End Sub

Answer 1

您正在选择中更改选择宏时更改选择，因此它形成无限循环。

您还将R1C1表示法和列字母表示法混在一起。

尝试以下方法：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Sheets("Sheet4").Range("B8").Formula = "=COUNTA('Raw data'!B:B)-1"
  Sheets("Sheet4").Range("C8").Formula = "=COUNTIF('Raw data'!M:M,""Suppress"")"
End Sub