Question

EXCEl运行时错误91 对象变量或with块变量未设置

Private Sub CommandButton1_Click()
Dim i, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, j, k As Integer
Dim a(1 To 100) As String
Dim a1(1 To 100), a2(1 To 100), a3(1 To 100), a4(1 To 6), a5(1 To 6), a6(1 To 6) As Long

i = Sheet17.[BW65536].End(xlUp).Row
j = 0

i7 = 45
i8 = 17

i9 = Sheet7.[A65536].End(xlUp).Row

For i10 = 46 To i9
Sheet7.Range("A46:E46").Select
Selection.ListObject.ListRows(2).Delete
Next
For i1 = 4 To i
For i4 = 1 To 100

If a(i4) = Sheet17.Cells(i1, 98) And i2 <> 2 Then
GoTo Duandian
End If

Next
j = j + 1
a1(j) = 0 '销售额
a2(j) = 0 '销量
a3(j) = 0 '数量
有人帮帮我么 好急的。谢谢 大神们

Answer 1

运行时错误91是一种常见的Excel错误，通常会导致程序崩溃，无法正常工作。这个错误的根本原因是由于Excel无法找到所需的对象，或者由于某些原因无法访问这些对象，从而导致了程序运行错误。

如果您遇到运行时错误91，可以尝试以下方法来解决问题：

• 检查您的程序代码，确保您的代码中没有引用不存在的对象。

• 尝试重新启动Excel，重新运行您的程序。

• 如果您的程序代码中有用到“With”块的语句，请检查“With”块的结束语句是否正确。

• 如果您的程序代码中有调用Excel中的外部函数，请检查这些函数是否存在，并且是否能够正常调用。

• 如果以上方法都不能解决问题，您可以尝试重新安装Excel，以便恢复其原有的正常运行状态。

通过以上方法，您可以尝试解决Excel中的运行时错误91。如果您仍然无法解决问题，建议您向专业人士寻求帮助。

Answer 2

Excel选项 --- 信任中心设置 --- 加载项， 勾选“要求受信任的发布者签署应用程序加载项”

勾选这项后，原来不能运行的VBA程序能正常运行了。

Answer 3

代码不全。
For i10 = 46 To i9
Sheet7.Range("A46:E46").Select
Selection.ListObject.ListRows(2).Delete
Next
这段你再好好瞅瞅。无意义的for循环？

Answer 4

https://wenku.baidu.com/view/7b123f6b168884868762d618.html