Vba 通过将列转换为重复行，从excel文件创建事件日志

我有一张Excel表格，如下所示：

ID  Arrival Passed      Berthing Date       UnBerthing Date     Departure Passed 
1   13/05/2017 15:30    13/05/2017 16:00    31/05/2017 20:44    31/05/2017 
2   15/05/2017 16:56    15/05/2017 17:15    16/05/2017 00:00    16/05/2017 
3   20/05/2017 09:54    20/05/2017 10:26    20/05/2017 18:07    20/05/2017 
4   24/05/2017 16:09    24/05/2017 16:35    25/05/2017 01:03    25/05/2017 
5   29/05/2017 10:30    29/05/2017 10:45    29/05/2017 17:33    29/05/2017 

我需要以下格式的文件：

ID  Event       Time
1   Arrival     13/05/2017 15:30
1   Berth       13/05/2017 16:00
1   UnBerth     31/05/2017 20:44
1   Departure   31/05/2017 20:58
2   Arrival     15/05/2017 16:56
2   Berth       15/05/2017 17:15
2   UnBerth     16/05/2017 00:00
2   Departure   16/05/2017 00:04

等

我搜索了网页和这个网站YouTube…，但是没有正确的答案，我尝试了转置函数和透视表，但是我做不到

任何帮助都将不胜感激

---

谢谢。

假设您的数据集在A2:E6范围内

要获取ID，请执行以下操作：

=索引$A$2:$E$6，天花板行$A$1:A1/4,1,1

要获取事件，请执行以下操作：

=选择模式行$A$1:A1-1,4+1，到达、泊位、离泊、出发

为了获得时间：

=索引$A$2:$E$6，天花板行$A$1:A1/4,1，模型行$A$1:A1-1,4+2

---

然后向下复制，直到出现错误。

索引和匹配，到目前为止您是如何尝试的，您可以发布您所做的。如果您需要更新您的问题，您需要编辑原始问题，而不是将其添加为答案。你可以在任何答案上留下评论，说你已经更新了问题。它已被标记以供审查。另外，请在您的问题中提供匹配的数据，以便我们能够更有效地提供帮助。