文字を検索し座標を特定する方法を教えてください。
検索する列は一列のみです。
下記の例で参考になるでしょうか。
不明な点はコメントで補足するので有効にお願いします。
'★★★ 検索を行うExcel ファイル名 Const filePath = "C:\data.xls" '★★★ 検索を行うシート名 Const sheetName = "Sheet1" Sub searchWord() Dim sWB As Workbook Set sWB = Workbooks.Open(filePath) Dim sWS As Worksheet Set sWS = sWB.Worksheets(sheetName) Dim sRange As Range '★★★ A 列から 「ABCD」を検索する例 Set sRange = sWS.Columns("A").Find(what:="ABCD", lookat:=xlWhole) If sRange Is Nothing Then MsgBox "検索は見つかりませんでした。" Else MsgBox "位置は[" & sRange.Address & "]です。" End If sWB.Close End Sub
回答者 | 回答 | 受取 | ベストアンサー | 回答時間 | |
---|---|---|---|---|---|
1 | pahoo | 5960回 | 5695回 | 633回 | 2008-12-28 18:40:15 |
コメント(1件)