![見出し画像](https://assets.st-note.com/production/uploads/images/62897260/rectangle_large_type_2_34e43eb1b2339a3d2c9dc27bea83aed4.png?width=1200)
【マクロの成長記録:3日目】二重ループの練習
どーもKiyotomoです。
3日目になりました成長記録。
1ヶ月間を目標にしてますが、まずは1週間を乗り切りたいとこです。
本日は在宅勤務です。
でも、仕事が終わるのはいつも通りの21時過ぎでした。
めげずに引き続き、毎日マクロに取り組んでいきます。
(詳細はこちらの記事になります)
3日目の問題
取り組みはこちらの問題になります。
▼今日の参考問題
https://excel-ubara.com/excelvba9/EXCELVBA603.html
2重ループ
実務でこんな百マス計算を使う事はないですが、
上下左右にデータを繰り返し入れていくような作業はあるので
覚えてて損はなさそうなコードです。
記載したコード
Sub 練習3()
Dim i As Long
Dim m As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For m = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
Cells(i, m) = Cells(i, 1) * Cells(1, m)
Next m
Next i
End Sub
こちらのコードで無事にいけました。
昨日書いた、最終行の取得を応用して、
最終列の取得もやってみましたが、上手くいきました!
今日は以上です。
継続重視の為、文章は短めでいきます。
これからマクロを始めようという方はぜひ、一緒に頑張りましょう!
最後まで読んで頂き誠にありがとうございましたー!
よろしければサポートセンターお願いいたします! 頂いたサポートはクリエイターとしての活動費として使わせて頂きます