別のブック最終行最終列の次への転記

添付した画像が転記先ブックだとした場合…

青い矢印を書いたように、選択して開いた別のブックから抽出したデータを、
最終行の次の行のA～C列と、最終列の次の列（画像の場合はI列）に
どんどん追加していくようにしたいと考えています。
次の月になれば、最終列は１つ右ずれします。

列の対応関係は、以下の通りです。
（転記元）B列　→　（転記先）A列
（転記元）C列　→ 　（転記先）B列
（転記元）D列　→　（転記先）C列
（転記元）AC列　→　（転記先）最終列の次の列

特に飛び地の離れたデータがあるのが難しく、解決方法があれば
ぜひ教えていただきたいです。
宜しくお願い致します。

※6行目は画像だと隠れてしまっていますが、きちんと存在し、
　そこから入力開始です。

No.1 回答者： fujillin 回答日時： 2019/02/15 09:31

こんにちは

「必ずデータで埋まっている列（行）が存在しない場合に、最終行（最終列）をどうやって求めたら良いか」というご質問と解釈しました。

地道にやるなら、例えば最終行の場合、
「各列の最終行を求め、その最大値を採用する」
ことで可能ではありますが、少々面倒ですね。


シート内のデータ構成や、その他のデータ（データ以外の文字等）のレイアウトにもよりますが、レイアウトによってはもっと簡単に求めることが可能です。
状況によりますが、以下のどちらかで可能ではないかと想像します。

一団の（連続した）データの範囲を求めるのなら
　CurrentRegion
が利用できるかも知れません。
https://docs.microsoft.com/ja-jp/office/vba/api/ …
ただし、完全に島状に離れた部分が存在するような場合は、うまくいかない可能性があります。
（途中に空白行や、空白列が存在するような場合）

他のデータ等が存在しない場合（=対象とするデータ以外は存在しない）は、シート内の「使用した範囲」を取得することで、最終行（列）も簡単に求められます。
　UsedRange
から算出するのが有効だと思われます。
https://docs.microsoft.com/ja-jp/office/vba/api/ …

この回答へのお礼

何パターンも教えてくださり、ありがとうございました！参考にさせていただきながら、色々試しているところです。

お礼日時：2019/02/17 11:06