Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1903 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【71127】End(xlUp)の挙動不審について かかこ 12/1/31(火) 10:57 質問[未読]
【71128】Re:End(xlUp)の挙動不審について かかこ 12/1/31(火) 11:15 発言[未読]
【71129】Re:End(xlUp)の挙動不審について kanabun 12/1/31(火) 11:35 発言[未読]
【71130】Re:End(xlUp)の挙動不審について Yuki 12/1/31(火) 11:49 回答[未読]
【71131】Re:End(xlUp)の挙動不審について かかこ 12/1/31(火) 12:57 お礼[未読]
【71127】End(xlUp)の挙動不審について
質問  かかこ  - 12/1/31(火) 10:57 -
引用なし
パスワード
   すみません、基本的なことかもしれないですがまたまたお願いします
下記のような表があるとします

　　 A　　　
1　すいか
2 （空白）
3　みかん
4　りんご
5　かぼちゃ
6 （空白）
7 （空白）
8　めろん
9 （空白）
　　 ・
　　 ・
20　合計

a = Range("A20").End(xlUp).Offset(1, 0).Row

とすると私としては9行目と認識してほしい
ですがコードを走らせるたびに1行目を認識したり9行目が認識されたりして安定しません。
aの値が9行目と認識させるにはどのようなコードを書けばいいのでしょうか？
【71128】Re:End(xlUp)の挙動不審について
発言  かかこ  - 12/1/31(火) 11:15 -
引用なし
パスワード
   何度もすみません。表が変だったので書き直しました。下記の通りです。

　　 A　　　
1　すいか
2 （空白）
3　みかん
4　りんご
5　かぼちゃ
6 （空白）
7 （空白）
8　めろん
9 （空白）
10（空白）
11（空白）
12（空白）
13（空白）
14（空白）
15（空白）
16（空白）
17（空白）
18（空白）
19（空白）
20　合計
【71129】Re:End(xlUp)の挙動不審について
発言  kanabun  - 12/1/31(火) 11:35 -
引用なし
パスワード
   ▼かかこ さん：

>ですがコードを走らせるたびに1行目を認識したり9行目が認識されたりして安定しません。
その (空白) となっているところすべてが 数式で "" となるようなIF関数が使ってあったり
すれば、1行目にジャンプしますが、
数式もなくほんとのブランクセルであれば、9が返ってくる以外、考えられない
のですが？
【71130】Re:End(xlUp)の挙動不審について
回答  Yuki  - 12/1/31(火) 11:49 -
引用なし
パスワード
   ▼かかこ さん：
>a = Range("A20").End(xlUp).Offset(1, 0).Row
>とすると私としては9行目と認識してほしい
>ですがコードを走らせるたびに1行目を認識したり9行目が認識されたりして安定しません。

多分該当シートがアクティブで無い為だと思われます。
シートを指定してあげましょう
a = worksheets("Sheet1").Range("A20").End(xlUp).Offset(1, 0).Row
とか
【71131】Re:End(xlUp)の挙動不審について
お礼  かかこ  - 12/1/31(火) 12:57 -
引用なし
パスワード
   お二方、ご回答ありがとうございます。うまくいきました。

kanabunさん
全くのブランクセルなのです。

Yukiさん
教えていただいたとおりにしましたらうまくいきました。


ありがとうございました。
又何かありましたらお邪魔します。よろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1903 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free