お世話になります。
マクロ、難しいです、お力添えをいただけないでしょうか。
【やりたいこと】
商品にJANコードを付けているのですが、商品が目まぐるしく変わるためはたしてどのJANが使っていないJANコードかを2枚のシートで判別したく。
【流れ】
同一フォルダに2つのワークブックがあり、それぞれシートがあります。
①JAN付マスター(Sheet1シート)
②商品Master(春夏シート)
①はJANコードがあらかじめC5セルから下に1万行ほど入っています。
②はA列にJANコード、D列に品名、E列にサイズ、F列にカラーが入っています。
もし②で使用しているJANが①にあれば
②のE列(サイズ)を①のF列に、
②のD列(品名)とF列(カラー)を結合させ、①のE列に。
【問題】
一応ネット上で調べてマクロを書き換えたのですが、
①初歩的なことですが、7行目で
Set xlBook = Workbooks.Open("C:\★★\商品Master.xlsm")を、
Set xlBook = Workbooks.Open Filename:=ThisWorkbook.Path & "\商品Master.xlsm"
に変えたいのですが「構文エラー」となりどこが悪いか分かりません。
②とりあえず商品名だけでもと思い、vlookupを使ったマクロを試したのですが、「#N/A」が出るばかりです。
Option Explicit Sub Sample() Application.ScreenUpdating = False Dim I As Long Dim J As Long Dim xlBook Set xlBook = Workbooks.Open Filename:=ThisWorkbook.Path & "\商品Master(マクロ).xlsm") I = 2 J = 5 Do While Range("C" & J).value <> "" ThisWorkbook.Worksheets("Sheet1").Range("E" & J).value = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("C" & J).value, xlBook.Worksheets("春夏").Range("A:D"), 4, 0) I = I + 1 J = J + 1 Loop xlBook.Close Application.ScreenUpdating = True MsgBox ("完了") End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/01/13 07:55
2017/01/13 08:08
2017/01/13 08:26
2017/01/13 08:38
2017/01/13 10:03
2017/01/13 12:07
2017/01/15 14:20