ID非公開
ID非公開さん
2022/5/29 16:08
1回答
VBAド初心者です。 画像のdata1ようにデータがあるとします。
VBAド初心者です。 画像のdata1ようにデータがあるとします。 B列、D列、F列をみて該当の月のデータがあるものだけ金額を別シートにコピーしたいのですがどのようなマクロになるか教えて頂けないでしょうか。 出来上がったデータはdata2のような形にしたいです。 恥ずかしながら全くの初心者の為、日付の列が1列の場合はできるのですが2列以上に増えた場合にわからず…どうかお力添え頂けますと幸いです。 出来上がったマクロを教えて頂ければ解説はなしでも結構です。勉強の為にも調べながら読解します。 よろしくお願い致します。
Visual Basic | Excel・57閲覧・100
ベストアンサー
試してみてください。 Sub test() Const m As Long = 7 '７月が検索月ですよ Dim i As Long, j As Long, k As Long, dg As Boolean, D, V D = Sheets("Sheet1").Range("A1").CurrentRegion ReDim V(1 To UBound(D), 1 To 4) k = 1 V(1, 1) = D(1, 1) V(1, 2) = D(1, 3) V(1, 3) = D(1, 5) V(1, 4) = D(1, 7) For i = 2 To UBound(D) If Month(D(i, 2)) = m Or Month(D(i, 4)) = m Or Month(D(i, 6)) = m Then k = k + 1 V(k, 1) = D(i, 1) For j = 2 To 4 If Month(D(i, 2 * j - 2)) = m Then V(k, j) = D(i, 2 * j - 1) End If Next End If Next Sheets("Sheet2").Activate Range("A:D").Clear Range("A2").Resize(UBound(D), 4) = V Range("A2").CurrentRegion.Borders.LineStyle = True End Sub
1人がナイス！しています
質問者からのお礼コメント
できました！！ありがとうございます！！！！！
お礼日時：5/29 19:18
