![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
No.2ベストアンサー
- 回答日時:
TEST01のA列とTEST02のG列が全て一致したらじゃないですよね?
TEST01のA列にあるデータと同じものがTEST02のG列のどこかの行にあれば、TEST02のL列にTEST01のB列の値をひっぱってくればいいんですよね?
二つのファイルともデータはSheet1にあるものとしてマクロを書いてみました。
両方のファイルを開いてから実行してくださいね。
Sub TEST01()
Set d1 = Workbooks("TEST01.xls").Sheets("Sheet1")
Set d2 = Workbooks("TEST02.xls").Sheets("Sheet1")
R = d2.Cells(65536, "G").End(xlUp).Row
For i = 1 To R
Set x = d1.Columns("A").Find(What:=d2.Cells(i, "G"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not x Is Nothing Then
d2.Cells(i, "L") = x.Offset(0, 1)
End If
Next i
End Sub
No.4
- 回答日時:
マッチングやその前提となる条件を示した方が良いかと思います。
1. 完全一致?部分一致?
2. 比較するのは数値?文字列?
3. 全角・半角・大文字・小文字の区別は?
などです。
、、と、ここまで言ってなんなんですが、ご質問文から読み取る限り、普通にVLOOKUP関数でいける気がします。
例えば、TEST02.XLSのL1セルに
=VLOOKUP(G1,[TEST01]Sheet1!$A:$B,2,FALSE)
理由があって、VBAで行う必要があるのですか?
VBAでやるにせよ、難しく考えず、VBAでVLookupワークシート関数を使い、返された値を書き込む処理をループさせるだけで良いと思います。
勘違いでしたら、申し訳ありません。
No.3
- 回答日時:
一番確実なのは、
TEST01.XLS はA列で
TEST02.XLS はG列で
昇順にソートします。
あとはマッチングのロジックで比較して一致した時だけ
01のB列を02にもっていけば良い。
「マッチングのロジック」が判らなければ、情報処理の受験参考書やコボルの本によく載っています。
ソートは自分で自作するのも面倒で、エクセルに読みこませてやるか、DOSのSORTコマンドを使うことになるのかなと思います。
No.1
- 回答日時:
ベタに作ってみました。
'-------------------↓↓↓
Sub MacroSample()
'EXCELブック TEST01,TEST02は開いておくこと
Set xlWB_TEST01 = Workbooks("TEST01.xls")
Set xlWB_TEST02 = Workbooks("TEST02.xls")
blnMatch = True
For I = 1 To xlWB_TEST01.Sheets(1)_
.Range("A:A").End(xlDown).Row
'A列の最下行まで
'TEST01のA列の値とTEST02のG列の値が一致しているか調べる
If xlWB_TEST01.Sheets(1).Cells(I, 1).Value <> _
xlWB_TEST02.Sheets(1).Cells(I, 7).Value Then
blnMatch = False
Exit For
End If
Next I
If blnMatch Then
'一致していた場合
For I = 1 To xlWB_TEST01.Sheets(1).Range("A:A").End(xlDown).Row
'TEST01のB列の値をTEST01のL列にセット
xlWB_TEST02.Sheets(1).Cells(I, 12).Value _
= xlWB_TEST01.Sheets(1).Cells(I, 2).Value
Next I
End If
End Sub
'-------------------↑↑↑
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Visual Basic(VBA) エクセルVBA Workbook変数に変数を使ったファイル名を格納したい 5 2023/06/13 14:46
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) エクセルVBA 既存エクセルを開きその中のシートとしてCSVファイルを開く 3 2023/05/31 13:11
- Visual Basic(VBA) Excle VBA Findメソッドについて 3 2022/07/15 13:56
- Visual Basic(VBA) エクセルのマクロについて質問があります。 現在は下記のマクロでエクセル表を保存しています ThisW 2 2022/09/16 11:22
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Access(アクセス) Access2016のExcelインポートの機能のことで教えてください 1 2022/09/11 14:58
- Excel(エクセル) フォルダ階層が深いファイルの拡張子の一括変換 2 2022/12/23 18:40
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「段」と「行」の違いがよくわ...
-
エクセルで離れた列を選択して...
-
列方向、行方向の定義
-
土日の列幅の自動変更を教えて...
-
横軸を日付・時間とするグラフ化
-
LEFT関数とIF関数の組み合わせ...
-
エクセルマクロPrivate Subを複...
-
エクセルのソートで、数字より...
-
エクセル マクロ 範囲指定で...
-
Accessのレポートで繰り返し表...
-
ListViewで列を指定して表示さ...
-
EXCELを最大にて開いた際、特定...
-
VBAで結合セルを転記する法を教...
-
Excel文字列一括変換
-
VLOOKUPの列番号の最大は?
-
VBA 指定した列にある日時デー...
-
CSVファイルの「0落ち」にVBA
-
エクセルで?
-
Excelの行数、列数を増やしたい...
-
csvに別のExcelの文章を差し込む
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「段」と「行」の違いがよくわ...
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
LEFT関数とIF関数の組み合わせ...
-
VBA 指定した列にある日時デー...
-
Excelの行数、列数を増やしたい...
-
エクセル マクロ 範囲指定で...
-
列方向、行方向の定義
-
Excel文字列一括変換
-
エクセルのソートで、数字より...
-
エクセルマクロの組み方
-
エクセルでセル12個間隔で合...
-
VBAで結合セルを転記する法を教...
-
エクセルマクロPrivate Subを複...
-
ListViewで列を指定して表示さ...
-
エクセルで最初の行や列を開け...
-
横軸を日付・時間とするグラフ化
-
CSVファイルの「0落ち」にVBA
-
VBAで別ブックの列を検索し、該...
-
エクセルの行を65536以上に増や...
おすすめ情報