エクセルでデータの比較をしたいです。お教え頂けないでしょうか
エクセルでデータの比較をしたいです。お教え頂けないでしょうか
エクセルで2つのシートにある同一の商品コードと
在庫数を比較するマクロを作成中です。
シート1のA列にある商品コードとB列にある在庫数を取得し
シート2のA列にある商品コードから同じ商品コードを探します。
同一の商品コードがあった場合に在庫数を比較して
その数が減少していなければC列に次の処理を加える。
商品コードが合致した後は 処理を抜けて次の商品コードを比較させたいのですが
下行にある商品コードを探し続けてしまいます。(データの総当りとなる)
つきましては どの様に記述すれば良いのでしょうか
お教え頂けます様 よろしくお願い致します。
***********
Sub check1()
Dim kz1 As long 'シート1データ数
Dim kz2 As long 'シート2データ数
Dim st1 As String 'シート名
Dim dt1 As Variant '商品コード
Dim dt2 As Variant '在庫数
Sheets("sheet1").Select
st1 = ActiveSheet.Name
kz1 = Range("a65536").End(xlUp).Row
Range("a1").Select
ActiveCell.Offset(1, 0).Select
For a = 0 To kz1 - 2
Sheets(st1).Select
dt1 = ActiveCell.Value '商品コード
dt2 = ActiveCell.Offset(0, 1).Value '在庫数
Sheets("sheet2").Select
kz2 = Range("a65536").End(xlUp).Row
Range("a1").Select
ActiveCell.Offset(1, 0).Select
For b = 0 To kz2 - 1
'同一商品コードを検索
if activecell.value = dt1
'在庫数を比較
if activecell.value >= dt2
'在庫数が同じ もしくは増加していた場合に処理
'次の処理を追加
endif
else
ActiveCell.Offset(1, 0).Select
endif
Next b
Sheets(st1).Select
Next a
end sub
お礼
ありがとうございます!!資料まで添付してくださり、わかりやすいことこの上ないです!ピボットテーブル苦手なんでよくわからなかったんですが、早速やってみます。