
findメソッドで、検索対象を複数列&検索条件を複数にしたいのですが、可能でしょうか?
イメージ的には、下のようなデータが入っているシートから、
AとB列を条件にしてC列の同じ行の値を取得したいのです。
A |B |C
00|00|01
00|00|02
00|01|01
Range("A:B").Find(what:="00"&"00"・・・)のような感じです。
→期待される取得結果は01と02です。
今のところ方法がおもいつかないので、
(1)A列を条件にしB列
(2)(1)のB列を条件にしC列
と二段階で取得するしかないかな~と思っています。
このような処理は不可能でしょうか?また可能ならばその記述方法をご教授ください。よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんにちは。
どこか空いている列に"=A1&B1"のような数式を入れて、
下へコピーします。
そして、その列を対象にして、"0000"を検索すれば良いのでは?
もし、空いている列が無いのであれば、A列とB列の文字列を
結合しながら、"0000"とイコールかどうか評価するという
動作を1行目からループさせる方法でも良いかもしれません。
一応、A列 & B列が"0000"になる行のC列の値を
イミデイエイトに列挙するサンプルです。↓
Option Explicit
Sub Sample()
Dim i As Long
Dim j As Long
With ActiveSheet
j = .Range("A1").CurrentRegion.Rows.Count
For i = 1 To j
If .Cells(i, 1).Value & .Cells(i, 2).Value = "0000" Then
Debug.Print .Cells(i, 3).Value
End If
Next
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し 9 2022/10/05 10:50
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) AdvancedFilterについての質問 2 2022/07/02 22:58
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
このQ&Aを見た人はこんなQ&Aも見ています
-
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
エクセルで複数列の検索をマクロで行いたい
Excel(エクセル)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
-
4
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
5
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
6
findは動くがfindnextがマクロで動きません。記述は同じはずなのですが…
Visual Basic(VBA)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
9
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
10
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
11
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
12
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
15
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
16
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
17
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
18
配列でデータが入っている要素を求める方法
Visual Basic(VBA)
-
19
VBA ソートすると、1、11、2,3になって・・
Excel(エクセル)
-
20
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
EXCELで 一桁の数値を二桁に
-
エクセル 同じ値を探して隣の...
-
Excel 文字列を結合するときに...
-
お店に入るために行列に並んで...
-
エクセル(勝手に太字になる)
-
「B列が日曜の場合」C列に/...
-
2つのエクセルのデータを同じよ...
-
エクセルで文字が混じった数字...
-
Excel、市から登録している住所...
-
Excelで半角の文字を含むセルを...
-
エクセルで最初のスペースまで...
-
Excelでの列比較(A列とB列の組...
-
エクセルの項目軸を左寄せにしたい
-
エクセル 文字数 多い順 並...
-
エクセルで、列の空欄に隣の列...
-
ExcelVBA でリストリストボック...
-
エクセル 関数を教えて下さい。
-
オートフィルターをかけ、#N/A...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
EXCELで 一桁の数値を二桁に
-
Excelで半角の文字を含むセルを...
-
2つのエクセルのデータを同じよ...
-
エクセル 文字数 多い順 並...
-
エクセルで文字が混じった数字...
-
エクセルで最初のスペースまで...
-
「B列が日曜の場合」C列に/...
-
エクセル(勝手に太字になる)
-
エクセルの項目軸を左寄せにしたい
-
Excel 文字列を結合するときに...
-
エクセルのセル内の文字の一部...
-
【VBA】特定列に文字が入ってい...
-
Excel、市から登録している住所...
-
文字列に数字を含むセルを調べたい
-
エクセルの表から正の数、負の...
-
VBAで文字列を数値に変換したい
-
エクセルで、列の空欄に隣の列...
-
オートフィルターをかけ、#N/A...
おすすめ情報