【マクロの成長記録：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

こちらのコードで無事にいけました。

昨日書いた、最終行の取得を応用して、
最終列の取得もやってみましたが、上手くいきました！

今日は以上です。
継続重視の為、文章は短めでいきます。

これからマクロを始めようという方はぜひ、一緒に頑張りましょう！
最後まで読んで頂き誠にありがとうございましたー！