使用VBA代码确定激活选择单元格区域