☰

我可以在重复项中添加美元金额来区分它们吗？

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba microsoft-excel-2007
我可以在重复项中添加美元金额来区分它们吗？

我有一份从 D3 到 BC1415 范围的庞大销售数据表，但我的问题是：

我已经根据这份数据表制作了几张记分卡，但重复的记分卡却毁了一切。我以一种方式组织了我的记分卡，使得 Excel 无法看出 A 周售出的 15 个苹果与 B 周售出的 15 个苹果之间的差异（在我的前 15 周销售中，A 周出现了两次，而 B 周根本没有出现）。

我已经完成了一半的解决方案，但我还没有足够的 VBA 专业知识来完成它：

我想将除第一个之外的所有重复项添加 +0.001，直到没有重复项，以便 Excel 能够区分它们。这样可以吗？

这似乎不起作用，但我相信这是可行的方法：

  • 条件格式，=COUNTIF($A$1:A1,A1)>1因此只有第二次和更多重复的事件才会被格式化。

  • 然后选择所有格式化的单元格

Sub selectCFColours()
    Dim cell As Range
    Dim selRange As Range

    For Each cell In Range("A1:V1")
        If cell.DisplayFormat.Interior.Color <> cell.Interior.Color Then
            If selRange Is Nothing Then
                Set selRange = cell
            Else
                Set selRange = Union(selRange, cell)
            End If
        End If
    Next

    If Not selRange Is Nothing Then selRange.Select
End Sub

-在所有选定的单元格上使用“添加”设置特殊粘贴 0.001。

由于某些原因，这不起作用。

答案1

我要回答这个问题：“了解为什么我的方法不起作用”

您的 VBA 无法运行，因为它是根据单元格的interior.color值来选择单元格的，但是条件格式设置的颜色不会填充该interior.color属性。

该值设置为手动格式，并且对于您的屏幕，条件格式显示在顶部。

相关内容