《エクセル》リストから同じ分類のデータのみコピーする

質問

いつもお世話になります。

別のシートに、下記の形のリストがあります。

　列Ａ　　　列Ｂ　　　列Ｃ　　　列Ｄ
（商品名）（大分類）（中分類）（売上金額）
　商品Ａ　　　あ　　　　Ａ　　　 1000
　商品Ｂ　　　あ　　　　Ｂ　　　　900
　商品Ｃ　　　い　　　　Ａ　　　　800
　商品Ｄ　　　あ　　　　Ａ　　　　700
　商品Ｅ　　　あ　　　　Ｃ　　　　600
　商品Ｆ　　　あ　　　　Ｆ　　　　500

マクロを組んで、このリストの大分類が"あ"、中分類が"Ａ"に該当する商品名と売上金額のみをコピーして、今開いているシートの列Ａ・列Ｂに連続したデータとして貼り付けたいのですが、うまくいきません。

ご教授宜しくお願い致します。

回答No.3

imogasi · ベストアンサー

Ｓｈｅｅｔ２にリストがあるとき、Ｓｈｅｅｔ３へ抜き出します。
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("sheet2")
Set sh2 = Worksheets("sheet3")
j = 1
d = sh1.Range("a1").CurrentRegion.Rows.Count
For i = 2 To d
If sh1.Cells(i, "B") = "あ" And sh1.Cells(i, "C") = "Ａ" Then
sh2.Cells(j, "A") = sh1.Cells(i, "A")
sh2.Cells(j, "B") = sh1.Cells(i, "D")
j = j + 1
End If
Next i
End Sub

お礼

お礼が遅くなりまして申し訳ございません。
他の業務で急遽入って、本日の時点で、まだ試せていないのです・・・。

ですが、いただきました回答をもとに、後は自分で頑張ってみます。

ありがとうございました。

回答No.2

murachan

＃１です。

頭にサブルーチン名を付け忘れてますね。

sub a()

が必要です。すみませんでした。
ちなみに、今エクセル環境がないので、未確認です。

回答No.1

murachan

worksheets("sheet2").activate

i=1
j=1

do

if worksheets("sheet1").cells(i,2)="あ" then
if worksheets("sheet1").cells(i,3)="A" then
cells(j,1)=worksheets("sheet1").cells(i,1)
cells(j,2)=worksheets("sheet1").cells(i,4)
j=j+1
endif
endif

i=i+1

loop until i=500

end sub

でいいんじゃないでしょうか。自信ありませんが。

お礼

お礼が遅くなりまして申し訳ございません。
他の業務で急遽入って、本日の時点で、まだ試せていないのです・・・。

ですが、いただきました回答をもとに、後は自分で頑張ってみます。

ありがとうございました。