Sub 选择整列()
Dim rng As Range, rt As Range
For Each rng In Selection
If rng <> "" And rng = 0 Then
If rt Is Nothing Then
Set rt = rng.EntireRow
Else
Set rt = Union(rt, rng.EntireRow)
End If
End If
Next
rt.Select
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024