Как суммировать подсчет числа дней

Question

У меня есть 3 листа. Ниже приводится объяснение того, что я пытаюсь сделать. EM11 EM12 EM01

Приведенные ниже шаги предназначены для листового EM11, но я хочу повторить их для обработки листового EM12 и лист EM01

• Выбор листа EM11
• Copy J2: J65636 и скопировать G2: G65636
• Создать новую таблицу под названием EM11-Count
• Вставить столбец J в ячейку A2 нового листа называется EM11-Count

• Вставить колонку G в ячейку B2 нового листа.

• Рабочий лист под названием EM11-Count теперь имеет даты в диапазоне B2: B65636.

• Скопируйте и вставьте первую дату попасть в ячейку C1
• Скопируйте и вставьте вторую дату вы попадаете в ячейку D1
• Скопируйте и вставьте третью дату попасть в ячейку E1
• Скопируйте и вставьте четвёртую дата вы получаете в ячейку F1
• Скопируйте и вставьте пятую дату попасть в ячейку G1
• Скопируйте и вставьте шестую дату вы получите в ячейку H1 (будет только шесть или семь различных дат)

Теперь таблица будет выглядеть как этот

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, чтобы найти дату, соответствующую дате, в которой вы находитесь в В2. Скажем, C1 имеет дату сопоставления. Перейдите к С2 и введите номер 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    

Next Посмотрите на A3: B3. Теперь посмотрите на C1: H1, чтобы найти дату, соответствующую дате, имеющейся в B3. Предположим, что D1 имеет дату сопоставления. Перейдите к 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          

Next Посмотрите на A4: B4. Теперь посмотрите на C1: H1, чтобы найти дату, которая соответствует дате, установленной в B4. Предположим, что E1 имеет дату сопоставления. Перейдите к 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: B случайных дубликатов. Например, содержимое в A1: B1 будет одинаковым через A2: B7 или содержимое в A14: B14 будет таким же образом через A15: B20. Когда эти дубликаты возникают, я хочу удалить повторяющиеся строки, но увеличив счет/количество исходной строки на число «1». Например, после завершения макроса сканирования 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

Чтобы сделать макрос, который строит сводную таблицу, сделать "Macro Record" ... затем построить сводную таблицу ... затем обернуть код вокруг записанного заявления Pivot Table.