ＥＸＣＥＬのマクロで。。。

質問

シートＡのセルＣ２の値（数字）を
シートＢのＥ、Ｆ、Ｇの各列のうち空いている一番左のセルで、かつ、Ｄ列に何か書いてある一番下の行のセル
に転記したいです。

たとえば、シートＢが図のような場合にはＦ２８です。これが毎回、変化します。

マクロの記述を教えて下さい。よろしくお願い致します。

回答No.1

fujillin · ベストアンサー

Ｄ列の一番下の記入セルは以下で求められます
　Cells(Rows.Count, 4).End(xlUp)
この行でＤ列以降の最初の空白セルは、隣り（Ｅ列）が空白でない場合は
　　Cells(Rows.Count, 4).End(xlUp).End(xlToRight)
の右隣のセルということになります。

そのセルがE～G列（5～7）であればそれが求めるセルですが、H列（8）以上の場合はE～G列に空白がなく、ご指定の条件に合致するセルがないということになります。

Sub test()
Set rng = Cells(Cells(Rows.Count, 4).End(xlUp).Row, 4)
If rng.Offset(, 1).Value <> "" Then Set rng = rng.End(xlToRight)
Set rng = rng.Offset(, 1)

rng.Select
MsgBox (rng.Column)
End Sub