[[20031013164749]]　『データをコピーして別のシートに順に貼り付け』（かわ）　ページの最後に飛ぶ

『データをコピーして別のシートに順に貼り付け』（かわ）

複数シートのデータをコピーして、あるひとつのシートに順に貼り付ける方法。
たとえば、

 シート１
      A　　　B
 1　あああ　いいい
 2　ううう　えええ
 3　おおお　かかか

 シート2
      A　　　B
 1　ききき　けけけ
 2　こここ　さささ

シート1、2のデータをそれぞれコピーして

 シート3
      A　　　B
 1　あああ　いいい
 2　ううう　えええ
 3　おおお　かかか
 4
 5　ききき　けけけ
 6　こここ　さささ

というようにシート３に貼り付ける方法を知りたいのですが、
分かる方がいましたら教えていただけないでしょうか？

 [クリップボードの活用]
 表示メニューのツールバー・クリップボードを表示させ
(メニューツールバーの余白部分で右クリックメニューでクリップボード選択）EXCEL2000
Sheet1のコピー範囲を選択し、コピーします。Sheet2のコピー範囲を選択し、コピーします。
クリップボードに2個貼り付けられています。
Sheet3で貼り付けたいセルにクリップボードのアイコンを順に指定すればよいことになります。
EXCEL2000では12個、EXCEL2002では24個コピー記録できます。
 (シニア)

シニア様、ご回答ありがとうございます。
少し説明が不足していましたので補足します。

上記に書いた例は、説明用です。
実際は、シートは１００個以上ありますので、人間の手によるコピー＆ペーストだと限界があると考えております。
エクセルのマクロまたはVBAを利用した方法で上記の例を満たすことができるようにしたいのです。
以上、よろしくお願いします。

 こんばんわ。
 コピー先の範囲はこれから作るんですさかい勝手に指定でけますけど、さあ、コピー元
 の範囲をどうやって拾い出すかが問題でんなぁ。
 その元のスタート列、行は各シート共通なのか、違うとっても確たる規則性はあるのか
 マクロで組むにはいろんな問題が絡んできますわ。
 まぁ仮にでッけど作ってみたんで試してみておくんなはれ。

 新しいブックにシート４を追加してください。
 各シートのデータはＡ１から書き込んで下さい。
 コピーする（元）最終行の１行下の欄は空セルで区切って下さい。
 このマクロは列２で組んでありますけど、コードをいじれば何列でもOKです。
 シートごとに列が変わる場合は、空セルで区切ればいけますけど、やっぱりコードを
 いじらなあきまへん。

 なにわともあれ、いっぺん廻してみてからの話ですわ、えぇ。
 　　ほな...　（おいぼれ弥太郎）
 '----------------
 Sub コピー()
    Dim i As Integer, t As Integer, row_b As Integer
    Dim ws As Object
    Application.ScreenUpdating = False
    For i = 1 To 3
        Set ws = Worksheets("sheet" & i)
        Worksheets("sheet" & i).Select
        Range(Cells(1, 1), Cells(Row_a(ws), 2)).Copy
        If i = 1 Then
            t = 0
        Else
            t = 2
        End If
        Worksheets("sheet4").Select
        row_b = Cells(Rows.Count, 1).End(xlUp).Row
        Cells(row_b + t, 1).PasteSpecial Paste:=xlValue
        Application.CutCopyMode = xlCut
    Next i
    Application.ScreenUpdating = True
 End Sub
 '-----------------
 Function Row_a(ByVal ws As Object) As Long
    Dim i As Long
        Do
            i = i + 1
        Loop While ws.Cells(i, 1) <> ""
    Row_a = i - 1

 End Function

コメント返信：

[ 一覧(最新更新順) ]

[[20031013164749]] 『データをコピーして別のシートに順に貼り付け』（かわ） ページの最後に飛ぶ

[[20031013164749]]　『データをコピーして別のシートに順に貼り付け』（かわ）　ページの最後に飛ぶ