如何总结date计数

我有3个工作表。 以下是我正在尝试做的解释。 EM11 EM12 EM01

下面的步骤是为了表EM11，但我想重复他们的表EM12和表EM01

• select表EM11
• 复制J2：J65636并复制G2：G65636
• 创build一个名为EM11-Count的新工作表
• 将J列粘贴到名为EM11-Count的新工作表的单元格A2中

• 将列G粘贴到新工作表的单元格B2中。

• 现在称为EM11-Count的工作表具有范围B2：B65636中的date。

• 复制并粘贴到达单元格C1的第一个date
• 复制并粘贴到达D1单元格的第二个date
• 复制并粘贴到E1单元格的第三个date
• 复制并粘贴到单元格F1的第四个date
• 复制并粘贴到G1单元格中的第五个date
• 复制并粘贴到H1单元格的第六个date（将只有六个或七个不同的date）

现在工作表看起来像这样

Col A Col B Col C Col D Col E 04/1/2009 04/2/2009 04/3/2009 DPR1 04/1/2009 DRS6 04/2/2009 ERJ9 04/3/2009 

看看A2：B2。 现在看看C1：H1来find与B2中的date相匹配的date。 比方说C1有匹配的date。 去C2并把数字1。

 Col A Col B Col C Col D Col E 04/1/2009 04/2/2009 04/3/2009 DPR1 04/1/2009 1 DRS6 04/2/2009 ERJ9 04/3/2009 

接下来看看A3：B3。 现在看看C1：H1来find与你在B3中的date相匹配的date。 假设D1有匹配的date。 去D3并把数字1。

 Col A Col B Col C Col D Col E 04/1/2009 04/2/2009 04/3/2009 DPR1 04/1/2009 1 DRS6 04/2/2009 1 ERJ9 04/3/2009 

接下来看看A4：B4。 现在看看C1：H1来find与B4中的date相匹配的date。 假设E1有匹配的date。 去E3并把数字1。

 Col A Col B Col C Col D Col E 04/1/2009 04/2/2009 04/3/2009 DPR1 04/1/2009 1 DRS6 04/2/2009 1 ERJ9 04/3/2009 1 

现在重复这个模式，直到A：B中的每一行都被覆盖。 在列A中的每一行下去都会发生随机重复。 例如，A1：B1中的内容将通过A2：B7相同，或者A14：B14中的内容将通过A15：B20相同。 当这些副本发生时，我想删除重复的行，但增加数字“1”的原始行的计数/计数。 例如，macros完成扫描A：B后，工作表可能看起来像这样

 Col A Col B Col C Col D Col E 04/1/2009 04/2/2009 04/3/2009 DPR1 04/1/2009 12 DRS6 04/2/2009 23 ERJ9 04/3/2009 57 

这是我现在的代码。 我相信你可以看到它需要很多工作。 你可以帮我吗？

 Sub NWorksheetArrange() Application.Goto Reference:="R2C10:R65000C10" Selection.Copy Sheets.Add ActiveSheet.Paste Sheets("Sheet3").Select Sheets("Sheet3").Name = "EM11-COUNT" Sheets("EM11").Select Application.Goto Reference:="R2C7:R65000C7" Application.CutCopyMode = False Selection.Copy Sheets("EM11-COUNT").Select Range("B1").Select ActiveSheet.Paste Rows("1:1").Select Application.CutCopyMode = False Selection.Insert Shift:=xlDown Range("B2").Select End Sub 

Answer 1

这听起来像一个“数据透视表”…和Excel自动执行这些。

像这样： http : //screencast.com/t/gpLsU50q38

要生成构build数据透视表的macros，请执行“macroslogging”…然后构build数据透视表…然后将代码围绕logging的数据透视表语句。