[[20141107185659]]　『転記』（ちぃさん）　ページの最後に飛ぶ

『転記』（ちぃさん）

お世話になります。

マクロでの転記について教えて頂きたく質問にまいりました。
宜しくお願いいたします。

サンプルを作成いたしました。
希望の転記処理内容は以下でございます。

1,転記先と転記元は同じシートです。
2,転記は日時のみの転記予定です。
3,転記元は指定した列の最終行の3つ左隣りのセルです。
　サンプルでは指定した列はF列。3つ左隣りのセルになるのでC列の値が転記元となります。
4,転記先は指定したセルです。

　　　　　-----C----I----D----I----I----E----I----F----I----G----
1
2
3 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2014/11/06
4　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　~~~~~~~~~~
.
.
.
30 2014/11/03
31 2014/11/04
32 2014/11/05
33 2014/11/06 ←転記元　　　　　　　　　あああ　←入力ありのセル　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　~~~~~~~~~~

図が下手ですみません。
転記後はこのような状態が希望です。
全く条件が足らないですが現在シートモジュールに

Sub 値のみの転記()

    Range("G3").Value = Range("C33").Value
 End Sub

としています。
C列はC5～C50まで空白がない状態で値が入っています。
F列は入力の必要な部分しか入力しないです。
マクロコードをどのようにすればよいでしょうか？

毎回サンプル、説明がわかりづらく申し訳ありません。
この説明で処理したい内容がわかりますでしょうか？
説明が不十分でしたら指摘ください。

どうぞ宜しくお願いいたします。

＜使用 Excel：Excel2003、使用 OS：WindowsXP ＞

    Range("G3").Value = Range("F" & Rows.Count).End(xlUp).Offset(, -3).Value
 とかかな？

 Range("F" & Rows.Count)・・・・F列の一番下のセル
 .End(xlUp) ・・・・・・・・・・Ctrl + ↑ で移動したセル
 .Offset(, -3)・・・・・・・・・3列左
 .Value ・・・・・・・・・・・・値
 　
（HANA） 2014/11/07(金) 23:27

（HANA）さん回答ありがとうございます。

希望した結果です。
事細かく説明までつけていただき感謝です。

凄く勉強になります。

ありがとうございました。
（ちぃさん） 2014/11/07(金) 23:47

コメント返信：

[ 一覧(最新更新順) ]

[[20141107185659]] 『転記』（ちぃさん） ページの最後に飛ぶ

[[20141107185659]]　『転記』（ちぃさん）　ページの最後に飛ぶ