Excel-在A列中找到一个小于或等于4倍的值并在B列中打印

Question

我在A列中按字母顺序排列了一个用户名列表，其中一些出现了无数次。 如果用户名出现少于或等于4次，我想打印B列中的用户名。

我是否需要一个数组来遍历列中所有不同的用户名值，以查找出现少于或等于4次的值？

Answer 1

考虑：

Sub dural()
    Dim A As Range, B As Range, v As String, K As Long
    Set A = Intersect(Range("A:A"), ActiveSheet.UsedRange)
    Set B = Range("B:B")

    K = 1

    With Application.WorksheetFunction
    For Each aa In A
        v = aa.Value
            If v <> "" Then
                If .CountIf(A, v) <= 4 Then
                    If .CountIf(B, v) = 0 Then
                        Cells(K, "B").Value = v
                        K = K + 1

                    End If
                End If
            End If
    Next aa
    End With
End Sub

Answer 2

添加一个帮助器列，并将以下公式放在第二行中：

=IF(AND(COUNTIF(A:A,A2)<=4,COUNTIF($A$2:A2,A2)=1),MAX($B$1:B1)+1,"")

并抄下来：

此时，您可以过滤非空白单元格并将其复制到另一个范围。

如果要使用公式来获取列表，则将其放在另一列的第2行中：

=IFERROR(INDEX(A:A,MATCH(ROW(1:1),B:B,0)),"")

并抄下来。

Answer 3

不需要辅助列或VBA，只需调整一下IF函数即可：)

=IF(COUNTIFS(BE:BE,BE2)<=4,IF(COUNTIFS($BE$1:BE2,BE2)=1,BE2,"0"),"0")

^在这里，BE是您所有数据的存放地，从第2行开始

它能做什么：

1. 如果名称出现4次或以下，

2. 如果这是第一次，“名称”将出现在列中

3. 打印名称
4. （否则插入0）

要删除0值，即空行：

1. 将公式粘贴到与值相同的列上（这样就可以..）
2. .. Replace All （ Ctrl-H ）将“ 0”替换为“”（以便可以..）
3. ..使用Go To （ Ctrl-G ） > Special > Blanks来选择空白行
4. 删除（向上移动单元格）

您也可以简单地过滤出Blank / 0值