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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと タイムマシンを破壊すべきか。
これはディベートの論題だと仮定したうえでの回答お願いします。あなたは、その末にタイムマシンを壊してしまうのか、使い道を探すのかどうかを考えてもらいたいです。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBAでのリスト不一致抽出について
Visual Basic(VBA)
-
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
ExcelVBAでデータ不一致のものの抽出
Excel(エクセル)
-
-
4
離れた2列を比べて重複しないデータを隣の列に表示させる方法 Excel
Visual Basic(VBA)
-
5
複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。
Visual Basic(VBA)
-
6
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
7
EXCEL VBA 一致しないデータの抽出及びデータ更新
Excel(エクセル)
-
8
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
9
Excelマクロ 差分抽出の方法が知りたいです。
Excel(エクセル)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
Excelで[表1]にあって、[表2]にないものを抽出する関数
その他(Microsoft Office)
-
12
EXCELで2つのシートから一致しない情報だけ抽出
Excel(エクセル)
-
13
【VBA】異なる行だけを抜き出す数式/マクロについて
Visual Basic(VBA)
-
14
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
15
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
16
A列にあってB列にはない単語をC列に残したいです。
Excel(エクセル)
-
17
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
-
18
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
19
リストと一致する値のセルを塗りつぶしたい。
その他(Microsoft Office)
-
20
Excel VBA シート名変更時、重複していたら連番を付けたい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel で行を指定回数だけコピ...
-
Excel VBA 時刻でのD...
-
Excel VBAでシート内全体に非表...
-
エクセルVBA 別シートの複数の...
-
VBA:同じ文字列データの比...
-
エクセル:VBAで月変わりで、自...
-
Excelマクロで空白セルを詰めて...
-
ExcelVBAで改ページを追加したい
-
エクセルVBAでの日付順のデ...
-
Excelでドロップダウンリストの...
-
AQUOS 602SH
-
スマホ機種変更で旧機種のGoogl...
-
携帯修理出して戻ってきたら、L...
-
拡張子「.HUF(.huf)」のファ...
-
ドコモの電話帳バックアップに...
-
画面が真っ暗に・・・
-
スマホにPCから音楽を入れたい...
-
LAVIE Direct DT PC-GD298ZZAL...
-
代替機にキズ
-
PCのキーボード故障でメーカ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel で行を指定回数だけコピ...
-
excelの差込印刷で可視セルだけ...
-
Excel VBA インデックスの境...
-
エクセル:VBAで月変わりで、自...
-
VBA別シートの最終行の下行へ貼...
-
VBA:同じ文字列データの比...
-
エクセルVBAで 2種のリストを...
-
エクセルVBA 別シートの複数の...
-
歯抜けの時間を埋めて行の挿入
-
エクセルVBAで SendKeys "{TAB}"
-
エクセル2007で、マクロで、結...
-
VBA 貼付先範囲(行)がいっぱ...
-
vbaでコントロールブレイク
-
エクセルVBAでの日付順のデ...
-
Excel VBAでシート内全体に非表...
-
《エクセル》リストから同じ分...
-
Excelマクロ データが上書きさ...
-
VBAの処理が途中で止まる
-
エクセルVBAで実行時エラー...
-
EXCELマクロで全シート対...
おすすめ情報