excel vba 运行时错误“91”，对象变量或with块变量未设置

EXCEL50531271 · 发表于 2018-6-7 16:49

Sub test()
For i = 1 To 913
If Cells(i, 6).Find("A") Then
   Cells(i, 3) = ""
   Cells(i, 4) = ""
   Cells(i, 5) = ""
ElseIf Cells(i, 6).Find("B") Then
   Cells(i, 2) = ""
   Cells(i, 4) = ""
   Cells(i, 5) = ""
ElseIf Cells(i, 6).Find("C") Then
   Cells(i, 2) = ""
   Cells(i, 3) = ""
   Cells(i, 5) = ""
ElseIf Cells(i, 6).Find("D") Then
   Cells(i, 2) = ""
   Cells(i, 3) = ""
   Cells(i, 4) = ""
End If
Next
End Sub

EXCEL50531271 · 发表于 2018-6-7 16:54

保留答案选项，比如第一题选C，那么就删掉A、B、D选项单元格的内容

EXCEL50531271 · 发表于 2018-6-7 16:55

跪谢！！！！

		自动登录	找回密码
密码			免费注册

[求助] excel vba 运行时错误“91”，对象变量或with块变量未设置