Excel VBA使用“選擇大小寫”刪除區域中的單元格

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