Subcls(rgAsRange)Withrg.ClearContents.Interior.ColorIndex=.Borders.LineStyle=xlNoneEndWithEndSub上述代码段的功能是：子程序用形参rg表示单元格区域