XNUMXつの塗りつぶされた色をExcelの範囲にのみコピーするにはどうすればよいですか？

場合によっては、セルの塗りつぶされた色を範囲セルにのみコピーする必要がありますが、Excelでセルの塗りつぶされた色のみを貼り付けるのに役立つ貼り付けオプションはありません。 塗りつぶしの色リストから同じ色を見つけることを考えるかもしれませんが、色を直接見つけることができない場合はどうすればよいですか？ ここでは、セルの色のみをすばやくコピーしてExcelの範囲に貼り付けるための秘訣をいくつか紹介します。

セルの背景色をVBAのある範囲にのみコピーします

セルの背景色をコピーセルフォーマットを使用して範囲にのみすばやくコピーする

セルの背景色をVBAのある範囲にのみコピーします

Excelでは、VBAコードを使用して、セルで塗りつぶされた色のみをコピーできます。

VBAを実行する前に、コピーする必要のある色の数をカラーリストで知っておく必要があります。

1。 押す Altキー+ F11 開く アプリケーション用 Microsoft Visual Basic ウィンドウをクリックし、次にクリックします。 インセット > モジュール、次にVBAの下を新しいモジュールウィンドウに貼り付けます。

VBA：セルで塗りつぶされた色をXNUMXつだけコピーします。

Sub color1()
Dim i As Integer
i = InputBox("Enter the colour number")Range("D1:F6").Interior.ColorIndex = i
End Sub

先端：VBAでは、必要に応じてセル範囲を変更できます Range（ "D1：F6"）。Interior.ColorIndex = i.

2。 押す F5 このVBAを実行するためのキー。 次に、ポップダイアログで、相対的な色の数を入力します。 スクリーンショットを参照してください：

3。 クリック OK。 範囲は17番目の色で満たされています。

ただし、このVBAでは、カラーリストの色しか使用できません。色がリストにない場合は、機能しません。 それでは、別の効率的な方法に移りましょう。

セルの背景色をコピーセルフォーマットを使用して範囲にのみすばやくコピーする

連絡先 Kutools for Excelさん コピーセルの書式設定 色に関係なく、機能は、それだけをすばやくコピーして他のセルに貼り付けるのに役立ちます。

Kutools for Excelを無料でインストールしてから、以下の手順に従ってください。

1.塗りつぶされた色をコピーする必要があるセルを選択し、をクリックします クツール > フォーマット > コピーセルの書式設定。 スクリーンショットを参照してください：

2。 の中に コピーセルの書式設定 ダイアログ、チェック インテリアカラー/シェーディング のみ。 スクリーンショットを参照してください：

3。 クリック Ok、この色を貼り付けるために必要なセルを選択します。 スクリーンショットを参照してください：

4。 クリック OK。 選択した範囲は同じ色で塗りつぶされます。

セル書式のコピー機能を使用すると、セルの書式全体をコピーしたり、セルのフォントの色のみをコピーしたりすることもできます。