2014-06-30 58 views

回答

0

考慮:

Sub GetTheBigOnes() 
    Dim rFull As Range, rBig As Range 
    Set rFull = Range("A1:J10") 
    Set rBig = Nothing 
    For Each r In rFull 
     If Len(r.Value) > 300 Then 
      If rBig Is Nothing Then 
       Set rBig = r 
      Else 
       Set rBig = Union(rBig, r) 
      End If 
     End If 
    Next r 
    MsgBox rBig.Address(0, 0) 
End Sub 
+0

有沒有使用循環的解決方案? – user3790129

+0

不......沒有** SpecialCells **來幫助我們。 –

+0

有沒有辦法使用條件格式來獲取範圍? – user3790129

相關問題