3

我将数据存储在 Excel 的三列中。

Column A: Product no, 
Column B: Production site 
Column C: Sales code

我需要检查每个产品编号的销售代码中前 6 位数字的一致性。

例如，对于所有带有产品编号的产品。1，我需要检查销售代码中的前6位是否相等。如果产品编号的所有销售代码。1 相等，程序必须Y在 D 列中写为是。如果销售代码不同，程序必须N在 D 列中写为否。

Product;Site;Sales code

1;A;86451001    
1;B;864510.3    
1;C;86451004    
1;D;86451001    
1;E;864510.3    
1;F;86451004    
1;G;86451001    
1;H;864510.3    
1;I;86451004    
1;J;86451001    
1;K;874507.3    
1;L;87450704    
1;M;87450701    
1;N;885656.3    
1;O;88565604    
2;A;86451001    
2;B;864510.3    
2;C;86451004    
2;D;86451001    
2;E;864510.3    
2;F;88565604    
2;G;88565601    
2;H;864510.3    
2;I;86451004    
2;J;86451001    
2;K;874507.3    
2;L;87450704    
2;M;87450701    
2;N;885656.3    
3;A;88565604    
3;B;86451001    
3;C;864510.3    
3;D;86451004    
3;E;87450704

我需要这种一致性检查，因为我的数据集很大。我是 VBA 的初学者，所以我不知道如何做到这一点。

你有什么建议吗？

4

3 回答 3

1

我们需要一个帮助列，D1=Product_SaleCode6

D2=A2&"_"&LEFT(C2,6)

然后，E 列将是您的测试列，E1=Test

E2=IF(COUNTIF($A$2:$A$35,A2)=COUNTIF($D$2:$D$35,D2),"Y","N")

为所有行填写上面的 D2、E2 公式。

我想要做的是，检查产品数量是否与该产品组的 6 位销售代码的数量相同。

于 2013-06-05T10:55:34.423 回答
0

这是您可以执行的操作：

  • 逐行扫描

  • 当您确定一个新的集团商店时，它的产品编号和销售短代码（前 6 个字符）以及它开始的范围

  • 检查该组的每个后续行以查看代码是否一致

  • 如果没有将该组标记为已损坏并继续

  • 在组的末尾回顾组的第一行并为组的每一行写下组标志“Y”或“N”

  • 标记行后检查当前行是否为空，它是停止扫描

  • 否则重置下一组的值并继续扫描

这是一个快速且不太脏的实现（使用您的小数据集进行了测试，但在使用它之前当然要进行尽职调查；））：

Sub check()
Dim sh As Worksheet
Set sh = Sheets(1)

Dim r As Range
Set r = sh.Range("A1")

Dim currentProduct As Integer
Dim currentProductSalesCode As String
Dim currentProductStart As Range
Dim ok As Boolean
currentProduct = -1
Do
    ' Are we changing of product group?
    If r.Value2 <> currentProduct Then
        ' Check that this is not the beginning
        If currentProduct <> -1 Then
            Dim i As Integer
            i = 0
            ' Apply the flag to all the rows in the current group
            Do
                If currentProductStart.Offset(i, 0) <> currentProduct Then
                    Exit Do
                End If

                Dim flagOutput As Range
                Set flagOutput = currentProductStart.Offset(i, 3)

                If ok Then
                    flagOutput = "Y"
                Else
                    flagOutput = "N"
                End If
                i = i + 1
            Loop

            If IsEmpty(r) Then
                Exit Do
            End If
        End If
        'Reset the values for the current group
        currentProduct = r.Value2
        currentProductSalesCode = Left(r.Offset(0, 2).Text, 6)
        Set currentProductStart = r
        ok = True
    Else
        ' If the current row code is not equal to the first row of the group code
        If Left(r.Offset(0, 2).Text, 6) <> currentProductSalesCode Then
            ok = False
        End If
    End If
    Set r = r.Offset(1, 0)
Loop
End Sub
于 2013-06-04T22:50:37.340 回答
0

这是一个非常适合数据透视表的应用程序。例如，添加带有公式=LEFT(C2,6)和数据透视表布局的列（“Sales”），如下所示，可以立即确定您的示例中的列Y将适用于所有（在每种情况下计数为 1）（假设站点可能会有所不同）：

SO16926030 示例

可以在不同的列中使用不同的公式进行其他验证，以适应不同的列。

于 2013-06-04T22:51:29.443 回答