Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9405 / 13644 ツリー ←次へ | 前へ→

【27547】シートの最後のアドレス取得について HITSUJI 05/8/11(木) 14:46 質問[未読]
【27552】Re:シートの最後のアドレス取得について Jaka 05/8/11(木) 15:46 発言[未読]

【27547】シートの最後のアドレス取得について
質問  HITSUJI  - 05/8/11(木) 14:46 -

引用なし
パスワード
   こんにちは。

あるシートの最後のセルのアドレスを取得したいのです。
今は
StrLastCell = Sheets(1).Cells.SpecialCells(xlLastCell).Address
で取得しているのですが、本来のデータの最終セルより大きな範囲が
返ってきているのです。
使い方を間違えているでしょうか?
、あた上記以外に何か最後のセルを取得する方法はないでしょうか?

宜しくお願いいたします。

【27552】Re:シートの最後のアドレス取得について
発言  Jaka  - 05/8/11(木) 15:46 -

引用なし
パスワード
   こんにちは。
条件によっていろいろ変わるので、何を持って最後のセルとするのでしょうか?
例えば、こんな感じだとどれを最後のセルとするのでしょうか?
(罫線が含まれている、含まれていないでも変わりますのでその辺も...)

 A B C C E F G
1 x x      x
2     x x x
3  x x   x
4 x x x x x x x
5  x x
6     x   x
7  x

ほとんど同じみたいなものですが....。
With Sheets(1).UsedRange
   MsgBox .Cells(.Count).Address
End With

SpecialCells(xlLastCell).Address や
Sheets(1).UsedRange は、使った経歴のあるセルを(書式やフォントの変更等含む)対象としてしまいますから使い方を間違えるとちょっと面倒です。
面倒だから、こういうのもあるくらいです。

[XL2002] 「最後のセル」の位置を修正する方法
http://support.microsoft.com/default.aspx?scid=kb;ja;JP405492

9405 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free