Sub 分列()
Sheets("数据").Select'激活“数据”工作表
Selection.ClearContents'清除“数据”表中，当前选中区域的内容
Range("B3").Select'选中B3单元格
ActiveSheet.Paste'粘贴
ActiveSheet.Paste'粘贴
Sheets("统计").Select'激活“统计”工作表
End Sub
你的代码里根本没有分列啊~
Sub 分列()
Sheets("数据").Select'激活“数据”工作表
Selection.ClearContents'清除“数据”表中，当前选中区域的内容
Range("B3").Select'选中B3单元格
ActiveSheet.Paste'粘贴
ActiveSheet.Paste'粘贴
Sheets("统计").Select'激活“统计”工作表
End Sub
你的代码里根本没有分列啊~
