Фильтр в excel с использованием VBA

У меня есть txt-файл, созданный с фантастической спортивной стороны: вот как это выглядит:

team: Sharks status: playing date: 2016/03/11 team: Sharks status: playing date: 2016/03/11 team: Sharks status: not playing date: 2016/03/12 

Таким образом, каждая команда, статус и дата отображаются, помните, что есть больше, чем я писал, поэтому не только игра акул

БОЛЕЕ ЧЕМ ОДНА КОМАНДА МОЖЕТ ИГРАТЬ НА ОДИН ДЕНЬ

В любом случае, я бы хотел разобраться с этим, чтобы команда появилась один раз, а также их статус и дата игры или не что-то подобное

 team Sharks status:playing date playing: 2016/03/11 2016/03/11 date not playing: 2016/03/12And yes I tried do something with removing the duplicates but that does notv really work / not the result as expected Dim nextPlace As Long Dim maxRows As Long Sub walkThePlank() maxRows = 10000 'UPDATE THIS AS NEEDED nextPlace = 3 Worksheets("Sheet1").Range("B1").Value = "team:" Worksheets("Sheet1").Range("B2").Value = "status:" findData ("status: playing") addToNextSpace ("Status: Not playing") findData ("status: not playing") End Sub Sub findData(s As String) Dim i As Long Dim isPlaying As Boolean isPlaying = False For i = 1 To 1000 If isPlaying Then addToNextSpace (Worksheets("Sheet1").Range("A" & i).Value) End If If LCase(Range("A" & i).Value) = s Then isPlaying = True Else isPlaying = False End If Next i End Sub Sub addToNextSpace(s As String) Worksheets("Sheet1").Range("B" & nextPlace).Value = s nextPlace = nextPlace + 1 End Sub 

Давайте будем гением компьютера.