Excel 精确搜索标题名称

我创建了一个宏来搜索标题名并插入一列，但是宏搜索包含命令中给定内容的单词，而不是搜索确切的标题名

'Looks in entire first row.
Dim rngHeaders As Range Set rngHeaders = Range("1:1")

'To set this to a specific sheetname, use Set ws = Sheets("Sheetname")
Set ws = ActiveSheetSet 
Set rngUsernameHeader = rngHeaders.Find(What:="Account Name",After:=Cells(1,1))

If rngUsernameHeader Is Nothing Then

Else 
    rngUsernameHeader.Offset(0, 1).EntireColumn.Insert 
endif

---

“查找”缺少一个参数：

Dim rngHeaders As Range 

Set rngHeaders = Range("1:1") 
Set ws = ActiveSheetSet 

Set rngUsernameHeader = rngHeaders.Find(What:="Account Name",After:=Cells(1,1), LookAt:=xlWhole)

If Not rngUsernameHeader Is Nothing Then rngUsernameHeader.Offset(0, 1).EntireColumn.Insert 

---

“查找”缺少一个参数：

Dim rngHeaders As Range 

Set rngHeaders = Range("1:1") 
Set ws = ActiveSheetSet 

Set rngUsernameHeader = rngHeaders.Find(What:="Account Name",After:=Cells(1,1), LookAt:=xlWhole)

If Not rngUsernameHeader Is Nothing Then rngUsernameHeader.Offset(0, 1).EntireColumn.Insert 

---

请参阅查找函数文档：

---

您正在查找查找参数。此参数应设置为xlValues value，这将使函数能够根据单元格的值搜索单元格。

请参阅查找函数文档：

您正在查找查找参数。此参数应设置为xlValues value，这将使函数能够根据单元格的值搜索单元格