在Excel VBA中,为什么删除区域中的重复条目会删除单元格背景色?

试试这个

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

除此之外,我还添加了一些(可能)有用的关于 RemoveDuplicates() 方法

似乎没有 删除(&D);转移 行,但仅 转移 他们 至少这是我通过以下测试得出的结论

测试1:

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

从这两个地址中获得相同的范围地址 MsgBox 声明

最后两个语句将格式扩展到了整体 起初的 范围

测试2:

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

从这两个地址中获得不同的范围地址 消息框 语句,第二行比第一行短一行

因此,最后两个语句没有将格式扩展到整体 起初的 范围