指定の行のデータがある最終列を取得したい

Question

データが追記されると右の列へ追記される表が有り、データの有る最も右側の列の列番号を取得したく以下のコードを作成しました。

co = Cells(g, 1).End(xlToRight).Column

最右列の間には、空欄もあるので、右側からカウントする方法での行番号の取得を目指したのですが、うまく行きません。
（実際はI列（9）なのですが2と表示されます。）

初歩的な質問かもしれませんが、なぜ違う数値が表示されるのか分からず質問いたしました。
原因や改善方法のご助言いただければ幸いです。

よろしくお願いします。

Comments

[meg_]

gの値は想定通りになっていますか？

[ice930]

再確認しましたが、gは問題なく指定の数値が入っていました。
最終行以降にも「枠のみのセル」は存在しますが、2とはならないはず・・・とはおもうのですが・・・。
コード自体の解釈として、セル（g,1）の有る行を右（最大値）から数えて「データが存在するセルで止まる」という解釈で間違えてはいないでしょうか？

Answer 1

すみません。何をなさりたいのかがよくわかりません。
添付図で
G=2の時、co=7
G=3の時、co=4
G=4の時、co=5
を取得したいのとは違うのでしょうか。
そうであれば、実際の図を提示して示されると、良い回答が得られるかと。

Answer 2

今やっている方法は、指定行の1列目Cells(g,1)を起点に右方向xlToRightに向かって最終地点を探す方法で、真逆のことをやっています。
シート内最終列Columns.Countから左方向xlToLeftに向かって最終地点を探すと次のようになります。

co = Cells(g, Columns.Count).End(xlToLeft).Column

Comments

[退会済みユーザー]

最終列に空欄があるらしいです。
その方法でやると全行ループして最大値を取らないとだめです。

[ttyp03]

「指定の行のデータがある最終列」なので、空欄があっても構わない、というか空欄を飛ばして値が入っている最後のセル位置を求めるという動作なんですが、何がダメなのかいまいちピンときていません。
また「指定の行」の話なので、全行ループの話もなぜ出てくるのでしょうか？

[退会済みユーザー]

失礼しました。
質問本文に「指定の行」という語句が見当たらなかったので見落としていました。
行が固定されているのであれば全く問題ないですね。

[ice930]

右と左間違えて覚えていました…
分かりづらい説明にも関わらず皆さん回答ありがとうございました！

Answer 3

co = Cells(g, Columns.Count).End(xlToLeft).Column
ではいかがでしょうか。

Comments

[kikukiku]

質問者さんのコメントは右から左へ検索と書いてあるのですが、
式はその逆になっていたので、同じ回答を考えました。
ただ、気になる点として、
Cells(g, Columns.Count)に、値が入っていた場合、
問題になるかなと思いました。
Cells(g, Columns.Count)に値が入っていないことが前提の式なので、
値が入らないようにColumns.Countを調整する必要があるかなと。
質問者さんの運用しだいなのですが、、、、

[kikukiku]

すみません。Columns.Countは最終列なのですね。
勘違いしました。
取り下げます。

[退会済みユーザー]

最終列に空欄があるらしいです。
その方法でやると全行ループして最大値を取らないとだめです。

と考えましたが、特定の行に対してであれば問題ないですね。

Answer 4

もし空行が存在しないことが前提の環境であれば、
適当にフィルターを掛けるだけで最終列取れますよ。

フィルターを掛けると空行がない限り空欄を含めて最終列までフィルター掛かりますよね。
質問文からして、途中に空列は無い様ですので。

で、「シート.AutoFilter.Range.Address」を見れば
「$A$1:$F$14」こんな感じのアドレスが取れます。

Addressの ReferenceStyle に xlR1C1 を指定すれば
「R1C1:R14C6」こんな感じでも取れますね。

後は文字列検索でF列とか列番号6とか分かりますね。
で、使わないのであればフィルターを解除して終わりです。

Comments

[ice930]

回答ありがとうございます。
最右列の間には、空欄（列、行についても）があり、「変数g」にある行を右側から数える方法を取っていました。
co = Cells(g, 1).End(xlToRight).Column
の式で空欄以外でもｶｳﾝﾄが続いてしまう原因など心当たりが在りましたらご助言いただければ幸いです。
「全て半角英数の場合は反応しない」などの場合も有るでしょうか・・・。

[退会済みユーザー]

最右列に空欄や空行があっても関係ないです。
1行丸ごと空行にならない限り有効です。

1行丸ごと空行が存在し得るんですか。

[退会済みユーザー]

質問本文中に「指定の行」というキーワードが存在しなかったのでその前提なしに回答してました。

このやり方でも取得できますが非常に回りくどいので、
行が特定されているのであれば Columns.Count から左方向への検索の方がいいです。

なお、一回指摘がありましたが Columns.Count に値が入り得るのであれば、
Columns.Count が空欄であるか確認した方が確実です。