Excelで選択範囲の罫線のみをコピーするにはどうすればよいですか？

Microsoft Excelを使用している際、特殊貼り付け機能を使って、セルの値、セルの書式、セルの数式などを範囲から簡単にコピーできます。しかし、Excelで範囲から罫線スタイルだけをコピーしようとしたことはありますか？この記事では、選択した範囲の罫線のみを新しい範囲にコピーする方法を紹介します。

VBAコードを使用して選択範囲の罫線のみをコピーする

VBAコードを使用して選択範囲の罫線のみをコピーする

以下のVBAコードを使用すると、選択したセルの罫線スタイルのみをコピーし、その罫線スタイルをExcelの新しい範囲に適用することができます。以下のように操作してください。

1. 「Alt」＋「F11」キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2. 「Microsoft Visual Basic for Applications」ウィンドウで、「挿入」＞「モジュール」をクリックし、以下のVBAコードをコードウィンドウにコピー＆ペーストします。

VBAコード：Excelで選択範囲の罫線のみをコピー

Sub CopyBorders()
'Updated by Extendoffice 20211203
    Dim xRg, yRg As Range
    On Error Resume Next
    
    Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
    Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
    
    
    With yRg.Borders(xlEdgeLeft)
        .LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
        .Weight = xRg.Borders(xlEdgeLeft).Weight

    End With
    With yRg.Borders(xlEdgeTop)
        .LineStyle = xRg.Borders(xlEdgeTop).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
        .Weight = xRg.Borders(xlEdgeTop).Weight
    End With
    With yRg.Borders(xlEdgeBottom)
        .LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
        .Weight = xRg.Borders(xlEdgeBottom).Weight
    End With
    With yRg.Borders(xlEdgeRight)
        .LineStyle = xRg.Borders(xlEdgeRight).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
        .Weight = xRg.Borders(xlEdgeRight).Weight
    End With

    With yRg.Borders(xlInsideHorizontal)
        .LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
        .ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
        .Weight = xRg.Borders(xlInsideHorizontal).Weight
    End With
    With yRg.Borders(xlInsideVertical)
        .LineStyle = xRg.Borders(xlInsideVertical).LineStyle
        .ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
        .Weight = xRg.Borders(xlInsideVertical).Weight
    End With
End Sub

3. 「F5」キーを押してコードを実行します。最初に表示される「Kutools for Excel」ダイアログボックスで、コピーしたい罫線を持つ範囲を選択し、「OK」ボタンをクリックします。

4. 次に表示される「Kutools for Excel」ダイアログボックスで、コピーした罫線を適用するセルを選択し、「OK」ボタンをクリックします。スクリーンショットをご覧ください：

これで、選択範囲の罫線スタイルのみがコピーされ、新しい範囲に適用されたことが確認できます。下のスクリーンショットをご覧ください。

関連記事：

• Excelで重複をスキップして値をコピー＆ペーストするにはどうすればよいですか？
• Excelで行の高さと列の幅を含むセルデータをコピーするにはどうすればよいですか？
• Excelで数式ではなくテキスト値としてセルをコピーするにはどうすればよいですか？
• Excelで別のワークシートの次の空いている行にデータをコピーするにはどうすればよいですか？