确认x行是重复的

Question

我需要一个例程，可以确认每个条目有3行数据，但不知道从哪里开始。正如您在下面的部分表中所看到的，除了FrgQty和Yield之外，每一行都是相同的。我只需要确认每个引用＃有3行的内容，并给我一个消息框，其中引号#s不能有3行。

。电子表格中通常有1到100个引号，所以这会有很大的帮助。

Answer 1

假设您可以不使用消息框部分要求，则根本不需要VBA。只需在表格中添加另一列，称为Valid?或其他内容，并为其指定以下公式：

=COUNTIF([Quote#],[@Quote#])=3

然后，您可以在FALSE上过滤该列，以查找有问题的行。

Answer 2

使用数据透视表，按引用分组，然后计算相同的引用列。这样你可以在大约0.0003秒内看到有多少行情少于3行，并且还可以确定哪些行数。

Answer 3

您可以尝试使用字典对象的子例程来执行此操作。您需要更改＆＃34; Sheet1＆＃34;到表格的名称和＆＃34;表1和＃34;到屏幕截图中表格的名称。

    let Products=[
    {
        id:1, name:"Fastrack Women's Watch", 
        description:"Analog Pink Dial Women's Watch - 6150SM04",
        price:2500
    },
    {
        id:2, name:"Fastrack Women's Watch", 
        description:"Analog Pink Dial Women's Watch - 6150SM04",
        price:2100
    },
    {
        id:3, name:"Fastrack Women's Watch", 
        description:"Analog Pink Dial Women's Watch - 6150SM04",
        price:1800
    },

];

export default Products;