Excel VBA質問箱 IV

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

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


10804 / 13645 ツリー ←次へ | 前へ→

【19808】最終行の拾い方 hisao 04/11/17(水) 15:07 質問[未読]
【19815】Re:最終行の拾い方 つん 04/11/17(水) 15:49 回答[未読]
【19820】Re:最終行の拾い方 hisao 04/11/17(水) 16:04 発言[未読]
【19828】Re:最終行の拾い方 Asaki 04/11/17(水) 16:28 回答[未読]
【19831】Re:最終行の拾い方 hisao 04/11/17(水) 16:51 お礼[未読]

【19808】最終行の拾い方
質問  hisao E-MAIL  - 04/11/17(水) 15:07 -

引用なし
パスワード
   お世話になります。
都合があって 選択したテーブルの最終行の次にコピーしたいのですが
t=range("A1").end(xlup).row+1 だと うまく行きません。
例えば A列10行目まで数字が入っていて、5行目まで選択されている時
11行目を拾いたいのですが6行目になります。
この様な場合どうすればよいのでしょうか?お教え下さい。

【19815】Re:最終行の拾い方
回答  つん E-MAIL  - 04/11/17(水) 15:49 -

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

>t=range("A1").end(xlup).row+1 だと うまく行きません。
>例えば A列10行目まで数字が入っていて、5行目まで選択されている時
>11行目を拾いたいのですが6行目になります。
>この様な場合どうすればよいのでしょうか?お教え下さい。

t = Range("A65536").End(xlup).Row+1

でどうですか?
Endプロパティのヘルプを一度よく読まれたらええかな?と思います。

【19820】Re:最終行の拾い方
発言  hisao E-MAIL  - 04/11/17(水) 16:04 -

引用なし
パスワード
   ▼つん さん:
早速有り難う御座います。
すみません。
t = Range("A65536").End(xlup).Row+1
の記入ミスです。
こうしても表示行の最終行を拾ってしまいます。
表示されていない行も含めて最終行を拾いたいのです。


>こんにちは^^
>
>>t=range("A1").end(xlup).row+1 だと うまく行きません。
>>例えば A列10行目まで数字が入っていて、5行目まで選択されている時
>>11行目を拾いたいのですが6行目になります。
>>この様な場合どうすればよいのでしょうか?お教え下さい。
>
>t = Range("A65536").End(xlup).Row+1
>
>でどうですか?
>Endプロパティのヘルプを一度よく読まれたらええかな?と思います。

【19828】Re:最終行の拾い方
回答  Asaki  - 04/11/17(水) 16:28 -

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

>表示されていない行も含めて最終行を拾いたいのです。
この条件を先に言って頂かないとダメです。

t=[MAX(ROW(A1:A65535)*(A1:A65535<>""))]+1
とか、
オートフィルタで非表示なら
t=worksheets("Sheet1").autofilter.range.rows.count + 1
とかでどうでしょうか?

【19831】Re:最終行の拾い方
お礼  hisao E-MAIL  - 04/11/17(水) 16:51 -

引用なし
パスワード
   ▼Asaki さん:
有り難う御座いました。これでバッチリです。

>こんにちは。
>
>>表示されていない行も含めて最終行を拾いたいのです。
>この条件を先に言って頂かないとダメです。
>
>t=[MAX(ROW(A1:A65535)*(A1:A65535<>""))]+1
>とか、
>オートフィルタで非表示なら
>t=worksheets("Sheet1").autofilter.range.rows.count + 1
>とかでどうでしょうか?

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