No.2ベストアンサー
- 回答日時:
No1です。
No1は破棄してください。該当データがないとき、エラーが発生します。
以下のマクロを標準モジュールへ登録してください。
Option Explicit
Public Sub XYZ選択()
Dim maxrow, row, lctr As Long
Dim drow As Range
Dim rg As String
maxrow = Cells(Rows.Count, "F").End(xlUp).row
lctr = 0
For row = 1 To maxrow
If InStr(Cells(row, "F").Value, "XYZ") > 0 Then
rg = row & ":" & row
If lctr = 0 Then
Set drow = Range(rg)
Else
Set drow = Union(drow, Range(rg))
End If
lctr = lctr + 1
End If
Next
If lctr = 0 Then
MsgBox ("該当データなし")
Else
drow.Select
End If
End Sub
No.3
- 回答日時:
実際にやりたいことは《F列に"XYZ"が含まれる行のみを選択したい》のでしょうか。
仮に、F列を調べたら6行(23行目"XYZ"、24行目"GXYZ"、45行目"XYZZ"、123行目"XYZ"、132行目"345XYZ"、222行目"XXXYZZZ")があったとして、《この6行だけの全部の行を選択》するのがネライなのでしょうか。
選択したあとはどうするのですか。
https://oshiete.goo.ne.jp/qa/9693889.html
通常、excelでVBAを使う場合には、「Aをしたい」ために「Bをやりたい」、「Bを実現する」ために「まずCをしておく」というようなことをします。
ネライがちょっと違うと、VBAでやることは大きく違ってきます。
「特定の条件に該当する行を選択させる」ことの次に何をしたいのかも考えないと、選択しただけでは困ることも多くなると思います。
No.1
- 回答日時:
以下のマクロを標準モジュールへ登録してください。
Option Explicit
Public Sub XYZ選択()
Dim maxrow, row, lctr As Long
Dim drow As Range
Dim rg As String
maxrow = Cells(Rows.Count, "F").End(xlUp).row
lctr = 0
For row = 1 To maxrow
If InStr(Cells(row, "F").Value, "XYZ") > 0 Then
rg = row & ":" & row
If lctr = 0 Then
Set drow = Range(rg)
Else
Set drow = Union(drow, Range(rg))
End If
lctr = lctr + 1
End If
Next
drow.Select
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- Excel(エクセル) エクセルVBA 作業後に選択範囲を解除する方法 5 2023/02/17 07:13
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) A列の最終行に合わせて範囲をコピー 2 2022/09/04 19:10
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2022/04/01 12:11
- Visual Basic(VBA) Excel VBA マクロ 先頭行の固定とオートフィルター設定を全てのシートに適用したいです 1 2022/11/12 15:32
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) EXCEL VBAでA列にある空白行より下の行すべてを削除する方法を教えてください。 3 2023/02/17 07:02
- Visual Basic(VBA) VBA リストボックス複数選択からセルへの反映についての質問です。 リストボックス1では1つ選択 リ 6 2023/02/24 12:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルである行以下全部を削...
-
EXCEL VBAで全選択範囲の解除
-
VBAでファイルを開くときにファ...
-
ipadのpagesでMS明朝を使う方法...
-
「無」と「未」の使い方
-
Excel VBA あるセルでENTERを押...
-
Androidのスマホで毎回毎回ホー...
-
Excel VBAでn行毎に行の選択
-
Jw-cadの範囲指定で文字が選択...
-
Excel 行列が選択出来ない
-
シフトキーを使った範囲選択が...
-
Simejiで作ったきせかえを消す...
-
Google Earth Pro(グーグルア...
-
戸惑う、惑うの違いはなんですか。
-
ピボットテーブル 矢印が出な...
-
エクセルVBA ListBox最初と...
-
大至急!
-
アクセス(ACCESS)フォ...
-
リストボックスのプロパティ「...
-
PyQtのQListViewの選択を保持し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルである行以下全部を削...
-
EXCEL VBAで全選択範囲の解除
-
Androidのスマホで毎回毎回ホー...
-
「無」と「未」の使い方
-
VBAでファイルを開くときにファ...
-
Excel VBA あるセルでENTERを押...
-
ipadのpagesでMS明朝を使う方法...
-
Jw-cadの範囲指定で文字が選択...
-
Excel 行列が選択出来ない
-
Simejiで作ったきせかえを消す...
-
「これが」「これで」いいです...
-
Excel VBAでn行毎に行の選択
-
シフトキーを使った範囲選択が...
-
大至急!
-
Excel2003にて(ツール→オプシ...
-
Google Earth Pro(グーグルア...
-
ListViewの行選択について
-
Word差込印刷で「テーブルを選...
-
リストボックスのプロパティ「...
-
WORDでテキストを全て選択し一...
おすすめ情報