http://club.excelhome.net/thread-940744-1-1.html   

2. Find方法的語法
[語法]
<單元格區域>.Find (What，[After]，[LookIn]，[LookAt]，[SearchOrder]，[SearchDirection]，[MatchCase]，[MatchByte]，[SearchFormat])
'__________________________________________________________________________________________________
<單元格區域>.Find (要查詢的資料，開始查詢的位置，查詢的範圍型別，完全匹配還是部分匹配，行列方式查詢，向前向後查詢，區分大小寫，全形或半形，查詢格式)

(5)引數LookAt，可選。可以為以下常量之一：XlWhole或者xlPart，用來指定所查詢的資料是與單元格內容完全匹配還是部分匹配，預設值為xlPart。對應於“查詢與替換”對話方塊中，“單元格匹配”複選框。

案例：根據工作表名稱查詢標題欄中的對應標題的單元格

源表：

VBA語句：

Option Explicit
Option Compare Text
Sub 根據內容查詢單元格()
    Dim sSheet As Worksheet
    Dim eachSheet As Worksheet
    Dim findRange As Range
    Dim columnCount As Integer
    
    Set sSheet = Worksheets("資料")
    '獲取工作表總列數
    columnCount = sSheet.UsedRange.Cells.EntireColumn.Count
    
    For Each eachSheet In Worksheets
        
 
'只查詢A1單元格所在的整行
        Set findRange = sSheet.Range("A1").EntireRow.Find(eachSheet.Name, , , xlWhole)
        Debug.Print findRange.Column
    Next eachSheet
   
End Sub

執行後：