<em>EXCEL</em> VBA运行宏时，提示：运行时<em>错误</em

直观上没看出什么毛病，要说不足就是过程名字是汉字，外加单元对象未指名调用的属性。把你错误后调试的界面截图发出来看看

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
按Alt+F11打开VBA编辑器，在工程资源管理器中找到ThisWorkbook，双击，看右边的代码窗口是否有内容，如果有，就是这代码的问题。

这是zd我自己写的一回个程序，你试一下看
Sub to今天答()
Dim m, d
m = Format(Date, "m月")
d = Day(Now())
For Each Rng In ActiveSheet.UsedRange
If Rng = m And Rng.Offset(1, 0) = d Then
Rng.Resize(2, 1).Select
End If
Next
End Sub