連続データが入った行の一番右端の右側の空白セル

指定した行（連続データ）の一番右列の、その右横の空白セルを指定するマクロかVBAを教えていただけないでしょうか。

例えばA1～Ｃ1に連続したデータが入っているとしたらＤ１を、
A1～Ｅ１の時はＦ1などを調べたいのです。

連続データはＣ11までの場合もあれば、Ｇ１までのときなどもあり、様々で決まってはいません。
なにとぞよろしくお願いいたします。

No.1 回答者： mu2011 回答日時： 2011/09/27 17:53

一例です。

因みに１行目として、途中に未入力セルがあっても最右端の有効データの右隣セルとしています。
Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1)

この回答へのお礼

このようなやりかたもあるのですね。もっと勉強します。ありがとうございました！

お礼日時：2011/09/28 11:08

No.2 ベストアンサー 回答者： MackyNo1 回答日時： 2011/09/27 18:39

A列から右に連続したデータのｎ行目のデータ行の1つ右の空白セルを選択するなら、以下のようなコードで実行できます（nとSelectの部分を適宜変更してください）。

Cells(n, 1).End(xlToRight).Offset(, 1).Select

この回答へのお礼

ありがとうございました！とても助かりました！！

お礼日時：2011/09/28 10:48

No.3 回答者： keithin 回答日時： 2011/09/27 19:45

データがＡＢＣ…列に埋まっていることをありきでご質問されている様子に見えますが，Ａ列がさっそく空だった場合とか，Ａ列は埋まってるけどいきなりＢ列で空になっているといった状況では，思うとおりにはいかないので注意が必要です。

（いいかえると「運用で」ＡＢ列ぐらいはキチンと埋まっているという大前提を置いているのなら，あんまり気にしなくて良いということです）

簡単な作成例：
sub macro1()
　dim i as long
　for i = 1 to range("IV1").end(xltoleft).column
　if cells(1, i)="" then
　　cells(1, i+1).select
　end if
　next i
end sub

この回答へのお礼

今回以外でも活用できそうな事例をありがとうございました！

お礼日時：2011/09/28 11:00

No.4 回答者： imogasi 回答日時： 2011/09/27 20:05

こういう質問をする前に、エクセルを相当知っておる人なら

Ｚ１とかを選択しておいて、ＥＮＤキーを押して、左矢印キーを押せば目的のことが出来る。
（Ａ１，Ｂ１、Ｃ１が空白ではありえないときは、Ａ１セルを選択して、ＥＮＤを押して、右矢印キーを押す手もある）
これをマクロに記録を採ると（前者の方法）
Sub Macro4()
Range("Z1").Select
Selection.End(xlToLeft).Select
End Sub
これは結果が、セル選択なので、列番号取得なら
Sub test01()
Range("Z1").Select
Selection.End(xlToLeft).Select
c = Selection.Column
MsgBox c
End Sub
ーーー
言いたいことは
（１）エクセルの操作の勉強が不十分（ＶＢＡはエクセルを使うものです。エクセルの機能を知らないと、十分使えません。
（２）マクロの記録を活用できてない。（初心者はもっとこの機能に頼れるか考えたほうが良い。使えない場合も多々あるが）

この回答へのお礼

ありがとうございましたこれからもっと勉強したいと思います！

お礼日時：2011/09/28 11:03