Question

基本上标题是什么，我得到一个＆＃34;应用程序定义或对象定义错误＆＃34; 我无法弄清楚我做错了什么。

感谢

Dim lastR As Long
Dim lastC As Long
Dim StartCell As Range
ThisWorkbook.Sheets(2).Activate
Set StartCell = Range("A1")
'Find Last Row and Column
  lastR = Cells(Rows.Count, StartCell.Column).End(xlUp).Row
'Select Range
 Dim table As ListObject
Set table = ActiveSheet.ListObjects.Add(xlSrcRange, Range(StartCell, "H" & lastR), xlYes)
Dim lastR1 As Long
Dim StartCell1 As Range
ThisWorkbook.Sheets(3).Activate
Set StartCell1 = Range("A1")
'Find Last Row and Column
lastR1 = Cells(Rows.Count, StartCell1.Column).End(xlUp).Row
'Select Range
 Dim table1 As ListObject
Set table1 = ActiveSheet.ListObjects.Add(xlSrcRange, Range(StartCell1, "H" & lastR1), xlYes)

Answer 1

显然问题是我创建了一个Active X按钮并在那里插入代码..

使用常规按钮

＆＃34;应用程序定义或对象定义错误＆＃34;在尝试创建表时

1 个答案: