VBA代码清除E11-N13，E16-N18，E21-N23中的内容

在VBA (Visual Basic for Applications) 中，你可以使用 `Range` 对象的 `ClearContents` 方法来清除指定范围内的内容。这里是一个例子，用于清除 Excel 工作表中的 E11 到 N13、E16 到 N18 和 E21 到 N23 的单元格：

Sub ClearSelectedRanges()
    Dim rng1 As Range, rng2 As Range, rng3 As Range
    
    ' 设置第一个范围从 E11 到 N13
    Set rng1 = ThisWorkbook.Sheets("Sheet1").Range("E11:N13")
    
    ' 设置第二个范围从 E16 到 N18
    Set rng2 = ThisWorkbook.Sheets("Sheet1").Range("E16:N18")
    
    ' 设置第三个范围从 E21 到 N23
    Set rng3 = ThisWorkbook.Sheets("Sheet1").Range("E21:N23")

    ' 清除每个范围的内容
    rng1.ClearContents
    rng2.ClearContents
    rng3.ClearContents
End Sub

确保将 "Sheet1" 替换为你实际的工作表名称。运行这个宏后，这三个范围内的数据将会被清空。

相关问题

帮我用VBA写一个获取本年本月前三天至今天的日期到E11-E14单元格中

以下是VBA代码：

Sub GetDate()

Dim startDate As Date
Dim endDate As Date

startDate = DateSerial(Year(Date), Month(Date), Day(Date) - 3)
endDate = Date

Range("E11").Value = Format(startDate, "yyyy-mm-dd")
Range("E12").Value = Format(startDate + 1, "yyyy-mm-dd")
Range("E13").Value = Format(startDate + 2, "yyyy-mm-dd")
Range("E14").Value = Format(endDate, "yyyy-mm-dd")

End Sub

这段代码将本年本月前三天至今天的日期分别存储在E11-E14单元格中。可以将代码复制到VBA编辑器中，并在需要的时候运行它。

帮我用VBA写一个获取本月前三天至今天的日期到E11-E14单元格中，且以5.1日期格式输出

以下是VBA代码：

Sub GetDates()
    Dim i As Integer
    For i = 0 To 3
        Range("E" & (i + 11)).Value = Format(Date - i, "m.d")
    Next i
    Range("E11:E14").NumberFormat = "m.d"
End Sub

这段代码将会在E11-E14单元格中输出本月前三天至今天的日期，格式为5.1式日期格式。