ID非公開

2022/6/23 7:46

22回答

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

Excelで一つのセルに本の出版社、タイトルが書かれてあるのがA1~A10まであるとします。 そこでA社だけを、検索にかけて何行目にあるかを知りたいです。マクロを用いたらどう組んだらいいでしょうか？

補足

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

Excel | Visual Basic・44閲覧

ベストアンサー

0
ななし

2022/6/23 8:05

本の出版社、タイトル の区切りはどうなっているか調べる。 出版社名タイトル で誤認識されないのであれば、先頭一致で出版社名を調べる。 その行数を出力 A1～A10までループ マクロ使わなくても B列に出版社名を抽出 A社だけならその文字数をLEFT関数で取り出し。C列に ROW関数で行数を入れて。 フィルターでA社のみ取り出す。 A 連番 B 出版社名 C タイトル に整形しておき、フィルターかける のが もっともスマート

その他の回答（1件）

0
たつろう

2022/6/23 9:24

他の方が回答されているように、見つけるだけであればオートフィルタを活用されるのと良いと思います。 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