[[20200511171620]]　『別シートへコピーする際、列幅や高さも含めてコピ』（名無しのド素人）　ページの最後に飛ぶ

『別シートへコピーする際、列幅や高さも含めてコピーしたい件』（名無しのド素人）

I39までコピー元にデータあり、I列移行には計算用のセルや補足セルがあります。
列幅を保ったまま別シートへコピーするマクロは記述できたのですが、高さがコピーされてないので、どのように記述すればいいかおわかりの方いましたら教えてください。
計算セルや補足用セルは貼付け先では不要なので行選択はしない方向で考えてます。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 Sub test()

    Dim i As Long
    Dim h As Long

    For i = 1 To 39

        h = Sheets("???V?[?g").Rows(i).RowHeight
        Worksheets("?R?s?[??V?[?g").Rows(i).RowHeight = h

    Next i

 End Sub
（tora） 2020/05/11(月) 17:56

 文字化けしてしまったのでもう一度。

 Sub test()

    Dim i As Long
    Dim h As Long

    For i = 1 To 39

        h = Worksheets("元シート").Rows(i).RowHeight
        Worksheets("コピー先").Rows(i).RowHeight = h

    Next i

 End Sub
（tora） 2020/05/11(月) 18:02

＞計算セルや補足用セルは貼付け先では不要

貼り付けてから削除すればどうでしょうか。

（マナ） 2020/05/11(月) 18:45

コメント返信：

[ 一覧(最新更新順) ]

[[20200511171620]] 『別シートへコピーする際、列幅や高さも含めてコピ』（名無しのド素人） ページの最後に飛ぶ

[[20200511171620]]　『別シートへコピーする際、列幅や高さも含めてコピ』（名無しのド素人）　ページの最後に飛ぶ