ExcelVBAが25項目目で終了する。

質問

以前に以下の様な質問を致しました。
　　　↓

下記の様なデータがあるときに、部活が「野球」でかつクラブは「囲碁」に入っている生徒の学籍番号を別のシート(Sheet2)のB3から下に順にリスト化するマクロがどうしても出来なくて困っています。

<sheet1>
　　　A　　　　　　B　　　　　　C　　　　　　　D　　　　E

１　学籍番号　学年　　　　名前　　　　　部活　　　クラブ
２　2222222　　　1　　　山田　太郎　　野球　　　囲碁
３　9854923　　　2　　　吉田　次郎　　剣道　　　絵画　　
４　1111111　　　3　　　佐藤　三郎　　野球　　　囲碁
５　8888883　　　1　　　米山　権蔵　　卓球　　　囲碁

<ご回答いただいた内容>

Sub test()
Dim i, k As Long
Dim ws As Worksheet
Set ws = Worksheets(2)
k = 2
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 4) = "野球" And Cells(i, 5) = "囲碁" Then
k = k + 1
ws.Cells(k, 2) = Cells(i, 1)
End If
Next i
End Sub

上記、マクロを多少編集し、運用してみた結果、項目が25項目目までは正しく反映されるのですが、それ以降のデータは一切反映されないことが判明しました。
構文とにらめっこしても何故25項目目で終了するのかが分からなかったので、もしお分かりになれば教えて頂ければ幸いです。

もし情報が不十分なら、追って私のオリジナルもアップするように致します。

回答No.3

tom04 · ベストアンサー

こんばんは！
おそらく私が前回投稿した張本人だと思います。
（昨日の晩飯のおかずも覚えていないので・・・）

考えられる原因はNo.1さんとNo.2さんがすでに仰っていますので、

他の原因として考えられるとすれば、
D列・E列セルにちゃんと「野球」「囲碁」と表示されていても空白等、
目に見えない余分なものがある可能性があります。

そして前回のコードは変数の宣言部分に不備がありました。

仮に、D・E列に余計なものがあっても「野球」・「囲碁」という文字があれば
Sheet2に表示するコードにしてみました。
↓のコードに変更してマクロを実行してみてください。

Sub Sample()
Dim i As Long, cnt As Long
Dim wS As Worksheet
Set wS = Worksheets("Sheet2")
cnt = 2
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If InStr(Cells(i, 4), "野球") > 0 And InStr(Cells(i, 5), "囲碁") > 0 Then
cnt = cnt + 1
wS.Cells(cnt, 2) = Cells(i, 1)
End If
Next i
End Sub

※　これでもダメならごめんなさいね。m(_ _)m

お礼

何度もありがとうございます。色々とした結果一部範囲指定に誤りがあることが判明致しました。その部分を修正すると25行目以降も正常に処理が出来ました。有難う御座いました。

補足

tom04 様
確かに以前に教えて頂いたものです。その節は大変お世話になりました。また今回も私の力不足で再度お答えいただく形になり申し訳ありません。
確かにおっしゃる通りの空白部分も疑いましたが正しく反映される部分と同じデータを引っ張ってくるように設定していますので、可能性は低いかと思います。
まずは再度、ご教授頂きましたマクロを活用させていただきたいと思います。また、その上でご報告させて頂きます。

回答No.4

ss-ak

1です。

直接の回答ではないのですが、VBAには簡単に使える、かなり良いデバッガがついています。
変更後のソースを抜粋するのが手間でしたら、それを使って自分で動きを追ってみる方が、早くて確実かもしれません。VBAのデバッガは難しいものではないので、VBAを今後も使われるのでしたら、使ってみることをおすすめします。
ご参考までに。

補足

アドバイス有難うございます。私のやり方が不十分かもしれませんが、それもやってみましたが問題の項目は一処理ですべて終わってしまいまして、VBA自体は正常に働いている(つもりの)ようです。当然、エラーも出ません。

回答No.2

n-jun

Ｓｈｅｅｔ２のＡ列に２５行目までデータがあって
それ以降データがないならそのせいかも？
⇒マクロを実行した際にＳｈｅｅｔ１がアクティブでなく
Ｓｈｅｅｔ２がアクティブだと起こりうる。

補足

ご回答ありがとうございます。
25行目以降にもビッチリデータは入っております。

⇒マクロを実行した際にＳｈｅｅｔ１がアクティブでなくＳｈｅｅｔ２がアクティブだと起こりうる。

とのことですが、他のケースでもアクティブSheetの問題で25行目までだけ正確に反映されるということが起こりうるのでしょうか？

回答No.1

ss-ak

このソースを見た限りでは、実際のデータでは、25項目目以降のA列の値が全て空になっている、という原因しか思い当たりません。

変更後のソースでは、転記している値はA列以外、ということですか？

変更後のソースと、実際の表の書式を提示していただければ、確実なことが言えるかもしれません。

実は、これはマクロなしでも行えます。
オートフィルタで、条件に合う行を抽出して、抽出結果の学籍番号をコピー＆ペーストすれば、目的の結果が得られます。

余談：教えてもらったものを加工して、それを「オリジナル」と称するのは、教えてくれた人に、非常に失礼です。正しい意味をご存知ないだけだろうと思いますが、かなりまずい誤用なので、注意された方がよいかと。

お礼

大変失礼しました。
ちなみに編集したものは他のマクロや関数とも連動しており、オートフィルタだけでは解決できない部分がありまして…
ちなみに当然25列目以降も値はビッチリ入っています。
私が加工したものをここに記載するのと、あまりに量が多くなりますので、ベースは崩さず編集出来ましたら再度うかがわせて頂きます。本当に有難うございます。