Excel 从表中获取最大值，增量为1并插入到活动单元格中

我有一个表

SOGP1

，其中有一列

ShotNo

，每次单击前37列中的任何单元格时，该列都需要递增1

第1步-单击某处 步骤2-在表

SOGP1

中找到最大值

ShotNo

列，按1递增，将该值存储在活动单元格中 步骤3-向SOGP1表中添加新行，并在

ShotNo

列中添加下一个值

因此，如果最大值为2，我将在单击的单元格中插入3，我还将在表中添加一行，并在

ShotNo

列中插入值3

这就是我到目前为止所做的：

Dim lstObj1 As ListObject
Set lstObj1 = Worksheets("Sheet 1").ListObjects("SOGP1")
ActiveCell.Value = WorksheetFunction.Max(lstObj1.ListColumns("ShotNo").Range) + 1

我得到一个

下标-超出范围

错误

---

提前感谢

哪一行引发了错误？ActiveCell.Value行表示表中没有标题为“ShotNo”的列

.Sub p1sh（）“p1sh宏”键盘快捷键：Ctrl+q'Dim lstObj1 As ListObject Set lstoj1=工作表（“工作表1”）。ListObjects（“SOGP1”）ActiveCell.Value=工作表函数.Max（lstObj1.ListColumns（“ShotNo”）.Range）+1 End Sub可能是其他内容吗？Ii剪切并粘贴表名和列，这意味着
ActiveWorkbook
不包含名为“Sheet1”的表，或者名为“Sheet1”的表不包含名为“SOGP1”的表，或者两者都不包含。