重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

電子書籍の厳選無料作品が豊富！

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

解決済

  • 質問者：spcats
  • 質問日時：
  • 回答数：1件

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

Sub macro1()

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

End Sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

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

でいかがでしょう。
    • good
    • 0
    • 件
通報する
この回答へのお礼

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

通報する
お礼日時：2014/07/19 18:37

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報