[已解决]如何 选中区域中 不特定 的 所有非空单元格 所在的行

laizis

sub t()
Dim ee As Integer
Dim ff As Integer

ee = Sheets("意向金台账").Range("B65536").End(xlUp).Row
For ff = 3 To ee
If Sheets("意向金台账").Range("k" & ff) <> "" Then
Sheets("意向金台账").Range("k" & ff).EntireRow.Select
  End If
Next ff

end if
End Sub

用以上的代码只能选中 最后一个 非空单元格  所在的行，帮忙看如何修改。

最佳答案

月排行榜 / 总排行榜

adders

2013-7-16 22:41

sub t()
Dim ee As Integer
Dim ff As Integer
Dim rSelect as Range

ee = Sheets("意向金台账").Range("B65536").End(xlUp).Row
For ff = 3 To ee
    If Sheets("意向金台账").Range("k" & ff) <> "" Then
        If rSelect Is Nothing Then
             Set rSelect = Sheets("意向金台账").Rows(ff)
        Else
             Set rSelect = Union(rSelect, Sheets("意向金台账").Rows(ff))
        End If
    End If
Next ff
rSelect.Select
End Sub

跳转到最佳答案楼层

w2001pf

循环完了肯定只能选择最后一个嘛。在循环过程中选择非空后又选择了下一个非空的。最后你看到的肯定是只有一个的。

laizis

所以请教看要怎么实现 这功能？

adders

sub t()
Dim ee As Integer
Dim ff As Integer
Dim rSelect as Range

ee = Sheets("意向金台账").Range("B65536").End(xlUp).Row
For ff = 3 To ee
    If Sheets("意向金台账").Range("k" & ff) <> "" Then
        If rSelect Is Nothing Then
             Set rSelect = Sheets("意向金台账").Rows(ff)
        Else
             Set rSelect = Union(rSelect, Sheets("意向金台账").Rows(ff))
        End If
    End If
Next ff
rSelect.Select
End Sub

laizis

adders 发表于 2013-7-16 22:41
sub t()
Dim ee As Integer
Dim ff As Integer

谢谢指点！