Excelマクロについて。表形式のエクセルに自動的に列を変えて、空欄にデータを転記する方法について教えて下さい。

Question

Anonymous

例えば、2019年1月の時に自動的にその場所に転記する。

(2018年12月までの売り上げ個数は埋まっているものとする。)

空欄を検索し、そこにデータを転記する方法

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

1 件の回答

Answer 1

＞例えば、2019年1月の時に自動的にその場所に転記する。

(2018年12月までの売り上げ個数は埋まっているものとする。)

空欄を検索し、そこにデータを転記する方法

「転記する」とは転記するセルを選択するということなら、売上個数の入っているセルの1つ下のセルから上方向にデータを検索し、そのセルが1つ上のセルでないなら、そのセルを選択するコードを４つ書けばよいのではないでしょうか？

例えば、2017年12月のセルがC14セルなら以下のようなコードで入力先のセルを選択できます。

If Range("D15").Row - Range("D15").End(xlUp).Row <> 1 Then

　Range("D15").End(xlUp).Offset(1, 0).Select

End If

If Range("D28").Row - Range("D28").End(xlUp).Row <> 1 Then

　Range("D28").End(xlUp).Offset(1, 0).Select

End If

If Range("G15").Row - Range("G15").End(xlUp).Row <> 1 Then

　Range("G15").End(xlUp).Offset(1, 0).Select

End If

If Range("G28").Row - Range("G28").End(xlUp).Row <> 1 Then

　Range("G28").End(xlUp).Offset(1, 0).Select

End If