|
Jaka さん、こんにちは。
>▼hinerikomi さん:
>>Range("A1":"C4")のエリアに、4列目で改行するようにして
>>各セルに1〜10の数字を出力させようとしています。
>>すなわち
>>Range("A1") = 1
>>Range("A2") = 2
>>Range("A3") = 3
>>改行して
>>Range("A2") = 4
>>……………………
>>……………………
>>Range("A4") = 10
>>という具合です。
>
>すみません。
>上の意味がわかりません。
>Range("A2") = 2
>Range("A2") = 4 改行せずに同じ所に書き込んでますが
非常に申し訳ありません。
Range("A1") = 1
>>Range("B1") = 2
>>Range("C1") = 3
>>改行して
>>Range("A2") = 4
>>……………………
>>……………………
>>Range("A4") = 10
>>という具合です。
が正しい記述です。
>こう言う事なんでしょうか?
>Dim Cel As Range
>For Each Cel In Range("A1:C4")
> ct = ct + 1
> Cel.Value = ct
>Next
>
>同じですが、
>For i = 1 To 4
> For ii = 1 To 3
> CT = CT + 1
> Cells(i, ii).Value = CT
> Next
>Next
ありがとうございます。
そのとおりです。
|
|