シート間のコピー時の列幅と行の高さ

マクロ初心者です。下記はシート間のコピーですが、列幅と行の高さも一緒にコピーするにはどのように書いたらよいでしょうか。マクロは"ｓｈｅｅｔ１"に入っています。よろしくお願いいたします。

Sub macro1()

Worksheets("sheet2").Activate
Cells.Clear
Worksheets("sheet1").Activate
Worksheets("sheet1").UsedRange.Copy
ActiveSheet.Paste Destination:=Worksheets("sheet2").Range("A1")

End Sub

No.1 ベストアンサー 回答者： cyacya2000 回答日時： 2014/07/19 16:52

シートを全てコピーするなら(sheet1の内容をsheet２にコピー）

Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
Cells.Select
ActiveSheet.Paste

特定のセルのみコピーするなら
以下でsheet1のＡ列の幅をsheet2にコピー
Sheets("Sheet2").Columns("A").ColumnWidthSheets("Sheet1").Columns("A").ColumnWidth
以下でsheet1の1行目の高さをsheet2コピー
Sheets("Sheet2").Rows("1").RowHeight=Sheets("Sheet1").Rows("1").RowHeight

でいかがでしょう。

この回答へのお礼

最初のマクロ作成で困っていました。
ありがとうございました。

お礼日時：2014/07/19 18:37