Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8195 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【34804】データ処理プログラムについてのご質問 しろうと 06/2/13(月) 14:17 質問[未読]
【34808】Re:データ処理プログラムについてのご質問 Statis 06/2/13(月) 14:57 回答[未読]
【34809】Re:データ処理プログラムについてのご質問 Kein 06/2/13(月) 15:03 回答[未読]
【34810】Re:データ処理プログラムについてのご質問 しろうと 06/2/13(月) 15:19 お礼[未読]
【34804】データ処理プログラムについてのご質問
質問  しろうと  - 06/2/13(月) 14:17 -
引用なし
パスワード
   以下の処理を実現するプログラムをぜひ知りたいと思いまして、投稿させていただいました。　　　　　　　　　　　　　　　　
どなたかこの処理を実現するプログラムをお分かりになる方はいらっしゃいますでしょうか？　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　
A列の1行目〜N行目、B列の1行目〜N行目、C列の1行目〜M行目まで数字が記入してあります。
但し、A列,C列のそれぞれの列において重複する数字はないものとします。
　　　　　　　　　　　　　　　　
C列の数字とA列とを比較し、同じ数字があった場合にはA列と同行のB列の数字を、
C列のその数字と同行のD列に記入されるようにしたいのです。
もし、C列とA列の数字が同じものがない場合は、C列のその数字と同行のD行には-マークを記入します。　　　　　　　　　　　　　　　　
例えば、以下のようなセルがあった場合、　　　　　　　　　　　　　　　　

　　　　A　　　　B　　　　C　　　　D
1　　　　100　　　　10　　　　105　　　　
2　　　　101　　　　12　　　　117　　　　
3　　　　105　　　　15　　　　100　　　　
4　　　　117　　　　10　　　　120　　　　
5　　　　　　　　　　　　101　　　　
　　　　　　　　　　　　　　　　
あるマクロを実行すると、D列には次のように記入されるようにしたいのです。　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　
　　　　A　　　　B　　　　C　　　　D
1　　　　100　　　　10　　　　105　　　　15
2　　　　101　　　　12　　　　117　　　　16
3　　　　105　　　　15　　　　100　　　　10
4　　　　117　　　　16　　　　120　　　　-
5　　　　　　　　　　　　101　　　　12

以上、よろしくお願い致します。　　　　
【34808】Re:データ処理プログラムについてのご質問
回答  Statis  - 06/2/13(月) 14:57 -
引用なし
パスワード
   こんにちは

こんな感じです。

Sub test()
Dim C As Range, Ma As Variant
For Each C In Range("C1", Range("C65536").End(xlUp))
　　Ma = Application.Match(C.Value, Columns(1), 0)
　　If Not IsError(Ma) Then
　　　 C.Offset(, 1).Value = Cells(Ma, 2).Value
　　Else
　　　 C.Offset(, 1).Value = "-"
　　End If
Next C
End Sub
【34809】Re:データ処理プログラムについてのご質問
回答  Kein  - 06/2/13(月) 15:03 -
引用なし
パスワード
   手作業で数式を埋め込んでもいいのですが、あえてマクロでやるなら

With Range("C1", Range("C65536").End(xlUp)).Offset(, 1)
　 .Formula = "=IF(ISNA(MATCH($C1,$A:$A,0)),""-"",VLOOKUP($C1,$A:$B,2))"
　 .Copy
　 .PasteSpecial xlPasteValues
End With
Range("A1").Activate
Application.CutCopyMode = False

などとします。
【34810】Re:データ処理プログラムについてのご質問
お礼  しろうと  - 06/2/13(月) 15:19 -
引用なし
パスワード
   Statisさん・Keinさんへ

早速のご回答ありがとうございました！

無事、処理できることを確認致しました。

大変助かりました！

ほんとありがとうございました！！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8195 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free