Question

EXCEL VBA运行宏时，提示：运行时错误'91';对象变量或With块变量未设置

Dim LB, r
Dim rng As Range
Dim i, x, y, z

UserForm1.ComboBox2.Clear
UserForm1.ComboBox3.Clear
UserForm1.TextBox1 = ""
UserForm1.ComboBox2 = ""
UserForm1.ComboBox3 = ""
Set rng = ThisWorkbook.Sheets("sheet1").Rows("2:2").Find("DM")
x = rng.Column
Set rng = ThisWorkbook.Sheets("sheet1").Rows("2:2").Find("JC")
y = rng.Column
Set rng = ThisWorkbook.Sheets("sheet1").Rows("2:2").Find("LB")
z = rng.Column

Answer 1

Set rng = ThisWorkbook.Sheets("sheet1").Rows("2:2").Find("DM")
x = rng.Column
Set rng = ThisWorkbook.Sheets("sheet1").Rows("2:2").Find("JC")
y = rng.Column
Set rng = ThisWorkbook.Sheets("sheet1").Rows("2:2").Find("LB")
z = rng.Column
以上find，确实都能找到结果吗？
如果都能找到结果，也就是反 返回的rng 不是nothing的话，建议把代码发全看看
日常编写代码时，建议代码做以下调整：
Set rng = ThisWorkbook.Sheets("sheet1").Rows("2:2").Find("DM")
if rng is nothing then
msgbox "DM:不存在"
else
x = rng.Column
endif

追问

还真的是不存在
可是sheet1里面有DM JC LB存在
那find要怎么修改呢

追答

.Find("DM"，lookat:=xlpart)
部分查找，也就是单元里包含的就算找到
.Find("DM"，lookat:=xlwhole)这个是完全匹配
你看下是不是要用部分匹配那个啊，默认是完全匹配的吧

Answer 2

可能原因是在每二行中未Find "DM"、"JC"、"LB"，你需要对未找到进行处理
比如在宏前面加上语句
On Error Resume Next
等，看你希望怎么处理。

追问

Set rng = ThisWorkbook.Sheets("sheet1").Rows("2:2").Find("DM")
x = rng.Column
这个的意思是在整个第二行里面 找DM吗？

追答

意思是在整个第二行里面 找“DM”这个组合字符。如果在第二行第六个单元格内包含“DM”，那么运下列代码行结果，X=6

Set rng = ThisWorkbook.Sheets("sheet1").Rows("2:2").Find("DM")
x = rng.Column