|
这样?
Sub test1()
Dim rg As Range, rng As Range, Ic%, rng1 As Range
For Each rng In [a15:a20] '遍历A列
Ic = Cells(rng.Row, "iv").End(1).Column
Set rng1 = Cells(rng.Row, Ic)
If rng1 <> "" Then
If rg Is Nothing Then
Set rg = rng1
Else
Set rg = Application.Union(rg, rng1)
End If
End If
Next rng
rg.Select
End Sub |
|