Question

我正在尝试创建一个VBA脚本，该脚本将通过列＆＃34; A＆＃34;在我的电子表格中删除任何以包含单词＆＃34; Div Code：＆＃34; 问题是，在＆＃34; Div Code＆＃34;之后，单元格包含更多文本。而且我无法弄清楚如何使.replace函数对partials起作用。这是我到目前为止所拥有的：

Sub FindDivCode()


  With Intersect(Columns("A"), ActiveSheet.UsedRange)
    .Replace "Div Code", "#N/A", xlPart
    .Replace "Date", "#N/A", xlPart
    .SpecialCells(xlConstants, xlErrors).EntireRow.Delete
  End With
End Sub

此脚本适用于＆＃34;日期＆＃34;细胞，但不是＆＃34; Div Code＆＃34;细胞＆＃39;第任何帮助将不胜感激！

保

Answer 1

您可以遍历A列的单元格，在检查单元格Ax是否以“Div Code”开头后，删除整行：

For j = Range("A1").End(xlDown).Row To 1 Step -1
    If InStr(Range("A" & j).Value,"Div Code") = 1 Then
        Rows(j).Delete
    End If
Next j

Answer 2

这是Matteo给出的解决方案的扩展。信用应该归他所有

    Sub FindDivCode2()
        For j = Range("A1").End(xlDown).Row To 1 Step -1
            If InStr(Range("A" & j).Value,"Div Code") = 1 Or  InStr(Range("A" & j).Value,"Date") = 1Then
                Rows(j).Delete
            End If
        Next j
    End Sub

基于单元格的部分内容删除行

2 个答案: