VBA第7讲课件第2例:隔行插入空行(必做题)

suxiong22 · 发表于 2011-7-14 13:42

看看下载一下作业

mlwsb · 发表于 2011-11-4 22:15

我想看看。

hongliang224 · 发表于 2011-11-29 15:17

谢谢校长！！！！

caixiaoxiao · 发表于 2011-11-29 15:37

xiexiefencianxiangxiangxiang

望天打卦 · 发表于 2012-5-29 21:05

Sub a()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 100
      If Cells(i, "a") <> Cells(i + 1, "a") Then
         If Cells(i + 1, 1) = "" Then Exit Sub
         Rows(i + 1).Insert
         i = i + 1
      End If
Next i
End Sub
Sub b()
Columns(1).SpecialCells(xlCellTypeBlanks).Delete
End Sub

zilanbing2008 · 发表于 2012-5-30 00:15

谢谢老师

next01 · 发表于 2012-6-8 09:21

学习下{:011:}{:011:}

冰雪儿123456 · 发表于 2012-6-10 21:33

志里层顺晨在啡在假大空晨晨顺在

vbyou126 · 发表于 2015-5-20 09:35

提示: 作者被禁止或删除内容自动屏蔽

rlzcjrrmy · 发表于 2015-5-20 09:45

11111111111111111111111111111

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

vbyou126 vbyou126 当前离线积分 0 IP卡狗仔卡	发表于 2015-5-20 09:35 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
vbyou126 vbyou126 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报显身卡

[习题] VBA第7讲课件第2例:隔行插入空行(必做题)