| 
    
     |  | ▼Asaki さん: ありがとうございます。
 >横方向の右端セル位置は、1行目なら セルIV1からCtrl+← の操作で取得できます。
 >Range("IV1").End(xlToLeft).Column
 
 >>Offset(1, 10).Vaiue = " "
 >どこから Offest するのか、Offsetの前にセル(セル範囲)を指定する必要があります。
 >例えば、
 >Range("F1").Offset(1,1).Select
 >を実行してみて、どうなるか確認してみてください。
 
 申し訳はありませんが説明不足ですみませんでした。もう一度説明させていただきます
 
 セル範囲(B1:J1)の範囲の中で”1”があればK列に○を表示するマクロ計算させたいのです。(A:J)は変わりませんが行が空欄になるまで計算をさせたいのです。
 何か良い案がありましたらご指導お願いいたします。
 
 A  B C D E F G H I J K
 ss 2 2 3 5 2 1 2 3 2 ○
 ks 2 3 2 5 4 3 2 5 3
 sk 1 3 2 3 5 1 2 1 3 ○
 ms 3 2 3 5 3 2 4 2 3
 ai 3 5 3 2 4 2 3 3 4
 as 2 1 1 1 2 1 2 1 5 ○
 ・
 ・
 ・
 ・
 B:Jの範囲の中で”1”があればKセルに○を表示します。行ごとに繰り返ししていきます。
 
 
 |  |