Question

我在带有删除按钮的表单中使用此代码。

我有数据列A，B，C，D，E，F，需要删除A，B，C列中的数据。删除哪一行是基于ListBox1值。

我不知道在这种情况下如何使用Find，Row，Delete（D，E，F除外）。

 Sheets("ORDERS").Range("A:A").Find(ListBox1.Text).Activate        
 sil = ActiveCell.Row         
 Sheets("ORDERS").Rows(sil).ClearContents

Answer 1

尝试类似下面的代码：

Dim FindRng As range

Set FindRng = Sheets("ORDERS").Range("A:A").Find(ListBox1.Text)

If Not FindRng Is Nothing Then '<--  successful find
    Sheets("ORDERS").Range("A" & FindRng.Row & ":C" & FindRng.Row).ClearContents
Else '<-- find was unsuccessful
    MsgBox "Didn't find " & ListBox1.Text & " in worksheet 'ORDERS' "
End If

删除找到的行，但该行中的某些单元格除外

1 个答案: