ここから本文です

アクティブセルの最終列を検索する方法を教えてください。

kaidahikariさん

2010/3/2510:37:32

アクティブセルの最終列を検索する方法を教えてください。

Sub セル探し()

i = ActiveCell.Row

x = Cells(i, Columns.Count).End(xlToLeft).Column

Cells(x).Select

End Sub




アクティブセルの最終列を選択したいです。
上記の内容だと必ず1行目の最終列を選択してしまいます。

例えば
C5を選んでいたら5行目の最終列セル
A11を選んでいたら11行目の最終列セル
を選択するようにしたいです。


アクティブセル~最終列は空白セルが不規則に並んでいます。
そのため.End(xlToLeft)としています。

どこが間違っているのでしょうか・・・ご教授をお願い致します。

閲覧数:
395
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

2010/3/2510:51:58

Cells(x).Select

ではなくて

Cells(i, x).Select

ではないでしょうか

質問した人からのコメント

2010/3/25 14:03:21

驚く 出来ました!
ありがとうございました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

5文字以上入力してください

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。