[[20140728115719]]　『マクロでコピー&ペースト』（KISS）　ページの最後に飛ぶ

『マクロでコピー&ペースト』（KISS）

いつも大変お世話になっております
お手数をかけて申し訳ございませんが下記の内容
ご教授頂けたら幸いです

30シート位有るファイルが有りまして
各シートのC4のデーターを同ファイル内のシート名sheet3のA列に張り付ける
各シートのC6のデーターを同ファイル内のシート名sheet3のB列に張り付ける
同作業を行うに当たり
簡単に出来る方法をご教授頂けたら幸いです

各シート選択はどの様に書けばいいのでしょうか？

    Range("C4:C7").Select
    Selection.Copy

    Sheets("Sheet3").Select
    Range("A1").Select
    Selection.End(xlDown).Offset(1, 0).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
同じようなファイルが多数ありまして
大変お手数と思いますがよろしくお願いいたします

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

過去　ぐぐったら　出てきました

有難う御座いました
Dim myShi As Worksheet

 For Each myShi In Worksheets
    If myShi.Name <> "sheet3" Then
        With Worksheets("sheet3").Range("A65536")
            .End(xlUp).Offset(1, 0).Value = myShi.Range("C4").Value
            .End(xlUp).Offset(0, 1).Value = myShi.Range("C6").Value
        End With
    End If
 Next

End Sub
（KISS） 2014/07/28(月) 14:11

コメント返信：

[ 一覧(最新更新順) ]

[[20140728115719]] 『マクロでコピー&ペースト』（KISS） ページの最後に飛ぶ

[[20140728115719]]　『マクロでコピー&ペースト』（KISS）　ページの最後に飛ぶ