Sub 二重ループで東京観光()
'ループのカウンタ変数iとjを宣言
Dim i As Integer, j As Integer
'シート「東京観光」をアクティブにする
Worksheets("東京観光").Activate
'表の右1つ開けてセルD1をアクティブにする
Range("D1").Activate
'外側のループのカウンタ変数iで「観光地」を表す
For i = 1 To 10 Step 3
'内側のループのカウンタ変数jで「やること」を表す
For j = 1 To 3
'アクティブセルに「観光地」と「やること」を出力する
ActiveCell.Value = Cells(i + 1, 1).Value & Cells(j + 1, 2).Value
'セルを1つ下に移動する
ActiveCell.Offset(1, 0).Select
'内側ループを進める
Next j
'内側ループを抜けて外側ループに入る
'もしもi<10場合は、次の観光地に移る前に1行空ける
If i < 10 Then
ActiveCell.Offset(1, 0).Select
End If
'外側ループを進める
Next i
End Sub
動画登録者20万越えの教育系YouTuberでお馴染み、Yousefulの長内孝平氏、神川陽太氏のExcelとスプレッドシートの本では、「現場の教科書」というタイトルが付いてある通り、実務に直結した内容をまずは本で要点を掴んで、動画で詳しく解説して下さっています。 個人的にはお二人の動画最後の「See you next time! Bye Bye!!」が好きで勉強のモチベーションが上がる教材です。
動画登録者20万越えの教育系YouTuberでお馴染み、Yousefulの長内孝平氏、神川陽太氏のExcelとスプレッドシートの本では、「現場の教科書」というタイトルが付いてある通り、実務に直結した内容をまずは本で要点を掴んで、動画で詳しく解説して下さっています。 個人的にはお二人の動画最後の「See you next time! Bye Bye!!」が好きで勉強のモチベーションが上がる教材です。