求VBA中将不为空行号暂存 然后全部选中不为空单元格 代码
发布网友
发布时间：8分钟前
共1个回答
热心网友
时间：9分钟前
亲，代码如下，附件已上传，下图是演示动画。
Dim rg, u As Range
Dim r As Long
r = Range("A" & Rows.Count).End(xlUp).Row
For Each rg In Range("A1:A" & r)
If rg.Value = "" Then
If u Is Nothing Then
Set u = rg
Else
Set u = Union(u, rg)
End If
End If
Next
u.Select
End Sub
