[ 本帖最后由 tcphong 于 2008-7-1 23:36 编辑 ]作者: pureshadow 时间: 2008-6-30 21:48
Sub M()
Dim x As Long
For x = 1 To Sheets.Count
Columns("F:F").Copy Destination:=Sheets("sheet" & x).Range("A1")
Next
End Sub作者: tcphong 时间: 2008-7-1 23:36
谢谢你,牛人啊!学习了作者: liwen 时间: 2008-7-2 10:03
不用代码:
全选所有工作表,然后在A列粘贴复制的数据即可。作者: pureshadow 时间: 2008-7-2 10:31
LIWEN高啊......
我怎么把这最基础的操作方法给忘了......