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