ID非公開

2022/6/23 7:46

22回答

Excelで一つのセルに本の出版社、タイトルが書かれてあるのがA1~A10まであるとします。

補足

出版社はA社B社C社の3社です。

Excel | Visual Basic44閲覧

ベストアンサー

0

その他の回答(1件)

0

他の方が回答されているように、見つけるだけであればオートフィルタを活用されるのと良いと思います。 VBAを書くとすると以下です。 Sub 検索文字列を含むセルの行番号を返す() '変数宣言 Dim SearchArea As Range Dim SearchWord As String '設定変更箇所 Set SearchArea = Range("A1:A10") SearchWord = "A社" '主処理 Dim AnyRange As Range Dim Message As String Dim Counter As Integer For Each AnyRange In SearchArea If InStr(AnyRange.Value, SearchWord) > 0 Then Message = Message & AnyRange.Row & "行目と" Counter = Counter + 1 End If Next AnyRange If Counter > 0 Then Message = Mid(Message, 1, Len(Message) - 1) MsgBox (SearchWord & "は" & Message & "にあります") Else MsgBox (SearchWord & "は見つかりませんでした") End If End Sub