Excel VBAでは、範囲内の重複したエントリを削除すると、セルの背景色が削除されるのはなぜですか？

Question

マイワークシートにはすべてのセルのグレー色があります。私は列の範囲を選択し、重複を削除しています。それは意図したとおりに重複を削除しますが、重複したセルの色をデフォルトの白にします。私は複数の例を試しましたが、デフォルトの白色で完了したように見えます。この問題は決して起こりませんでした。私はプログラム的に色を元に戻すことができますが、なぜこのように起こっているのかを知る前に、色を元に戻したくありません。以下は私のコードです

LastRow = GetLastRow(SheetName, ConsolidatedColumn) 'ConsolidatedColumn is "P" 
WS.Range(ConsolidatedColumn & "1:" & ConsolidatedColumn & LastRow) _ 
    .RemoveDuplicates Columns:=Array(1), Header:=xlYes 

なぜこのようなことが起こるのか説明できますか？

Answer 1

それはが&シフト行を削除しても、単にいないようだRemoveDuplicates()方法

の機能については、私は（おそらく）いくつかに便利なサイドノートを投げる以外のこの

With Worksheets(SheetName).Range(ConsolidatedColumn & "1:" & ConsolidatedColumn & LastRow) 
    .RemoveDuplicates Columns:=Array(1), Header:=xlYes 
    .Resize(1, 1).Copy 
    .PasteSpecial xlPasteFormats 
End With 

を試してみてくださいシフト 少なくともこれは次のテストで私が思いついたものです

TEST1：あなたは2つのMsgBox文

から同じ範囲のアドレスを取得し、最後の二つの文は全体元範囲

TEST2に書式を拡張

With Worksheets(SheetName).Range(ConsolidatedColumn & "1:" & ConsolidatedColumn & LastRow) 
    MsgBox .Address 
    .RemoveDuplicates Columns:=Array(1), Header:=xlYes 
    MsgBox .Address 
    .Resize(1, 1).Copy 
    .PasteSpecial xlPasteFormats 
End With 

：

With Worksheets(SheetName).Range(ConsolidatedColumn & "1:" & ConsolidatedColumn & LastRow) 
    MsgBox .Address 
    .Rows(2).Delete 
    MsgBox .Address 
    .Resize(1, 1).Copy 
    .PasteSpecial xlPasteFormats 
End With 

あなたは2つの MsgBox文は異なる範囲のアドレスを取得

、秒、1行目は、最初の

より短いとされ、結果として、最後の2つのステートメントは、全体元に書式を拡張しません範囲