Excelのお話 Part16の解答

こんにちは～ドットコムパソコン塾の徳丸です

Part16のマクロは解けましたか？

では、解答です。

コードは以下のとおりです。

Sub Sample()
    Dim i As Long
    Dim myRow As Long
   
    myRow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To myRow
        If Cells(i, 2) >= 1000000 Then
            Cells(Rows.Count, 4).End(xlUp).Offset(1) = Cells(i, 1)
            Cells(Rows.Count, 5).End(xlUp).Offset(1) = Cells(i, 2)
        End If
    Next i
End Sub

マクロを実行すると下図のようになります。

できましたか？

12日にUPした100万以下の売上を消すというマクロは

7桁未満を消すというマクロにしていましたが、

今回は100万円以上を取り出すというようにコードを記述しています。

それから、データ量の増減があっても、対応できるように

2列目の最終データ行は、myRowのように求めています。

どうですか？できましたか？

マクロは個人差があって、記述が多少異なることもありますが

結果が得られればいいのではないでしょうか？

また問題を考えておくので挑戦してみてくださいね～

HPはこちら

〒503-0204
岐阜県安八郡輪之内町四郷211-1
ドットコム・パソコン塾
TEL：0584-69-3839
開校日：月曜日～土曜日8：00～13：00
プライベートレッスン：月曜日～土曜日13：00～17：00
休校日：日曜日・祝日