Note: The other languages of the website are Google-translated. Back to English

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

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


関連記事:


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

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (6)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
コードはまた、私の数値形式をコピーし、ターゲットセルのそれらを上書きしました。 おそらく私は何か間違ったことをしましたか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはデビッド、
私の場合、コードは境界線をターゲットセルにコピーするだけです。 Excelのバージョンを教えてください。 コメントありがとうございます。
このコメントは、サイトのモデレーターによって最小化されました
こんにちはクリスタル、
これはXNUMX年以上後のことですが、私の電子メールシステムが再ホストされたため、あなたの質問は私の受信トレイの一番上に上がりました。
アカウント>バージョン情報で報告されている私のExcelのバージョンは2016です
このコメントは、サイトのモデレーターによって最小化されました
こんにちはデビッド、
返信をお待ちしております。 Excel 2016でコードをテストしましたが、それでも境界線のみがコピーされます。 データのコピーをzxm@addin99.comに送信してもよろしいですか? ご不便おかけしてすみません。
このコメントは、サイトのモデレーターによって最小化されました
Dobrýデン、

Děkujizapomocskopírovánímpouzeohraničení。
Šloby
ありがとう。
Jirka
このコメントは、サイトのモデレーターによって最小化されました
Hola me gusto mucho al macro para copiar los Bordes、pero al copiar los bordes me borra el formato que tienen las celtas es decir borra colores y otros formatos que ya tienelacelda。 me puedes ayudar con una macro que me permita copiar los bordes de otra celta a otra sin borrar el formato que tiene la celda de destino?
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護