使用一行代码清除一系列范围

我已经做了范围的全局string常量。

Global Const Graph_Cl As String = "G2:G13" Global Const Graph_Vl As String = "I2:I13" Global Const Graph_VlS As String = "L2:L13" 

我想用一行代码清除这些范围。

 With wkDataToUse .Range(Graph_Cl, Graph_Vl, Graph_VlS).ClearContents End With 

但我得到错误：

 "Wrong no of arguments or invalid property assignment!" 

我甚至试过这个：

 With wkDataToUse .Range(Array(Graph_Cl, Graph_Vl, Graph_VlS)).ClearContents End With 

要么

 With wkDataToUse .Range([{Graph_Cl, Graph_Vl, Graph_VlS}]).ClearContents End With 

我怎样才能清除一行代码中的所有范围？

Answer 1

要传递多个范围地址，您需要逗号分隔的string格式： "a:b,c:d,e:f"以便您可以;

 .Range(Graph_Cl & "," & Graph_Vl & "," & Graph_VlS).ClearContents 

你也可以

 Union(.Range(Graph_Cl), .Range(Graph_Vl), .Range(Graph_VlS)).ClearContents