Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10805 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 だと　うまく行きません。
例えば　Ａ列１０行目まで数字が入っていて、５行目まで選択されている時
１１行目を拾いたいのですが６行目になります。
この様な場合どうすればよいのでしょうか？お教え下さい。
【19815】Re:最終行の拾い方
回答  つん E-MAIL  - 04/11/17(水) 15:49 -
引用なし
パスワード
   こんにちは＾＾

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

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 だと　うまく行きません。
>>例えば　Ａ列１０行目まで数字が入っていて、５行目まで選択されている時
>>１１行目を拾いたいのですが６行目になります。
>>この様な場合どうすればよいのでしょうか？お教え下さい。
>
>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
>とかでどうでしょうか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10805 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free