VBA 根據Find方法根據特定內容查詢單元格
阿新 • • 發佈:2018-12-31
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
執行後: