VBA80集第12集作业上交贴：非空行

fangduke · 发表于 2012-3-24 09:27

看答案学习,呵呵!!

DXLAB · 发表于 2012-3-26 13:26

在此先感谢兰色幻想老师所提供这么好的教学视频，然后交上第12集的作业。老师辛苦了！

monicaj · 发表于 2012-3-26 13:27

学习学习……………

zhoujianhua · 发表于 2012-3-27 17:28

看一下答案，我不太会做

gsqyxzd · 发表于 2012-3-31 16:02

坚持跟老师好好学习到底

gsqyxzd · 发表于 2012-3-31 16:03

Sub aa()
Dim x As Integer
For x = 1 To [a1048576].End(xlUp).Row
If Range("b" & x, "d" & x).SpecialCells(xlCellTypeBlanks).Count < 3 Then
Cells(x, 1) = "1"
Else
End If
Next x
End Sub

海底深深行 · 发表于 2012-4-1 15:53

嘿嘿，基础比较差，来学习一下

deer415 · 发表于 2012-4-1 17:01

来看看答案、。。。。。。

dw37182 · 发表于 2012-4-3 12:46

Sub lianxi2()
'未实现删除重复的标题功能

Dim x As Integer
For x = 1 To Sheets.Count

Windows("A.xls").Activate
Sheets(x).Select
Sheets(x).UsedRange.Select
Selection.Copy
Windows("第12集练习题.xls").Activate
Range("a65536").End(xlUp).Offset(1, 0).Select
Sheets(2).Paste

Next x
'删除空行
Windows("第12集练习题.xls").Activate
Range("A1:A65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

fangmin2008 · 发表于 2012-4-3 23:01

学习来了

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

VBA80集第12集作业上交贴：非空行

RE: VBA80集第12集作业上交贴：非空行

浏览过的版块