[已解决]excel指定一个单元格，从下向上取得第一个非空并是数值的值

kmcla

直接用Rng.End(3)。找到的是没有值的公式
因为单元格不固定，要编成函数。向下面这样，我没写对。
Function 上第一个非空(Rng As Range)
Dim myCell As Range

      
      Do
            上第一个非空 = Rng.End(3)
            If 上第一个非空 <> "" Then
            Exit Function
            Else
           上第一个非空 = 上第一个非空.End(3)
            End If
Loop Until Rng.Address(False, False) <> ""

End Function

最佳答案

月排行榜 / 总排行榜

zjdh

2017-4-3 09:21

Function 上第一个非空(Rng As Range)
   上第一个非空 = Rng.End(3)   
    W=0
    Do
    If 上第一个非空 <> "" Then
        Exit Do
    Else
         W = W + 1
        上第一个非空 = Rng.Offset(-W, 0)
    End If
    Loop
    上第一个非空 = Rng.Offset(-W, 0).Address
End Function

跳转到最佳答案楼层

zjdh

Function 上第一个非空(Rng As Range)
   上第一个非空 = Rng.End(3)   
    W=0
    Do
    If 上第一个非空 <> "" Then
        Exit Do
    Else
         W = W + 1
        上第一个非空 = Rng.Offset(-W, 0)
    End If
    Loop
    上第一个非空 = Rng.Offset(-W, 0).Address
End Function

kmcla

zjdh 发表于 2017-4-3 09:21
Function 上第一个非空(Rng As Range)
   上第一个非空 = Rng.End(3)   
    W=0

你是天才，我怎么没想到
我一直想用Address(False, False)定位，没成功