|
▼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セルに○を表示します。行ごとに繰り返ししていきます。
|
|