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

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

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

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

すばらしい！ Chrome、Edge、Firefox、Safari など Excel で効率的なタブを使用する!
時間の50％を節約し、毎日何千ものマウスクリックを減らしましょう！

次の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 ボタン。スクリーンショットを参照してください：

次に、下のスクリーンショットに示すように、選択した範囲の境界線スタイルのみがコピーされ、新しい範囲に適用されていることがわかります。

最高のオフィス生産性向上ツール

🤖	Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。インテリジェントな実行 \| コードを生成 \| カスタム数式の作成 \| データを分析してグラフを生成する \| Kutools関数を呼び出す...
	人気の機能: 重複を検索、強調表示、または識別する \| 空白行を削除する \| データを失わずに列またはセルを結合する \| 数式なしのラウンド ...
	スーパールックアップ: 複数の基準の VLookup \| 複数の値の VLookup \| 複数のシートにわたる VLookup \| ファジールックアップ ....
	詳細ドロップダウンリスト: ドロップダウンリストを素早く作成する \| 依存関係のドロップダウンリスト \| 複数選択のドロップダウンリスト ....
	列マネージャー: 特定の数の列を追加する \| 列の移動 \| Toggle 非表示列の表示ステータス \| 範囲と列の比較 ...
	注目の機能: グリッドフォーカス \| デザインビュー \| ビッグフォーミュラバー \| ワークブックとシートマネージャー \| リソースライブラリ (自動テキスト) \| 日付ピッカー \| ワークシートを組み合わせる \| セルの暗号化/復号化 \| リストごとにメールを送信する \| スーパーフィルター \| 特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
	上位 15 のツールセット: 12 テキストツール (テキストを追加, 文字を削除する、...） \| 50+ チャート種類 (ガントチャート、...） \| 40+ 実用的式 (誕生日に基づいて年齢を計算する、...） \| 19 挿入ツール (QRコードを挿入, パスから画像を挿入、...） \| 12 変換ツール (数字から言葉へ, 通貨の換算、...） \| 7 マージ＆スプリットツール (高度な結合行, 分割セル、...） \| ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。最も必要な機能を入手するにはここをクリックしてください...

続きを読みます... 無料ダウンロード...

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします

Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
生産性を 50% 向上させ、毎日何百回もマウスクリックを減らすことができます!

続きを読みます... 無料ダウンロード...

Comments (6)

No ratings yet. Be the first to rate!

Gustavo Acosta

about 2 years ago

#36354