如果单元格包含字符串“ ---”，则删除另一个单元格

Question

我是VBA的初学者。

这是我的桌子：

我希望总行上的单元格“€Sell”是其“€Sell”的总和。

我已经有了这个宏，该宏可以找到空单元格并对其求和，直到找到另一个空单元格为止。这是宏：

Sub SumFam()
'
' SumFam Macro
' Soma familias
'
' Atalho por teclado: Ctrl+o
'

FirstRow = 1
LastRow = Cells(Rows.Count, "M").End(xlUp).Row
EmptyCell = 0

For RowX = FirstRow To LastRow

    If Cells(RowX, "M") = vbNullString Then
        StartCell = Application.WorksheetFunction.Max(FirstRow, EmptyCell)
        Cells(RowX, "M").FormulaR1C1 = "=SUM(R" & StartCell & "C13:R[-1]C13)"
        EmptyCell = RowX + 1
    End If

Next RowX


End Sub

问题是，该表是使用sql导出的，我无法使总行上的单元格显示为空，因此我试图删除此单元格。

我尝试过的宏就是这个：

Sub Delete()

Dim i As Long

i = 1

Do While i <= ThisWorkbook.ActiveSheet.Range("E2").CurrentRegion.Rows.Count

    If InStr(1, ThisWorkbook.ActiveSheet.Cells(i, 1).Text, "---", vbTextCompare) > 0 Then
        ThisWorkbook.ActiveSheet.Cells(i, 1).Range("M", i).Delete
    Else
        i = i + 1
    End If

Loop

End Sub

由于某种原因，它没有删除。 有人可以帮忙吗？ 谢谢大家。