excel - 当特定数据的行数增加 16 时，为什么我的 excel vba 代码会抛出错误？

Question

我有一个 vba 工具，它可以分析 excel 数据并计算特定人的数据数量，并通过粘贴基于它的每个人的评论来准备 powerpoint 报告。我注意到，当一个人的数据计数（行）增加 16 时，该工具会引发错误。错误说 - “整数超出范围。18 不在 1 到 17 的有效范围内”。下面是代码：

注意-我是初学者

' 更新评论幻灯片

Set Sl = PPres.Slides(4)
Set sh = Sl.Shapes("TextBox 7")
strText = sh.TextFrame.TextRange.Text
strText = Replace(strText, "____", strFirst)
sh.TextFrame.TextRange.Text = strText

Set sh = Sl.Shapes("Table Placeholder 3")
For s = 1 To aA
  sh.Table.Rows(s + 1).Cells(1).Shape.TextFrame.TextRange.Text = CStr(clsCommA.Item(s))
Next
If aA < 16 Then
    For s = 16 To aA + 1 Step -1
        sh.Table.Rows(s + 1).Delete
    Next
End If
Set clsCommA = Nothing