Excel で「範囲を選択してください」の罫線のみをコピーするには？

著者Siluvia変更日2025-10-30

Microsoft Excel で作業していると、ある範囲の特定の書式を別の範囲に再現したい場面がよくあります。通常のコピー＆ペースト操作では、セルの値や数式を貼り付けたり、特殊貼り付け機能を使ってセル全体の書式をコピーしたりできます。しかし、色やフォント、塗りつぶしパターンといった他の書式はそのままにして、罫線スタイルだけを再現したい場合もあるでしょう。たとえば、ワークシート内の複数のセクションで一貫した表の罫線デザインを維持したいときや、新しいテンプレートシートで既存の罫線レイアウトを再現したいケースなどが該当します。残念ながら、Excel には罫線のみを簡単にコピー＆ペーストするための組み込み機能が用意されていません。本チュートリアルでは、任意の範囲の罫線だけをコピーし、新しい範囲に適用する実用的な方法をご紹介します。これにより、他のセルプロパティを一切損なうことなく、書式の一貫性を確実に保てます。

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

代替ソリューション：手動で罫線を再現する書式を使用しての書式のコピー/貼り付け

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

簡単な VBA マクロを使えば、セルや範囲の正確な罫線スタイルを、コンテンツやその他の書式設定に影響されることなく、ワークシート内の別の場所にコピーして適用できます。この方法は、繰り返し行う作業を自動化したいときや、カスタムスタイルのテーブルやテンプレートを使ってワークフローをスピーディーに進めたいときに最適です。以下の詳細な手順に従って、安全に VBA コードを実行してください。また、役立つパラメーターヒントもぜひご確認ください。

1。キーボードでAlt＋F11キーを同時に押してください。すると、Microsoft Visual Basic for Applications（VBA）エディターウィンドウがすぐに開きます。Excel に開発タブが表示されていなくても、最新版のExcel であれば、このショートカットですぐに VBA エディターを起動できます。

2。VBA エディターで、メニューバーの挿入をクリックし、続いて標準モジュールを選択してください。すると、新しい空白のモジュールウィンドウが開きますので、以下の 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キーを押すか、VBA エディターのツールバーから実行を選択してマクロを実行します。「Kutools for Excel」というダイアログボックスが表示されたら、コピーしたい罫線を含む範囲をマウスでハイライトし、「OK」をクリックして確定してください。

VBAコードを使用してExcelでコピーする罫線付き範囲を選択しているスクリーンショット

4。「Kutools for Excel」という2 つ目のダイアログボックスが表示されます。コピーした罫線スタイルを適用したい宛先範囲の左上セルを選択してください。宛先セル（および必要に応じて範囲）を選択したら、「OK」をクリックします。下図をご参照ください：

Excelでコピーした罫線を適用するセルを選択しているスクリーンショット

これらの手順を完了すると、元の範囲に設定された罫線デザインが、選択した新しい場所に適用されます。転送されるのは罫線の書式のみで、セルのデータや背景色、その他の要素は一切影響を受けません。統一感のある表を作成したり、ワークシートの見た目を簡単に再現したりするのに最適です。サンプル結果を以下に示します：

新しい範囲に適用された罫線スタイルを表示しているスクリーンショット

代替ソリューション：手動で罫線を再現する書式を使用しての書式のコピー/貼り付け

コードを使わずに罫線をコピーしたいユーザーには、Excel に組み込まれた書式のコピー/貼り付けツールが最適です。このツールを使えば、罫線の書式を他の書式とともに、ある範囲から別の範囲へ素早く複製できます。使い方は次のとおりです：

コピーしたい罫線を含むセル範囲を選択してください。
ホームタブのクリップボードグループにある書式のコピー/貼り付け（筆アイコン）をクリックします。
カーソルが筆の形に変わります。罫線を適用したいセル範囲を選択してください。これにより、元の範囲の罫線だけでなく、フォントや塗りつぶし色などの書式も同時に適用されます。

メリット：Excel に標準搭載されており、簡単で視覚的なコピー作業に最適です。
デメリット：罫線スタイルだけをコピーすることはできません（セルの書式や塗りつぶし色、フォントの変更など、他の書式も同時にコピーされてしまいます）。罫線以外のセルの内容や書式をそのまま維持したい場合には向いていません。

それぞれの方法には独自の強みがあり、異なるワークフローのニーズに最適です。VBA は罫線だけを正確に転送でき、書式のコピー／貼り付け機能ならすべての書式を素早くコピーできます。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！