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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
-
4
【VBA】特定の文字が入っている行の一部を抽出して別シートコピーするには
Visual Basic(VBA)
-
5
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
-
6
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
7
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
8
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
9
B列に特定の文字列が入っている時、その文字列を含む行を下に複製&複製した方のA列の末尾に「A」を追加
Visual Basic(VBA)
-
10
エクセルでエラーが出て困っています。
Excel(エクセル)
-
11
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
12
エクセルマクロ 特定の文字列を含む行のみを残す (マクロ修正)
Excel(エクセル)
-
13
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
14
vbaで指定したセルより下の行を指定する方法について vbaの質問です。 例えば、「C6」セルより下
Excel(エクセル)
-
15
マクロを実行中に、msgbox を表示させたまま、ワークシートを上下左右に移動表示させたい。
Excel(エクセル)
-
16
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
17
エクセルで特定の文字列が入った行を非表示にしたい
Excel(エクセル)
-
18
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
19
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
20
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
今どきの高校生で性行為してる ...
-
オナニーって、本当にみんなし...
-
おちんちんが大きくて困ってい...
-
教育実習時期について、怒られ...
-
中学生娘です。 クラスでも部活...
-
マスターベーション
-
合法JKについて。 18歳になった...
-
自分、障害者が本当に嫌いなん...
-
高校生の間にセックスしてる人...
-
中2の男です。お泊まりオナニ...
-
保護者から好意を持たれたら先...
-
私の高校と近くの高校が合併す...
-
高校一年生ででてくる「木を見...
-
調査書と成績証明書と卒業証明...
-
帰宅部を 選んだ高1の息子が...
-
還暦熟女の皆さんもこんな風な...
-
高3の5月に遠足って・・
-
高校生の飲酒および喫煙
-
高校の非常勤講師は職業欄に何...
-
偏見だったらすみませんが、な...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
今どきの高校生で性行為してる ...
-
オナニーって、本当にみんなし...
-
大学へ高校の卒業証明書を郵送...
-
おちんちんが大きくて困ってい...
-
至急!!!!! 私は私立を併願...
-
高校二次募集で、おちたら、も...
-
マスターベーション
-
高校の入学式の前にオリエンテ...
-
合法JKについて。 18歳になった...
-
高校の春休みってどのくらいで...
-
高校入学や大学入学には親以外...
-
高校に出す誓約書の保証人について
-
定員割れしてる高校で落ちる確...
-
4月から高校生です。 先日、中...
-
自分、障害者が本当に嫌いなん...
-
高校生の間にセックスしてる人...
-
公立高校でボーダーラインより...
-
大学入試落ちたと思ったら受か...
-
赤点とって追試も駄目だったら...
-
還暦熟女の皆さんもこんな風な...
おすすめ情報