excel-vba - Excel VBA:如何使用“LCASE”标识符清除多个工作表的所有内容

这是我目前拥有的vba。我需要它来删除任何以“需求”开头的工作表中的所有数据。代码正在运行，但是没有数据被删除。任何帮助表示赞赏！

Option Explicit
Sub ClearExcelContent()
  Dim DemandData As Worksheet
  For Each DemandData In ActiveWorkbook.Worksheets
    If LCase(Left(DemandData.Name, 6)) = "Demand" Then
      DemandData.Rows("2:" & Rows.Count).ClearContents
    End If
  Next DemandData
  MsgBox "All Demand Data has been Deleted from Consolidation Tab"
End Sub

最佳答案

If LCase(Left(DemandData.Name, 6)) = "Demand" Then

上面的语句与任何工作表都不匹配，因为LHS都是小写，而RHS的大写是D。将Demand替换为小写的demand。

If LCase(Left(DemandData.Name, 6)) = "demand" Then

关于excel-vba - Excel VBA:如何使用“LCASE”标识符清除多个工作表的所有内容，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/45330479/