Макрос удаления данных в ячейках

[dmonco]

Добрый день.
Есть таблица в csv
---A----- -----B----- ----C----- -----D---- -----E----
1 Parent-- -значение- --значение- --значение Category1
2 Child--- --значение- --значение- --значение Category1
3 Child--- --значение- --значение- --значение Category1
4 Parent-- --значение- --значение- --значение Category2
5 Child--- --значение- --значение- --значение Category2
... и т.д.

Нужно, чтобы макрос удалял данные в колонке E напротив Child.
То есть остается Parent и должно получится так:
---A----- -----B----- ----C----- -----D---- -----E----
1 Parent-- -значение- --значение- --значение Category1
2 Child--- --значение- --значение- --значение здесь должно быть пусто
3 Child--- --значение- --значение- --значение здесь должно быть пусто
4 Parent-- --значение- --значение- --значение Category2
5 Child--- --значение- --значение- --значение здесь должно быть пусто
... и т.д.

Как это можно реализовать. Что-то подобных примеров не нахожу.
Более что-то похожее нашел, если ячейка выделена цветом, но это не то.

If Cells(ActiveCell.Row, 1).Interior.ColorIndex = xlNone Then ActiveCell.EntireRow.Delete
End If

[Hugo121]

csv - это текст.
Перебираем построчно - в строках с Child на второй позиции оставляем только первую и вторую позицию.
Т.е. перекладываем в другой файл эти строки обрезанными, остальные полностью.

Пример кода vbs скрипта для "самоделкина":

   ' FSO Constants
   t = timer
   Const ForReading   = 1
   Const ForWriting = 2
   Const ForAppending   = 8
   Const TristateUseDefault= -2
   
   ' Variables
   Dim objFSO, objTS, objOTS, objfile, tempStr

   ' Instantiate the object
   Set objFSO = CreateObject("Scripting.FileSystemObject")

   ' open the text file read only
   Set objTS = objFSO.OpenTextFile("C:\temp\obbnd\Tor_ip_list_ALL.csv", ForReading, False, TristateUseDefault)
   ' We now open the file to write it out
   If objFSO.FileExists("C:\temp\obbnd\Tor_ip_list_ALL.txt") Then
      Set objOTS = objFSO.OpenTextFile("C:\temp\obbnd\Tor_ip_list_ALL.txt", ForAppending) 'открываем итоговый файл для добавления записей
   Else
      Set objfile = objFSO.CreateTextFile("C:\temp\obbnd\Tor_ip_list_ALL.txt")
      Set objfile = Nothing
      Set objOTS = objFSO.OpenTextFile("C:\temp\obbnd\Tor_ip_list_ALL.txt", ForAppending)
   End if

   Do While objTS.AtEndOfStream <> True
   tempStr = objTS.ReadLine()
      objOTS.Write Replace(tempStr,".","-") & "/" & tempStr & vbCrLf
   Loop
   
   ' Close all files after we read it in.
   objTS.Close
   Set objTS = Nothing
   objOTS.Close
   Set objOTS = Nothing
   Set objFSO = Nothing
t=timer-t
msgbox "OK! Run in " & t

P.S.Пока писал - уже исходные данные поменялись. Ну ничего - это сути и подход не меняет.

[IgorGO]

открываете файл в экселе и любым доступным Вам способом запускаете этот макрос:

Sub BlankEcolumn()
  Dim r As Long
  For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(r, 1) = "Child" Then Cells(r, 5).ClearContents
  Next
End Sub

[Hugo121]

Игорь, думаю следующий вопрос будет такой - а как мне теперь его сохранить в правильном виде?
Скриптом vbs всё можно сделать "тихо и без пыли" в виде Экселя.
Но конечно нужно чуть "допрограммировать" под конкретный файл.

[dmonco]

IgorGO, спасибо большое. Всё работает четко.

Hugo121, все когда-то начинают. Но мой уровень не вообще нулевой))
Только Ваш код с пересохранением в файл так и не понял.