Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9426 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

【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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9426 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free