> ++++++++++++++++++++++++++++―
> Sub Macro1()
> '
> a = ActiveCell.Value
> ActiveCell.Offset(1, 0).Activate
> For i = 1 To Len(a)
> ActiveCell.FormulaR1C1 = Mid(a, i, 1)
> ActiveCell.Offset(1, 0).Activate
> Next i
> Range("B4").Select
> End Sub
> ++++++++++++++++++++++++++++―
>
> ここでは、「なにを」 1 To Len(a) 回繰り返すように指示して
> いるのですか?
4)
続けて、このプログラムにもう少し手を加えてみたいと思います。
――――――――――――――――――――――――――――+
1.プログラムの画面に戻って、先ほど書き変えた行のすぐ上の
For i = 1 To 10
と書いてある行を
For i = 1 To Len(a)
と書き改めます。
――――――――――――――――――――――――――――+
↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑