编辑:
不是清除选择中的数据,而是删除选择本身。我认为这相当于选择不同的范围,例如 A1。
答案1
呃,您可以一直使用 VBA 来引用工作表和单元格区域吗?
Option Explicit
Sub RemoveValues()
Worksheets("ACME_Sales").Range("A1:B17").ClearContents
End Sub
这将清除工作表 ACME_Sales 中的单元格 A1 至 B17。
已编辑编辑答案以反映编辑的问题。
Sub SelectNewCell()
Worksheets("ACME_Sales").Select
Range("E2:E2").Select
End Sub
这将让 VBA 删除对 ACME_Sales 的任何选择,然后只选择单元格 E2。
答案2
对于 listrange 你们都可以这样做
Sub test()
ClearListRange sht, Range("PIVOTTABLEDATASOURCESSTART")
End Sub
Public Sub ClearListRange(sht as worksheet, Startrange As Range)
sht.Range(Range(Startrange, Startrange.End(xlToRight)), Range(Startrange, Startrange.End(xlDown))).ClearContents
End Sub