[[20150125184726]]　『行数が一定しない列のセルをコピー』（三輪車）　ページの最後に飛ぶ

『行数が一定しない列のセルをコピー』（三輪車）

幼稚園レベルの質問かも知れませんが、入門書５冊いずれにも
載っていないのでよろしくお願いします。

シート１のセルＡ３から始まるＡ列にはすべて日付データ、

行数は毎回100前後で一定していません。

シート２のセルＥ２から下に、書式を除き、この日付データのみを

コピーしたいのですが？

＜使用 Excel：Excel2007、使用 OS：Windows8 ＞

 ん？

 Sheet1 のA3を選択して Ctrl/Shift を押すと日付群が選択されますので、そこで　Ctrl/c。
 Sheet2 のE2を選択して、形式を指定して貼り付けで、値貼り付け。

 でも、「書式」がなくなりますので、Sheet2のE列が標準書式なら、日付のシリアル値になります。
 もちろん、Sheet2のE列に、あらかじめ書式が設定してあれば、その書式で表示されますが。

（β） 2015/01/25(日) 19:16

βさま

舌足らずで大変申し訳ありません。ＶＢＡ専門の掲示板と勘違いしておりました。

できたらマクロを教えていただきたいのですが。
（三輪車） 2015/01/25(日) 19:24

 事前にSheet2のE列の該当領域のクリアを追加しました。（20:00)

 一例です

 Sub Test()
 Dim r As Range
 Dim x As Long

    With Sheets("Sheet1")
        Set r = .Range("A3", .Range("A" & Rows.Count).End(xlUp))
    End With

    With Sheets("Sheet2")
        x = WorksheetFunction.Max(.Range("E" & Rows.Count).End(xlUp).Row, 2)
        .Range("E2:E" & x).ClearContents
        .Range("E2").Resize(r.Rows.Count).Value = r.Value
    End With

 End Sub

（β） 2015/01/25(日) 19:30

βさま

本当にありがとうございます、試したらうまくいきました。

マクロの用語は私にとりチンプンカンプンですが、書いていただいたものは入門書を100冊

読んでもできなかったでしょう。

excel　VBA を自力で作るのは諦めました。

（三輪車） 2015/01/25(日) 20:19

コメント返信：

[ 一覧(最新更新順) ]

[[20150125184726]] 『行数が一定しない列のセルをコピー』（三輪車） ページの最後に飛ぶ

[[20150125184726]]　『行数が一定しない列のセルをコピー』（三輪車）　ページの最後に飛ぶ