Question

我有一系列数据，我编程从一个范围中删除名称。这是我的代码。

Option Explicit

Sub SelectCase()

Dim msg As String
Dim VarCase As Range

Set VarCase = Worksheets("Data").Range("D:D")

Select Case VarCase

    Case VarCase = "Zamora"
    VarCase.Delete

    Case VarCase = "John"
    VarCase.Delete

End Select

End Sub

我收到错误消息运行时错误'13'类型不匹配，这是因为尝试使用带范围的字符串（“Zamora / John”）吗？

Answer 1

你走了！您可能想要添加它，以便在需要时检查John和Zamora是否全部小写。

Sub SelectCase()

Dim msg As String
Dim VarCase As Range

For Each VarCase In ActiveSheet.Range("D:D")
  If VarCase.Value2 = "John" Or VarCase.Value2 = "Zamora" Then
  VarCase.ClearContents
  End If
Next VarCase
End Sub

Excel VBA使用Select Case删除范围中的单元格

1 个答案: