选中不含0值的区域

kangyunde

表中的0值是公式计算出来的，不好去除，我想选定第一列A2:A26中不含0值的区域，即A2:AF5
Range("A2:AF" &Cells(Cells.Rows.Count,1).End(xlUp).Row).Select   定位的是空值，能不能选中第一列中不含0值的区域

kevinchengcw

ykcbf1100

有0值不用怕的，数据处理时排除0值就行了。怕的是，你大费周折的去选好了不含0值的区域要多写了不少代码。

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, Rng As Range
   
    With [A1].CurrentRegion
        ar = .Value
        For i = 2 To UBound(ar)
            If Len(ar(i, 1)) Then
                If ar(i, 1) <> 0 Then
                    If Rng Is Nothing Then
                        Set Rng = .Rows(i)
                    Else
                        Set Rng = Union(Rng, .Rows(i))
                    End If
                End If
            End If
        Next i
    End With
   
    If Not Rng Is Nothing Then Rng.Select
    Beep
End Sub

gwjkkkkk

。。。。。。。。。。。。