удалить строку на основе условия
Я надеялся, что кто-нибудь сможет помочь с этим фрагментом кода. Я пытаюсь удалить всю строку, если найду текст «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
следующий