[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロでコピー&ペースト』(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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.