удалить строку на основе условия

Я надеялся, что кто-нибудь сможет помочь с этим фрагментом кода. Я пытаюсь удалить всю строку, если найду текст «FemImplant». в столбце A. хитрая часть заключается в том, что этот текст является частью предложения, связанного символом «$». Поэтому мне нужен код для разбора содержимого ячейки перед & quot; $ & ap; и посмотрите, соответствует ли он «FemImplant»; и удалите эту строку. Это то, что я до сих пор, но это не работает.

Dim cell As Excel.Range
 RowCount = DataSheet.UsedRange.Rows.Count
 Set col = DataSheet.Range("A1:A" & RowCount)
 Dim SheetName As String
 Dim ParsedCell() As String

 For Each cell In col

 ParsedCell = cell.Value.Split("$")
 SheetName = ParsedCell(0)

 If SheetName = "FemImplant" Then
 cell.EntireRow.Delete Shift:=xlUp

 End If

следующий

Ответы на вопрос(1)

Ваш ответ на вопрос