セミナー無事終了！
受講生の皆さん、お疲れさまでした！

ちょっと押してしまい終わるのが遅くなってしまいましたが、福岡の方，大阪の方，茨城の方，東京近辺の方も無事お帰りになられたでしょうか？

今回のセミナーではご自宅での補習も重視していますので、お送りした動画と特典を活用して、復習プラスαの勉強を継続していただけますと幸いです。
(´▽｀)

いやぁ、、まだ5月だというのに暑いですね～。。
明日も真夏日ということですので、熱中症に注意しましょう。

ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟ

さて、前回の続きです。

前回のプログラムですが、繰り返されている部分は、

=============================================
Cells(5,1).Select
ActiveSheet.Paste
Cells(5,2).Select
ActiveSheet.Paste
Cells(5,3).Select
ActiveSheet.Paste
=============================================

と、赤いボールド文字で記載した部分ですよね。

この部分を、1，2，3，4，…と、50まで変更させながら繰り返すプログラムを作成してみましょう。
繰り返しの構文は、For～Nextでしたよね？
ですので、

=============================================
For i = 1 To 50

Cells(5, i).Select
ActiveSheet.Paste

Next i
=============================================

とすれば、OKです。
では、該当部分をこれに置き換えて全コードを確認してみましょう。

=============================================
Sub Macro1()
‘
‘ Macro1 Macro
‘
‘ Keyboard Shortcut: Ctrl+k
‘
Range(“A1:B1”).Select
Selection.Copy

For i = 1 To 50

Cells(5, i).Select
ActiveSheet.Paste

Next i

End Sub
=============================================

ここまでできたら動きを確認してみましょう！
5行目をクリアして何も表示されていない状態にしてください。

今回はたくさん走ることになりますので、それに加え、セル幅を狭くして最後まで確認できるようにしておきましょう。
A列からAZ列までのセル幅を、2.88ポイントにしてください。

それでは、
[CTRL]＋[k]キー！

たくさん走りましたでしょうか？

今回は、楽しく、繰り返しの構文とセル操作の勉強をしていただきました。
マクロも楽しくなってきましたか？？
(‘-^*)/