楼主: 抛光纸
1716 12

[其他] 再求助一个关于excel的问题 [推广有奖]

11
抛光纸 发表于 2012-2-13 19:01:17
lihaidong 发表于 2012-2-13 10:52
一行行的选定,再删掉不就可以了啊
但是有2000组
而且10个都要单独出来
很浪费时间

12
抛光纸 发表于 2012-2-13 19:03:38
sohell 发表于 2012-2-13 10:54
能详细点么
这么说好了 就是我只想留probobability of 1这个行
就是从下面的1000组里都只保留这个

13
echoyt84 在职认证  发表于 2012-2-14 10:10:59
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选项-信任中心-设置-宏设置-启用宏

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
jg-xs1
拉您进交流群
GMT+8, 2025-12-31 05:14