VBA代码根据多个条件计算不同的值

Question

我有一个数据表“订单”，其中包含格式的数据

order no    Customer    Sales Executive Order Status    Order Date
211 nokia   john    cancelled   23-May-13
643 panasonic   andrew  fulfilled   23-May-13
209 samsung john    fulfilled   4-Apr-14
453 philips andrew  fulfilled   4-Apr-14
311 dell    mary    fulfilled   16-Apr-14
865 panasonic   andrew  fulfilled   16-Apr-14
201 apple   john    fulfilled   3-May-14
453 hp  mary    cancelled   3-May-14
205 nokia   john    fulfilled   4-May-14
643 philips andrew  fulfilled   4-May-14
312 lenovo  mary    fulfilled   22-May-14
204 apple   john    fulfilled   7-Jun-14
432 hp  mary    fulfilled   7-Jun-14
214 nokia   john    pending 25-Jun-14
754 panasonic   andrew  fulfilled   25-Jun-14

以上是订单表中许多列中重要的列。

我有另一份工作表，其中列出了“销售主管”，并想知道他们按月完成订单的唯一客户数量

Sales Executive Apr-14  May-14  Jun-14
john    <value> <value> <value>
mary    <value> <value> <value>
andrew  <value> <value> <value>

我想编写代码来读取列中行和月中的销售主管名称，然后给出如下所示的答案

Sales Executive Apr-14  May-14  Jun-14
john    1   2   1
andrew  2   2   1
mary    1   1   1

我正在寻找一个可以按月运行的vba代码。以上示例是实际数据的样本集。

我对VBA比较陌生，需要帮助代码。

如果我对代码的解释如何工作将会有所帮助，因为我需要类似的代码来查找每个销售主管在这几个月产生的产品和总收入。

感谢您的帮助

编辑（以下OP评论的代码）：

Sub UniqueReport() 
Dim dict As Object 
Set dict = CreateObject("scripting.dictionary") 
Dim varray As Variant, element As Variant 
Dim lastrow As Long 

lastrow = Sheets("Orders").Range("N" & Rows.Count).End(xlUp).Row varray = Sheets("Orders").Range("N2:N" & lastrow).Value 

For Each element In varray 
    If dict.exists(element) Then 
        dict.Item(element) = dict.Item(element) + 1 
    Else 
        dict.Add element, 1 
    End If 
Next 

ActiveSheet.Range("P2").Value = dict.Count 
End Sub 

Answer 1

只需使用工作表公式和函数，就可以在没有VBA的情况下执行此操作。

在主数据表上，在日期列旁边添加一列，在第2行的单元格中粘贴此公式：

=TEXT(E2,"mmm yyyy")

这将使月份和年份可用于比较

在Sales Executives工作表上，在单元格B2中输入此公式

=COUNTIFS(Orders!$C2:$C$16,$A2,Orders!$F$2:$F$16,B$1)

那个公式在做什么呢？

在第一个标准中，我们指定要将A2中的名称与C列中的所有值进行比较：C，AND我们要比较ROW A中的月份与我们在Orders表单上的F列中放置的TEXT月份。

然后，您可以将公式拖动到所需的月份，然后将每个销售主管拖下来

另见，见：

• Excel COUNTIFS Function
• Excel COUNT Functions

编辑：

您也可以通过编程方式执行此操作：

1. 添加带有TEXT公式的虚拟列，以提供月份和年份日期，以便在Orders工作表上进行比较。
2. 在Sales Executives表单上添加公式
3. 在公式上复制粘贴值
4. 删除虚拟列

试试这个：

With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With

With Sheets("Orders")
    .Columns("E:E").Insert Shift:=xlToRight
    .Range("E2:E" & .Range("D2").End(xlDown).Row).FormulaR1C1 = "=TEXT(RC[1],""mmm yyyy"")"
End With

With Sheets("Sales Executives")
    .Range("B2:D" & .Range("A2").End(xlDown).Row).FormulaR1C1 = "=COUNTIFS(Orders!C3,RC1,Orders!C5,R1C)"
    .Range("B2:D" & .Range("A2").End(xlDown).Row).Copy
    .Range("B2:D" & .Range("A2").End(xlDown).Row).PasteSpecial Paste:=xlPasteValues
End With

Sheets("Orders").Columns("E:E").Delete Shift:=xlToLeft

With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
End With

因此，您需要做的就是使用F8逐步完成代码，看看它的作用。

另一种选择当然是在SQL Server查询中进行计算，使用SQL PIVOT函数检索数据。

希望有所帮助