代码之家 › 专栏 › 技术社区 › Santhankrishnan Dhandapani

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

cells duplicates vba excel

Santhankrishnan Dhandapani · 技术社区 · 9 年前

“我的工作表”的所有单元格均为灰色。我在列中选择一个范围并删除重复项。它会按预期删除重复项,但也会使重复单元格的颜色变为默认白色。我尝试了多个示例,但看起来它们是用默认的白色完成的,很可能这个问题永远不会发生。我可以通过编程将颜色设置回原来的颜色,但在知道为什么会这样做之前,我不想这样做。以下是我的代码

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

有人能解释为什么会这样吗?。

1 回复 | 直到 9 年前

user3598756 9 年前

试试这个

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

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

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

推荐文章

Joan · 基于多个panda列的唯一值进行分组

2 年前

laurimikhael · 如果满足条件,则删除重复的行,但更改特定列上的值

2 年前

Seikenn · 如何删除重复项?

3 年前

suptagni · 如何删除数据帧中任何行的重复单元格?

3 年前

anwwwar · 我需要一种方法,只有在两列同时出现时才能找到重复项

3 年前

Jmore · 连接两个表,其中第一个表中的最新产品连接到第二个表,但还希望检索旧产品的详细信息

3 年前

Ujjawal Bhandari · 不区分大小写唯一保留原始[重复]

3 年前

julliiie · 插入前检查

7 年前

NoBullMan · SQL查询-删除列值重复的行

7 年前

Nicholas Koskowski · 删除重复的用户元

7 年前