範囲内でのジャンプ

質問

範囲内でのジャンプ

役に立った：0件

質問者：maki06
投稿日時：2008/01/28 15:38
困り度：

A1～M1の範囲内でA1をアクティブした時データが存在する
セルまでジャンプさせたいのですが
Selection.End(xlToRight).Select同様
右の最後列までではなくM1までと指定したいのですが
どのように記述すればいいのでしょうか？

自分なりに調べているのですが上手くいきません。
お分かりになる方がいらっしゃいましたら
ご指導ください。

この質問への回答は締め切られました。

回答(2件)

最新から表示
｜
回答順に表示

ANo.1です。
質問の趣旨がいまいち理解できません。
Selection.End(xlToRight).Selectは関係なくて、
単純にA1～M1のなかから空白を検索したいのですか？

下記のVBAはA1～M1の中から最初の空白のセルに対して
文字を貼り付けているプログラムです。

Dim column_index As Integer
'A列からM列を繰り返す
For column_index = 1 To 13 Step 1
'1行目固定で空白を検索
If (ActiveSheet.Cells(1, column_index).Value = "") Then
'貼り付け処理～
ActiveSheet.Cells(1, column_index).Value = "貼り付けされたよ"
Exit For
End If
Next column_index

通報する

質問者のみ：
この回答にお礼をつける

No.1

回答者：nakatyuu
回答日時：2008/01/29 12:59

Selection.End(xlToRight).Select
の実行前に、A～M列以外を「表示しない」にしてはどうですか？

VBAは作っていませんが
シート上のセルA1～Z1に数字の1～26を入力し、N列～Z列を「表示しない」にして、
セルA1上で「Ctrl」＋「End」キー押下し、M1セルに移動しましたが？

通報する

この回答への補足

ご返信ありがとうございます。
私も非表示にして試してみたのですが、
今回範囲指定する意味というのが
A1～M1の間でデータが存在するセルまで検索し、
その次のセルにデータを
貼り付けるという処理を加えています。
なのでM以降を非表示にしたとしてもN・O列・・にデータを貼り付けるという処理は繰りかえされてしまうんですよ。。