VBA Range 用法,一下这个程式错在哪，请好心人帮忙分析，谢谢

2023-05-29 04:38:58

sub 1()
dim rg as range, rng as range
for each rg in range("A:D")
IF rg > 0 set rng = rg
If rng is nothing then
set rng = union(rng,rg)
end if
next rg
rng.selection
end sub

好评回答

你也没说你想要实现的目的是什么
从你的代码来看,我想你要实现的功能是将所有非空的单元格选中吧.
如果真是这样的话,以下代码应该就可以了.你看看跟自己的比较下吧.
Sub aaaa()
Dim rg As Range, rng As Range
For Each rg In Range("A:D")
If rg.Value > 0 Then
If rng Is Nothing Then
Set rng = rg
Else
Set rng = Union(rng, rg)
End If
End If
Nex没程断界液t rg
If Not rng Is Nothing Then
***.Select
End If
End Sub