作者：乔山办公网日期：
返回目录：excel表格制作
按Alt+F11打开VBA编辑器，在工程资源管理器中找到ThisWorkbook，双击，看右边的代码窗口是否有内容，如果有，就是这代码的问题。
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，确copy实都能找到结果吗？
如果都能找到结果，也就是反 返回的rng 不是nothing的话，建议把代码发全看看
日常编写代码时，zhidao建议代码做以下调整：
Set rng = ThisWorkbook.Sheets("sheet1").Rows("2:2").Find("DM")
if rng is nothing then
msgbox "DM:不存在"
else
x = rng.Column
endif
这个代码经调试没有发现问题，不知道你说的搜索栏是不是你所指的G列。
模块个数zhidao不是你这样统计的。专属
Sub aa()
n = ActiveWorkbook.VBProject.VBComponents.Count
For i = 1 To n
If ActiveWorkbook.VBProject.VBComponents.Item(i).Type = 1 Then s = s + 1
Next
MsgBox "模块个数： " & s
End Sub
这样OK。