No.1ベストアンサー
- 回答日時:
こんにちは!
一例です。標準モジュールにしてください。
Sub Sample1()
Dim myDic As Object
Dim i As Long, lastRow As Long
Dim myStr As String, wS As Worksheet
Dim myR
Set myDic = CreateObject("Scripting.Dictionary")
Set wS = Worksheets("一覧")
With Worksheets("品名マスタ")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
myR = Range(.Cells(2, "A"), .Cells(lastRow, "C"))
For i = 1 To UBound(myR, 1)
myStr = myR(i, 1) & "_" & myR(i, 2)
myDic.Add myStr, myR(i, 3)
Next i
End With
lastRow = wS.Cells(Rows.Count, "A").End(xlUp).Row
myR = Range(wS.Cells(2, "A"), wS.Cells(lastRow, "C"))
For i = 1 To UBound(myR, 1)
myStr = myR(i, 1) & "_" & myR(i, 2)
If myDic.exists(myStr) Then
myR(i, 3) = myDic(myStr)
Else
myR(i, 3) = ""
End If
Next i
Range(wS.Cells(2, "A"), wS.Cells(lastRow, "C")) = myR
Set myDic = Nothing
MsgBox "完了"
End Sub
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Excel(エクセル) ある数値に対して、値を返す数式についてです 2 2022/09/13 22:06
- Excel(エクセル) EXCEL 関数を教えてください。(A列の同じ値が複数ある場合vlookupで出来ますか) 4 2022/12/07 20:54
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) Excel>マクロ>特定のセルで同じ情報が登録されている行を1行にまとめたい(文字連結) 6 2023/01/05 16:30
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの入力規則で2列表示したい
-
複数の文字列のいずれかが含ま...
-
SUMに含まれる範囲から特定のセ...
-
スペースとスペースの間の文字...
-
Excel上でのデータ数字が連番で...
-
数式が入ったセルを含めて、数...
-
列の数字に100をかけたい
-
エクセル:横長の表を改行して...
-
エクセルでセルの値分の個数の...
-
HYPERLINKとADDRESSとMATCHの組...
-
エクセルのsumifでかけ算してか...
-
入退社日より各月末の在籍者数...
-
別のセルに値が入力されたら、...
-
EXCELでA列とB列の文字が合わせ...
-
エクセルで表示されている数字...
-
EXCELのハイホン区切りの数字並...
-
Excelにて、セルをダブルクリッ...
-
アルファベットを含む数をエク...
-
エクセルで既に入力済みの列の...
-
セルをダブルクリックで、画像...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数の文字列のいずれかが含ま...
-
Excelの入力規則で2列表示したい
-
SUMに含まれる範囲から特定のセ...
-
数式が入ったセルを含めて、数...
-
Excel上でのデータ数字が連番で...
-
エクセルでセルの値分の個数の...
-
C列にF列の担当者(A〜)を順番...
-
スペースとスペースの間の文字...
-
エクセル:横長の表を改行して...
-
列の数字に100をかけたい
-
エクセルで表示されている数字...
-
エクセルのsumifでかけ算してか...
-
「エクセル」特定の行(セル)...
-
エクセルで曜日に応じた文字を...
-
エクセルで小数を含む数値の抽出
-
データの入力規則 Excelです。 ...
-
エクセルで、毎日の走行距離(...
-
Excelのセル内文字の並び替えに...
-
エクセルで1列全部10倍したい
-
エクセルにデータを入力すると...
おすすめ情報