Question

我在excel列中有很长的文件路径和名称列表。我正在编写一个代码来删除每个不包含我放入数组的部分字符串的单元格。我收到错误＆＃34;范围类的删除方法失败＆＃34;。我对VBA很新，所以任何提示都会受到赞赏，这是我迄今为止所得到的：

Sub Tester()

Dim dontDelete As Variant
Dim sKeep As String, x As Long
Dim rngSearch As Range, c As Range
Dim i As Long, j As Long

dontDelete = Array("abel", "varo")

     For x = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
         For j = LBound(dontDelete) To UBound(dontDelete)
             Set c = Range("A" & x).Cells
             If InStr(c.Value, dontDelete(j)) = 0 Then
                 c.Delete shift:=xlShiftUp
             End If
         Next j
     Next x

End Sub

我相信这是＆＃34; c.Delete shift：= xlShiftUp＆＃34;这导致了问题，但我不知道为什么？

Answer 1

仅在包含数组中的所有字符串而不是删除不包含所有字符串的每个单元格时才删除单元格的代码：

public class SubClassViewController: BaseViewController<SomeData> {

}

这不能解决错误，但错误不是由代码本身引起的，所以它以另一种方式解决了。

删除不包含部分字符串的单元格？错误

1 个答案: