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

Microsoft Excelを使用している場合、[形式を選択して貼り付け]機能を使用すると、セル値、セルの書式設定、セルの数式などのみを範囲から簡単にコピーできます。 しかし、Excelの範囲から境界線スタイルのみをコピーしようとしたことがありますか？ この記事では、選択した範囲の境界線のみをExcelの新しい範囲にコピーする方法を説明します。

選択した範囲の境界線のみをVBAコードでコピーします

選択した範囲の境界線のみをVBAコードでコピーします

次のVBAコードは、選択したセルの境界線スタイルのみをコピーして、この境界線スタイルをExcelの新しい範囲に適用するのに役立ちます。 次のようにしてください。

1。 プレス 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次に、以下の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で別のワークシートの次の空の行にデータをコピーするにはどうすればよいですか？