检查excel列值是否相等

Question

我有一张这样的桌子

产品       价格     货币
________   _____   ________
产品 1      10      美元
产品 2      11      欧元
产品 3      12      美元
产品 4      13      人民币
产品 5      14      欧元
_____
=小计（109）

我在货币列中使用过滤器，在价格列中使用小计（109）公式来汇总价格。因此，如果从过滤器中选择了美元，它将过滤所有具有美元价格的产品并将它们相加。但是如果没有过滤货币 subtotal(109) 总和价格，这是错误的（1 美元 + 1 欧元不是 2）。

仅当货币列中的值彼此相等时，我才想触发 subtotal(109) 公式。例如，在过滤的行中计算 NOT 唯一值，如果等于 1，则触发小计 (109)。

注意：我知道如何使用 SUMIF 进行操作，方法是在单独的单元格中放置一个包含货币的下拉列表。但我想使用过滤器来完成这项任务。

Answer 1

假设我们有一个自动过滤表，例如：

但如果选择了多个货币，我们需要警告而不是 SUBTOTAL()。

我们需要检测不止一种货币。

首先在标准模块中输入以下User D定义的F函数：

Option Explicit

Public Function CountVisibleUnique(rng As Range) As Long
   Dim c As Collection, r As Range
   Set c = New Collection

   On Error Resume Next
      For Each r In rng
         If r.EntireRow.Hidden = False Then
            c.Add r.Text, CStr(r.Text)
         End If
      Next r
   On Error GoTo 0

   CountVisibleUnique = c.Count
End Function

然后在单元格B8中，替换：

=SUBTOTAL(109,B2:B6)

与：

=IF(countvisibleunique(C2:C6)>1,"multiple currencies",SUBTOTAL(109,B2:B6))