いつもお世話になります。
別のシートに、下記の形のリストがあります。
列A 列B 列C 列D
(商品名)(大分類)(中分類)(売上金額)
商品A あ A 1000
商品B あ B 900
商品C い A 800
商品D あ A 700
商品E あ C 600
商品F あ F 500
マクロを組んで、このリストの大分類が"あ"、中分類が"A"に該当する商品名と売上金額のみをコピーして、今開いているシートの列A・列Bに連続したデータとして貼り付けたいのですが、うまくいきません。
ご教授宜しくお願い致します。
No.3ベストアンサー
- 回答日時:
Sheet2にリストがあるとき、Sheet3へ抜き出します。
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") = "A" 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.1
- 回答日時:
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
でいいんじゃないでしょうか。自信ありませんが。
お礼が遅くなりまして申し訳ございません。
他の業務で急遽入って、本日の時点で、まだ試せていないのです・・・。
ですが、いただきました回答をもとに、後は自分で頑張ってみます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) Excelで該当しない項目(#N/Aの商品名)を簡単に表示・抽出させる方法についてです 1 2022/08/25 22:12
- Visual Basic(VBA) VBAで質問があります 1 2022/10/19 10:32
- Visual Basic(VBA) 【VBA】指定した検索条件に一致したら別シートに転記したい 2 2022/03/23 16:14
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Visual Basic(VBA) VBAコードで質問があります 2 2022/10/20 15:27
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) 【条件付き書式】countifsで複数条件を満たしたセルを赤くする方法 2 2023/02/09 23:53
- Excel(エクセル) ある文字を含む際に、値を返す数式についてです 5 2022/08/28 16:58
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Visual Basic(VBA) vbaマクロについて シート1のA列にある商品コードが シート2のB列にある商品コードに該当する場合 2 2023/05/17 13:41
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA インデックスの境...
-
VBAで複雑な構成の転記
-
Excel で行を指定回数だけコピ...
-
【エクセル】 連続印刷する際の...
-
excelの差込印刷で可視セルだけ...
-
VBAで作成する勤務表の合計を求...
-
A列で同じ日付をグループ化し、...
-
VBA ブック1からブック2へ行...
-
Excelでデータの抽出&別シート...
-
AQUOS 602SH
-
エクセル 2つの表比較
-
シャープのアクオス sh-m25 を...
-
EXCELマクロで全シート対...
-
エクセルVBA 別シートの複数の...
-
Excel VBAでシート内全体に非表...
-
スマホ機種変更で旧機種のGoogl...
-
J-N51から911SHに機種変更・・...
-
SDカードからminiSDカードへ移す
-
PC修理の値段と技術について
-
FOMAカード(UIM)異常
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel で行を指定回数だけコピ...
-
エクセルVBA 別シートの複数の...
-
excelの差込印刷で可視セルだけ...
-
Excel VBA インデックスの境...
-
シャープのアクオス sh-m25 を...
-
VBA:同じ文字列データの比...
-
エクセル:VBAで月変わりで、自...
-
VBA別シートの最終行の下行へ貼...
-
エクセルVBAで 2種のリストを...
-
エクセルVBAで SendKeys "{TAB}"
-
VBAで条件が一致する行のデータ...
-
Excel VBAでシート内全体に非表...
-
歯抜けの時間を埋めて行の挿入
-
Excelマクロ データが上書きさ...
-
VBA 貼付先範囲(行)がいっぱ...
-
【WORD差し込み印刷】複数レコ...
-
EXCELマクロで全シート対...
-
エクセルVBAでの日付順のデ...
-
エクセル シート保護後コメン...
-
ノートパソコン 2in1について i...
おすすめ情報