每当我执行程序时，我得到一个名为sub或function的错误都没有定义

Question

Private Sub count_of_rc()
    Set wbi = ActiveWorkbook
    Range("A1").Select
    Selection.CurrentRegion.Select
    tr = Cells(1, 1).CurrentRegion.Rows.Count
    tc = Cells(1, 1).CurrentRegion.Columns.Count
End Sub

显示下标超出范围

Answer 1

从代码中删除Private关键字。