【エクセルマクロ】セルの色と文字をコピーする：使用例４選

エクセルマクロで、セルの背景色と文字をコピーするExcelVBAコードを記載しています。

条件書式の色をコピーする方法も掲載しています。
ぜひお試しください！

セルの色と文字をコピー(単一セル)

以下のマクロを実行すると、セルの色と文字をコピーします。

Sub セル色とセル値を貼り付け()
  
    Range("D2") = Range("A6")
    Range("D2").Interior.ColorIndex = Range("A6").Interior.ColorIndex

End Sub

マクロ実行後

アクティブシートのセル [A6] をコピーして、セル [D2] に貼り付けます。

セル [A6] の色も一緒にコピーします。

セルの色と文字をコピー(複数セル)

以下のマクロを実行すると、セルの色と文字をコピーします。

Sub セルの色と文字をコピー()

Dim i As Long

    '1～15行目までループ
    For i = 1 To 15
    
        'D列に転記してセルに色付け
        Cells(i, 4) = Cells(i, 1)
        Cells(i, 4).Interior.ColorIndex = Cells(i, 1).Interior.ColorIndex
        
        'E列に転記してセルに色付け
        Cells(i, 5) = Cells(i, 2)
        Cells(i, 5).Interior.ColorIndex = Cells(i, 2).Interior.ColorIndex
    
    Next i

End Sub

マクロ実行後

アクティブシートのセル範囲 [A1：B15] をコピーして、

セル範囲 [D1：F15] に、色と値を貼り付けます。

セルの色と文字をコピー(条件付き書式：単一セル)

以下のマクロを実行すると、セル色と値をコピーします。

Sub セルの色と文字をコピペ()

    Range("D2") = Range("A6")
    Range("D2").Interior.ColorIndex = Range("A6").DisplayFormat.Interior.ColorIndex

End Sub

マクロ実行前

セル範囲 [A1：B15] には、条件付き書式を設定しています。

マクロ実行後

セル [A6] の値と条件書式の色を取得して、セル [D2] に貼り付けます。

セルの色と文字をコピー(条件付き書式：複数セル)

以下のマクロを実行すると、セルの背景色と文字列をコピーします。

Sub セルの色と文字をコピー()

Dim i As Long

    '1～15行目までループ
    For i = 1 To 15
    
        'D列に転記してセルに色付け
        Cells(i, 4) = Cells(i, 1)
        Cells(i, 4).Interior.ColorIndex = Cells(i, 1).DisplayFormat.Interior.ColorIndex
        
        'E列に転記してセルに色付け
        Cells(i, 5) = Cells(i, 2)
        Cells(i, 5).Interior.ColorIndex = Cells(i, 2).DisplayFormat.Interior.ColorIndex
        
    Next i

End Sub

マクロ実行前

セル範囲 [A1：B15] には、条件付き書式を設定しています。

マクロ実行後

アクティブシートのセル範囲 [A1：B15] をコピーして、

セル範囲 [D1：F15] に貼り付けます。

条件付き書式でセル色がついている場合は、セル色もコピーします。

 

 
 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】別シートにコピーする：使用例１０選

...

kirinote.com

2022.11.12