![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.1ベストアンサー
- 回答日時:
VBAでやるとこんな感じですか。
Sub 検索転記()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
R1 = sh1.Cells(sh1.Rows.Count, "F").End(xlUp).Row
R2 = sh2.Cells(sh2.Rows.Count, "B").End(xlUp).Row
n = R1 + 1
For i = 1 To R2
Set x = sh1.Columns("F").Find(What:=sh2.Cells(i, "B"), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If x Is Nothing Then
sh1.Cells(n, "F") = sh2.Cells(i, "B")
sh1.Cells(n, "G") = sh2.Cells(i, "C")
n = n + 1
End If
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA For Each 〜 複数条件について 3 2022/10/20 20:05
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- その他(Microsoft Office) Excelで該当しない項目(#N/Aの商品名)を簡単に表示・抽出させる方法についてです 1 2022/08/25 22:12
- Visual Basic(VBA) 【VBA】複数行あるカンマ区切りのデータを全て縦に一列に並べたい 5 2022/04/13 17:03
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Excel(エクセル) ある文字を含む際に、値を返す数式についてです 5 2022/08/28 16:58
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Visual Basic(VBA) VBAでvlookup関数から、別シート参照するやり方・・・ 2 2022/11/14 18:49
- Visual Basic(VBA) チームごとにどの商品を何個希望しているか数量を算出したいです。 A列(A2~A265)に各チーム名が 3 2023/07/18 18:46
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAでのリスト不一致抽出について
Visual Basic(VBA)
-
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
-
4
ExcelVBAでデータ不一致のものの抽出
Excel(エクセル)
-
5
Excelで[表1]にあって、[表2]にないものを抽出する関数
その他(Microsoft Office)
-
6
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
7
離れた2列を比べて重複しないデータを隣の列に表示させる方法 Excel
Visual Basic(VBA)
-
8
エクセルマクロ:複数列 重複があった場合、メッセージと印入れる方法
Excel(エクセル)
-
9
複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。
Visual Basic(VBA)
-
10
Excelマクロの差分抽出のコードを教えていただきたいです。
Excel(エクセル)
-
11
EXCEL VBA 一致しないデータの抽出及びデータ更新
Excel(エクセル)
-
12
リストと一致する値のセルを塗りつぶしたい。
その他(Microsoft Office)
-
13
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
-
14
Excel VBAで比較して数値があってなかったらセルの色を変換
Visual Basic(VBA)
-
15
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
16
VBA 列全体を別シートの列と比較し、同じ値がある行の、右端に値をコピーする方法について
Excel(エクセル)
-
17
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
18
Excelにて、シート間で、データーを比較して、一致したら別シートへ転記するコードを教えてください。
Microsoft ASP
-
19
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
20
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelの差込印刷で可視セルだけ...
-
エクセル:VBAで月変わりで、自...
-
歯抜けの時間を埋めて行の挿入
-
エクセルVBA 別シートの複数の...
-
Excel VBA :2回目以降実行で貼...
-
Excel で行を指定回数だけコピ...
-
Excel VBA インデックスの境...
-
エクセル2007で、マクロで、結...
-
【エクセル】 連続印刷する際の...
-
Excelで最後まで計算式を...
-
【VBA】UserForm1の中で使うワ...
-
Excel VBAでシート内全体に非表...
-
エクセルVBAで 2種のリストを...
-
VBA別シートの最終行の下行へ貼...
-
VBA:同じ文字列データの比...
-
代替機にキズ
-
スマホ機種変更で旧機種のGoogl...
-
FOMAカード(UIM)異常
-
ドコモの電話帳バックアップに...
-
スマホにPCから音楽を入れたい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel で行を指定回数だけコピ...
-
excelの差込印刷で可視セルだけ...
-
Excel VBA インデックスの境...
-
VBA:同じ文字列データの比...
-
エクセルVBA 別シートの複数の...
-
エクセルVBAで SendKeys "{TAB}"
-
エクセル:VBAで月変わりで、自...
-
VBA別シートの最終行の下行へ貼...
-
歯抜けの時間を埋めて行の挿入
-
エクセルVBAで 2種のリストを...
-
Excel VBAでシート内全体に非表...
-
VBAで複数シート選択
-
EXCELマクロで全シート対...
-
Excel VBA :2回目以降実行で貼...
-
VBAで条件が一致する行のデータ...
-
VBAの指示の内容 昨日こちらで...
-
【WORD差し込み印刷】複数レコ...
-
Excelでデータの抽出&別シート...
-
エクセルVBAで実行時エラー...
-
エクセル シート保護後コメン...
おすすめ情報