求VBA中将不为空行号暂存然后全部选中不为空单元格代码

发布网友发布时间：2024-10-29 16:16

共1个回答

热心网友时间：2024-10-29 16:15

亲，代码如下，附件已上传，下图是演示动画。

Sub xz()
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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

求VBA中将不为空行号暂存 然后全部选中不为空单元格 代码

求VBA中将不为空行号暂存然后全部选中不为空单元格代码