VBA -查找所有订单组合和计数

Sub FindOrderCombinations()
    Dim orderRange As Range
    Dim orderCell As Range
    Dim orderCount As Integer
    
    ' 假设订单号存储在A列中，从第2行开始
    Set orderRange = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    
    ' 初始化订单计数
    orderCount = 0
    
    ' 遍历订单号
    For Each orderCell In orderRange
        ' 判断订单号是否为空
        If orderCell.Value <> "" Then
            ' 在这里编写查找订单组合的逻辑
            ' ...
            
            ' 增加订单计数
            orderCount = orderCount + 1
        End If
    Next orderCell
    
    ' 输出订单计数
    MsgBox "共找到" & orderCount & "个订单组合。"
End Sub