|
もう見て居ないかな?
ゴメン、Listの指定位置が間違っていました
'"対象マスター"データのA1を基準とします(列見出しのセル位置)
Set rngList1 = Worksheets("対象マスター").Cells(1, "C")
が
'"対象マスター"データのA1を基準とします(列見出しのセル位置)
Set rngList1 = Worksheets("対象マスター").Cells(1, "A")
とします、詰まり.Cells(1, "C")が.Cells(1, "A")と成ります
また、削除するシートの指定の部分も、シートを指定する変更部分がたりませんでした
'もし、逆に、"対象マスター"の其の行を削除すると言う事なら以下の様に修正してください
'"発注商品"のデータ列数(A列〜C列の3列)
Const clngColumns1 As Long = 3
'"発注商品"の比較Key列位置(基準からのA列「Jコード」の列Offset値)
Const clngKeys1 As Long = 0
'"対象マスター"のデータ列数(A列〜J列の10列)
Const clngColumns2 As Long = 10
'"対象マスター"の比較Key列位置(基準からのA列「Jコード」列Offset値)
Const clngKeys2 As Long = 0
'"対象マスター"の最終整列Key列(C列)
Const clngSort As Long = 2
'"対象マスター"データのA1を基準とします(列見出しのセル位置)
Set rngList1 = Worksheets("発注商品").Cells(1, "A")
'"発注商品"データのA1を基準とする(列見出しのセル位置)
Set rngList2 = Worksheets("対象マスター").Cells(1, "A")
|
|