fname = ActiveSheet.Name-------获取当前sheet页的名称 Sname = "" & fname & "" start_coll = ActiveCell.Column----------获取选中单元格的所在位置：列 start_roww = ActiveCell.Row----------获取选中单元格的所在位置：行
