查找开始日期和结束日期为相同的值使用vba

-1

我有一个Excel工作表，如下所示。我想要一个任务的开始日期和结束日期。例如：对于ABC任务，开始日期是“2015-04-01”，结束日期是“2015-04-04”。如何总结日期？查找开始日期和结束日期为相同的值使用vba

Row# | Date  |Task 
-----+------------+----- 
1 | 2015-04-01 | ABC 
2 | 2015-04-02 | ABC 
3 | 2015-04-05 | 123 
4 | 2015-04-01 | 123 
5 | 2015-04-04 | ABC 
6 | 2015-04-01 | 123 
7 | 2015-04-05 | 123 
8 | 2015-04-01 | ABC

来源

2015-05-06 kavitha

这个网站是不是一个自由的编码服务。尽管如此，当我们遇到困难时，我们可以提供帮助，所以现在展示您的代码并解释您需要帮助的地方。编辑您的帖子。 – teylyn

如果你懒得自己想出一个VBA代码，请尝试使用一个数据透视表。有一个数据表。

Row# | Date  |Task | Date2 
-----+------------+-----+---------------- 
1 | 2015-04-01 | ABC | =A2 [2015-04-01] 
2 | 2015-04-02 | ABC | 
3 | 2015-04-05 | 123 | 
4 | 2015-04-01 | 123 | 
5 | 2015-04-04 | ABC | 
6 | 2015-04-01 | 123 | 
7 | 2015-04-05 | 123 | 
8 | 2015-04-01 | ABC |

输出支点将是这样的：

Row# | Task | Min/Date | Max/Date2 
-----+------+------------+------------- 
1 | 123 | 2015-04-01 | 2015-04-05 
2 | ABC | 2015-04-01 | 2015-04-04

来源

2015-05-06 08:56:54 user3819867

下一个有待改进，但它的工作原理：

Sub Fechas() 
     Dim startDate As Date 
     Dim endDate As Date   
     Dim selected As String 
     startDate = #1/1/2999# 
     endDate = #1/1/1900# 
     'Item you want to know the start/end dates 
     'So select it before run the macro (i.e. ABC from Task) 
     selected = ActiveCell.Value 
     'Change the Range as you will 
     Range("B1").Select 
     Do While ActiveCell.Value <> Empty 
     If (ActiveCell.Offset(0, 1).Value = selected) Then 
      If ActiveCell.Value < startDate Then startDate = ActiveCell.Value 
      If ActiveCell.Value > endDate Then endDate = ActiveCell.Value 
     Else 
     End If 
     ActiveCell.Offset(1, 0).Select 
     Loop 
     If startDate = endDate Then 
     MsgBox "For: " & selected & Chr$(13) & "Start date: " & startDate & Chr$(13) & "Unknown End date/Same Dates" 
     Else 
     MsgBox "For: " & selected & Chr$(13) & "Start date: " & startDate & Chr$(13) & "End Date: " & endDate 
     End If 
    End Sub

来源

2015-05-12 08:51:02 luizast

查找开始日期和结束日期为相同的值使用vba

回答

相关问题