VBATips

テンプレートシートの行幅をコピーする【ExcelVBA】

テンプレシートの行幅をコピーしたい

エクセル上で原本シートの行幅をコピーしたいケースがあります。

行幅をコピーするマクロは、簡単なコードで表せます。どしどしコピペで使いましょう。

テンプレシートの行幅をコピペするサンプルコード

列幅をコピペはエクセルが貼付オプション(形式を選択して貼付)を用意してくれていますが、
行幅(行の高さ)の場合は用意されていません。自作する必要があります。

'■フォーマットシート(原本シート)から列幅をコピーする
Public Sub Call_CopyPaste_RowHeight()
    Dim ws As Worksheet '原本シート
    Set ws = ThisWorkbook.Worksheets("原本")

    '■1行目から5行目まで(i=1 to 5)を原本シートから行の高さをコピーする
    Dim i As Long
    For i = 1 To 5
        Rows(i).RowHeight = ws.Rows(i).RowHeight
    Next i
    
End Sub


注意点

関連記事

新しいワークシートを作成時、処理を行う【NewSheet】【ExcelVBA】
ExcelVBAマクロ「指定したキーワードをクリップボードへコピーする」をパーツ化する
ExcelVBAマクロ「クリップボードへのコピーが文字化けする対策」
ExcelVBAマクロ「テンプレートシートの列幅をコピーする」【ExcelVBA】

コメント

タイトルとURLをコピーしました