VBA入门之二《一夜暴富》

辣手神探 · 发表于 2012-7-3 21:54

有个问题请教哦：
按照楼主录制的代码，删除的时候有个现象，比如说刚还是光标在第一行，然后按ctrl+x执行一遍之后，删除了第一行和第八行（即数字1和数字8，为了直观的表示，暂且用这个数字填写每一行），然后再按一下ctrl+x执行，之后就把数字9和数字16删除了？我在想，要是连续的去删除，是不是得加一个循环啊？
我这里有个代码，请楼主指教：
Sub Macro8()
'
' Macro8 Macro
'
'
'隔7行删1行
Selection.Delete Shift:=xlUp

For I = 1 To [A65536].End(xlUp).Row
ActiveCell.Offset(6, 0).Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
Next

End Sub
看看这样行嘛？

人中之龙也 · 发表于 2012-7-25 06:12

好！！！！

费列罗 · 发表于 2012-9-4 13:42

继续学习！

费列罗 · 发表于 2012-9-4 23:12

一帖不落下，跟踪学习！

summer.linn · 发表于 2012-9-18 16:08

简单易懂，对初学者很有用！

zxd_little · 发表于 2013-1-12 13:00

辛苦了。。。。。。。。。。。。。。

sdgyc · 发表于 2013-1-12 13:13

感谢山菊花老师！！对初学者是福音。好好学习。

CONNEW · 发表于 2013-1-13 01:51

学了！！！！！！！！！！！！！！

xinjinghen1 · 发表于 2013-1-22 14:47

学习学习山老师的vba

ailevel0 · 发表于 2013-2-5 12:46

写得太好了！向前辈致敬

		自动登录	找回密码
密码			免费注册