| |
YOUSUKE さん、おはようございます。
>以下のコードのように、下の行を指定して
>その後、SELECTION でA列からZ列を範囲指定して、文字を入れたいのですが、
>SELECTIONでの範囲指定方法がわかりません。
>もしよろしければ、コードの書き方を教えていただけないでしょうか？
>（SELECTION以外の方法があれば、そちらでも結構です。）
>よろしくお願いします。
Selectしたいなら。
Sub Test1()
'セル範囲を横に26列に拡張します。省略した方（行）は元の大きさを保持します
Range("A65536").End(xlUp).Offset(1, 0).Resize(, 26).Select
End Sub
処理する時にSelectは不要な事が多いです（むしろしない方が処理がはやかったり）。
同じ値をいれるならば。
Sub Test2()
'一気に渡せる（時刻を入れてみたり）
Range("A65536").End(xlUp).Offset(1, 0).Resize(, 26).Value = Time
End Sub
違う値をいれるならば。
Sub test3()
Rpos = Range("A65536").End(xlUp).Offset(1, 0).Row
'行番号を取得してループします（アドレスを入れてみたり）
For Cpos = 1 To 26
Cells(Rpos, Cpos).Value = Cells(Rpos, Cpos).Address(False, False)
Next
End Sub
こんな感じです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 08/4/30(水) 5:43 -
