[[20030927123703]]　『下方向へコピー』（ぽんた）　ページの最後に飛ぶ

『下方向へコピー』（ぽんた）

A列からD列にデータが入っていて数行の空白行でデータが区切られています。繋がっている範囲を選択して、その中の一番上のデータを下へコピーしたいと思っています。

現在"Ctrl ＋＊"と"Ctrl ＋ D"をマクロに記録させて次の範囲(下)に行き、また同じ処理をするというものを作りましたが、これだと範囲が何行かある時は良いのですが、一行だけしかない場合、上の空白をコピーしてしまい、データが消えてしまいました。

マクロはさっぱりわかりませんので、どうか教えて下さい。

 現在のコードを掲載していただければ、修正させていただきます。(INA)

INAさん、早々とレスありがとうございます。
コードはこれです。

Sub Macro1()

    Selection.CurrentRegion.Select
    Selection.FillDown
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
End Sub

これをボタンに登録してデータが一行でないか確認しながら実行しています。
出来れば一括で最後までコピー出来るようになれば良いのですが…。(空白行は３行ずつあります)

どうか宜しくお願いします。(ぽんた)

 作ってみましたので、試してみて下さい。 
 Msgboxのコメントを外して、表示させながら実行すると
 どのような流れで、処理されているかが解り易いと思います。

 Sub Sample1()
 Range("A1").Select
    Do
        'MsgBox "c"
        Selection.CurrentRegion.Select

        If Selection.Rows.Count > 1 Then
            'MsgBox "fill"
            Selection.FillDown
            Selection.End(xlDown).Select
        End If

        'MsgBox "dwn"
        Selection.End(xlDown).Select

    Loop Until Selection.Row > Range("A65536").End(xlUp).Row

 Range("A1").Select
 End Sub

  しかし、なんか変わった処理ですね・・・ (INA)

INAさん、変わってますか？。これはある作業工程の一部なんです。

でもマクロなら最初から他の作業工程を省いて今回の結果を出す事も出来るんでしょうね。

いずれ勉強してみたいです。ありがとうございました。(ぽんた)

コメント返信：

[ 一覧(最新更新順) ]

[[20030927123703]] 『下方向へコピー』（ぽんた） ページの最後に飛ぶ

[[20030927123703]]　『下方向へコピー』（ぽんた）　ページの最後に飛ぶ