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

質問

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

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 · ベストアンサー

シートを全てコピーするなら(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

でいかがでしょう。

お礼

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