・Excel(M365)で、添付ファイルのようなVLOOKUP処理を作りたい(VBAで)のですが、作り方についてお教えいただけませんでしょうか
・具体的に実施したいこととしては、①Sheet1のE列と、Sheet2のC列をマッチングし、Sheet1のJ列の値を、Sheet2のM列へ転記する。その際、Sheet1にデータ重複している場合(例:CCC,DDD)、そのデータの最下行の値を転記する(例:CCC→400、DDD→700)②この重複データについては、アラームのため、該当するSheet2のB~C列を赤くセル反転させる。
・上記マッチングしない場合は、Sheet2へは特に転記はしない(例:EEE)
・何卒、よろしくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
>VLOOKUP処理を作りたい(VBAで)
ソートなどをしても単純にVLOOKUPで出来る処理ではないと思いますよ
画像が細かくてよく分からないけれど
Sub test()
Dim Dic As Object
Dim ky As Variant
Dim i As Long
Set Dic = CreateObject("Scripting.Dictionary")
'データを取得
With Worksheets("Sheet1")
For i = 2 To .Cells(Rows.Count, "E").End(xlUp).Row
ky = .Cells(i, "E").Value
If Not Dic.Exists(ky) Then
Dic.Add ky, .Cells(i, "J").Value
Else
Dic.Item(ky) = .Cells(i, "J").Value & "|"
End If
Next
End With
'条件に合わせて出力
With Worksheets("Sheet2")
For i = 2 To .Cells(Rows.Count, "C").End(xlUp).Row
ky = .Cells(i, "C").Value
If Dic.Exists(ky) Then
.Cells(i, "M").Value = Split(Dic.Item(ky), "|")(0)
If UBound(Split(Dic.Item(ky), "|")) = 1 Then
.Cells(i, "B").Resize(, 2).Interior.ColorIndex = 3
End If
End If
Next
End With
Set Dic = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでvlookup関数から、別シート参照するやり方・・・ 2 2022/11/14 18:49
- Excel(エクセル) LOOKUP関数を使えばいいのでしょうか。 2 2024/05/08 20:49
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) VBA 別sheetからの転記なのですが 2 2023/05/22 15:55
- Visual Basic(VBA) VBAを教えていただきたいです。 添付のような「data sheet」があります。 他に、「集計 s 2 2023/11/07 12:51
- Excel(エクセル) 関数を教えていただきたいです。 添付のような「data sheet」があります。 他に、「集計 sh 3 2023/11/02 17:11
- Excel(エクセル) エクセルの日付抽出 2 2023/02/03 15:02
- Excel(エクセル) VBA Private Sub Worksheet_Changeで 1 2024/05/01 16:59
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBAコードで教えて下さい!
Visual Basic(VBA)
-
Excel 範囲指定スクショについて Excelで範囲指定してスクリーンショットする機能がありますが
Visual Basic(VBA)
-
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
-
4
Word VBA MSGBOX 内で降順表示
Visual Basic(VBA)
-
5
VBA一覧取得 再投稿
Visual Basic(VBA)
-
6
VBAでCOPYを繰り返すと、処理が途中でアイドルする原因はなんでしょうか
Visual Basic(VBA)
-
7
WORD VBA プログラム修正をお願いします。
Visual Basic(VBA)
-
8
vba 削除
Visual Basic(VBA)
-
9
テキストファイルのフィールド行のみ削除したい
Visual Basic(VBA)
-
10
VBAを使用した時間管理
Visual Basic(VBA)
-
11
VBA指定行削除
Visual Basic(VBA)
-
12
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
13
VBの色を変えるにはどうしたらいいですか?
Visual Basic(VBA)
-
14
VBAユーザーホームテキストボックスにカーソルを自動で表示したい
Visual Basic(VBA)
-
15
VBA(えくせる)ってなんでメンテできない人が多いんですか?
Excel(エクセル)
-
16
エクセルで質問です。添付したように枠を設定する方法を教えて下さい
Excel(エクセル)
-
17
Excelで、10000,20000,30000と表示されているのですが、時々10000,20000
Excel(エクセル)
-
18
VBAで質問があります
Visual Basic(VBA)
-
19
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
-
20
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
空白セルをとばして転記
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
文字列の結合を空白行まで実行
-
VBAでのリスト不一致抽出について
-
VBマクロ 色の付いたセルを...
-
vbaでシートより100より大きい...
-
エクセルVBAで『A列』に新...
-
URLのリンク切れをマクロを使っ...
-
SUM関数の範囲を変数を代入して...
-
マクロ 最終列をコピーして最終...
-
Changeイベントでの複数セルの...
-
グリッドの列の最大値を求めたい。
-
VBAで重複データを確認したい
-
IIF関数の使い方
-
VBAで、離れた複数の列に対して...
-
VBAを使って検索したセルをコピ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
マクロ 最終列をコピーして最終...
-
VBAを使って検索したセルをコピ...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
Excel(M365) Vlookup/セル反転(...
-
VBA指定行削除
-
VBAでのリスト不一致抽出について
-
C# dataGridViewの値だけクリア
-
Changeイベントでの複数セルの...
-
VBAで、特定の文字より後を削除...
-
rowsとcolsの意味
おすすめ情報