再求助一个关于excel的问题

lihaidong 发表于 2012-2-13 10:52
一行行的选定，再删掉不就可以了啊

但是有2000组
而且10个都要单独出来
很浪费时间

sohell 发表于 2012-2-13 10:54
能详细点么

这么说好了 就是我只想留probobability of 1这个行
就是从下面的1000组里都只保留这个

Sub Macro1()
' Macro1 Macro
'
For i = 1 To 1000    '循环次数
x = Range("A2").Offset((i - 1) * 22, 0)    '复制来源起始单元格是A2，下一个要复制的内容在22行之后
Range("E2").Offset((i - 1), 0).Value = x    '粘贴的起始单元格是E，第2个内容粘贴在下一行
Next

End Sub

说明：在excel中，alt+F11，打开Visual Basic编辑器，在左侧窗口选中你数据所在的sheet，右键“查看代码”，把上面的代码复制进去，按快捷键F5或者点击菜单里的运行按钮（绿色箭头），即可。
1000是你数组的数量，可以根据情况更改。
offset(x,y) 是移动的意思，x是垂直移动，y是平行移动。
使用宏的话，要设置一下安全性，office按钮-excel选项-信任中心-设置-宏设置-启用宏