![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.3ベストアンサー
- 回答日時:
3つの方法を考えてみました。
③は、Findメソッドを使ったものですが、省略スタイルはあまりよくないといいます。個人的には、②が一番、楽に取り扱えるように思います。
''①.
Sub FindWordinLine_01()
Dim r As Range
'1行目にタイトル行の代わりに、検索文字[高校]を置く
Range("I:I").ColumnDifferences(Comparison:=Range("I1")).EntireRow.Hidden = True
Set r = Range("I:I").SpecialCells(xlCellTypeVisible) Range("I:I").ColumnDifferences(Comparison:=Range("I1")).EntireRow.Hidden = False
r.Select
End Sub
''②.
Sub FindWordinLine_02()
'1行目にタイトル行が必要です。
Range("K2").FormulaLocal = "=COUNTIF(I2,""*高校*"")>0"
Range("I:I").AdvancedFilter 1, Range("K1:K2")
End Sub
''③.
Sub FindWordinLine_03()
'出だしに決まりはありません。
Dim first As String
Dim rng As Range
Dim uniRng As Range
Dim c As Range
Dim buf As String
Range("I1").Select
Set rng = Range("I1", Cells(Rows.Count, 9).End(xlUp))
With rng
Set c = .Find("*高校*")
If Not c Is Nothing Then
buf = c.Address
Set uniRng = c
Do
If first = "" Then first = c.Address
Set uniRng = Union(c, uniRng)
Set c = .FindNext(c)
Loop While Not c Is Nothing And first <> c.Address
End If
End With
uniRng.Select
End Sub
No.2
- 回答日時:
同じく 一例です。
Sub MacroRai()
'
Dim mk As Range
Dim mm As String
Set mk = Nothing
For i = 1 To 50
mm = Cells(i, 1).Value
For j = 2 To 50
mm = mm & Cells(i, j).Value
Next j
If mm Like "*高校*" Then
yy = i & ":" & i: c = c + 1
If c = 1 Then
Set mk = Range(yy)
Else
Set mk = Union(mk, Range(yy))
End If
End If
Next i
If c > 0 Then mk.Select
End Sub
No.1
- 回答日時:
こんばんは!
「高校」という文字列が含まれていればよいのですね?
一例です。
Sub Sample1()
Dim i As Long, myRng As Range
For i = 1 To 20
If InStr(Cells(i, "I"), "高校") > 0 Then
If myRng Is Nothing Then
Set myRng = Cells(i, "I")
Else
Set myRng = Union(myRng, Cells(i, "I"))
End If
End If
Next i
If Not myRng Is Nothing Then
myRng.EntireRow.Select
Else
MsgBox "該当データなし"
End If
End Sub
こんな感じで大丈夫だと思います。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA ワークシート指定の1行目を選択をしたい 2 2022/08/20 18:10
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- Visual Basic(VBA) エクセルVBAのコードについて 2 2022/08/10 21:49
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
エクセルVBA C列に特定の文字列を含む行のみを抽出し、一つのExcelにまとめたい。
Excel(エクセル)
-
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
-
4
エクセルマクロ 特定の文字列を含む行のみを残す (マクロ修正)
Excel(エクセル)
-
5
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
6
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
7
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
8
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
【VBA】特定の文字が入っている行の一部を抽出して別シートコピーするには
Visual Basic(VBA)
-
11
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
12
B列に特定の文字列が入っている時、その文字列を含む行を下に複製&複製した方のA列の末尾に「A」を追加
Visual Basic(VBA)
-
13
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
-
14
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
15
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
16
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
17
エクセルで特定の文字列が入った行を非表示にしたい
Excel(エクセル)
-
18
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
19
エクセル VBA 特定文字がある行を別シートに移動
Visual Basic(VBA)
-
20
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
今どきの高校生で性行為してる ...
-
オナニーって、本当にみんなし...
-
おちんちんが大きくて困ってい...
-
彩の国進学フェア 長時間並ん...
-
中学生娘です。 クラスでも部活...
-
高校の終業式って何時終わりく...
-
高校生の間にセックスしてる人...
-
マスターベーション
-
終了式/修了式/終業式の違いを...
-
合法JKについて。 18歳になった...
-
保護者から好意を持たれたら先...
-
高校の期末テストの後の試験休...
-
現在、神奈川県の不良高校と言...
-
教育実習時期について、怒られ...
-
自分、障害者が本当に嫌いなん...
-
高3です。学校から欠点が一つあ...
-
公立高校と都立高校の違い
-
一学期で欠点を3つも取ってしま...
-
無理して入った高校は苦労しま...
-
中2の男です。お泊まりオナニ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
今どきの高校生で性行為してる ...
-
オナニーって、本当にみんなし...
-
おちんちんが大きくて困ってい...
-
高校生の間にセックスしてる人...
-
マスターベーション
-
中2の男です。お泊まりオナニ...
-
中学生娘です。 クラスでも部活...
-
合法JKについて。 18歳になった...
-
狼と香辛料
-
保護者から好意を持たれたら先...
-
「理論的」「論理的」の意味は?
-
自分、障害者が本当に嫌いなん...
-
教育実習時期について、怒られ...
-
還暦熟女の皆さんもこんな風な...
-
女学校とは、今で、いう大学で...
-
彩の国進学フェア 長時間並ん...
-
15才だと中3、高1どっち?
-
高校一年生(15歳)女子です。お...
-
成績がオール4で定期テストは40...
-
六年生です。今ちんこが長さ勃...
おすすめ情報