VBA第7讲习题---学员答案上传专贴

bandari

游客，如果您要查看本帖隐藏内容请回复

</p><p>+7</p><p>&nbsp;</p>

[此贴子已经被laosanjie于2008-6-18 17:47:40编辑过]

南仁海杨

游客，如果您要查看本帖隐藏内容请回复

</p><p>+2</p><p>&nbsp;</p>

[此贴子已经被laosanjie于2008-6-19 15:50:03编辑过]

lvxingong

游客，如果您要查看本帖隐藏内容请回复

</p><p>第5、7两题，重新看了录像，才明白。</p><p>第一题：隐藏A和B列都为空的行。</p><p>Sub 隐藏()<br/>&nbsp;Dim x As Range, y As Range<br/>&nbsp; Set x = Range("a1:a14").SpecialCells(xlCellTypeBlanks)<br/>&nbsp; Set y = Range("b1:b14").SpecialCells(xlCellTypeBlanks).Offset(, -1)<br/>&nbsp; Intersect(x, y).EntireRow.Hidden = True<br/>End Sub</p><p>第二题：隔行插入空行</p><p>Sub 隔行插入空行()<br/>&nbsp;Dim i%, z%<br/>&nbsp;On Error GoTo 100<br/>100:<br/>&nbsp; z = InputBox("请输入每行间插入的空行数量", "确定想插入的行数")<br/>&nbsp; For i = Range("b65536").End(xlUp).Row To 3 Step -1<br/>&nbsp;&nbsp; Rows(i &amp; ":" &amp; i + z - 1).Insert<br/>&nbsp; Next i<br/>End Sub</p><p>第三题：查找最右最下空值的单元格</p><p>Sub 查找空单元()<br/>&nbsp;MsgBox "最右最下空值单元格地址是:" &amp; Range("a1:d12").Find("", searchorder:=xlByRows, searchdirection:=xlPrevious).Address(0, 0)<br/>End Sub</p><p>第四题：列的合并</p><p>Sub 合并()<br/>&nbsp;Dim x%<br/>&nbsp; For x = 2 To 12<br/>&nbsp;&nbsp; Cells(x, "f") = Cells(x, "e").End(xlToLeft)<br/>&nbsp; Next x<br/>End Sub</p><p>第五题：取不重复值</p><p>Sub 取不重复值()<br/>&nbsp;Dim aa As Range<br/>&nbsp; For Each aa In Range("a1:d12")<br/>&nbsp;&nbsp; If aa &gt;= "D" And aa &lt;= "W" Then<br/>&nbsp;&nbsp;&nbsp; If Application.CountIf(Range("f:f"), aa) = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp; Range("f65536").End(xlUp).Offset(1, 0) = aa<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp; End If<br/>&nbsp; Next aa<br/>End Sub</p><p>第六题：合并单元格</p><p>Sub 合并单元格()<br/>&nbsp;Dim x%<br/>&nbsp; For x = Range("a65536").End(xlUp).Row To 2 Step -1<br/>&nbsp;&nbsp;&nbsp; If Cells(x, 1) = Cells(x - 1, 1) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp; Application.DisplayAlerts = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range(Cells(x, 1), Cells(x - 1, 1)).Merge<br/>&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp; Next x<br/>&nbsp; Application.DisplayAlerts = True<br/>End Sub</p><p>第七题：求和</p><p>Sub 求和()<br/>&nbsp;Dim x%<br/>&nbsp; For x = 2 To Range("c65536").End(xlUp).Row<br/>&nbsp;&nbsp; If Cells(x, 1) &lt;&gt; "" Then<br/>&nbsp;&nbsp;&nbsp; Cells(x, 4) = Application.Sum(Cells(x, 3).Resize(Cells(x, 1).MergeArea.Count))<br/>&nbsp;&nbsp; End If<br/>&nbsp; Next x<br/>End Sub<br/></p><p>[/hide]</p><p>+7</p><p>&nbsp;</p>

[此贴子已经被laosanjie于2008-6-20 20:48:54编辑过]

bin

学习学习

笨笨笨

<p>不错，学习中</p>

希哲

0

ahtl101

找不到下载的方法

hbnz01

来学习

vbyou127

gfffd