[已解决]VBA代码求助

yashj2007

题目：一次性选中所选区域里的空白单元格。
Sub t()
Dim rng As Range
Dim rg As Range
For Each rg In Selection
rg.SpecialCells (xlCellTypeBlanks)
If rng Is Nothing Then Set rng = rg
Set rng = Union(rng, rg)
Next
rng.Select
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2012-9-27 16:03

Sub t()
Selection.SpecialCells(xlCellTypeBlanks).Select
End sub

跳转到最佳答案楼层

zjdh

Sub t()
Selection.SpecialCells(xlCellTypeBlanks).Select
End sub