VBA查找某個單元格中是否存在值

我正試圖查找某個值是否僅存在於這些特定單元格中。我已經拼湊了來自各種來源的代碼，我似乎無法實現它的工作。VBA查找某個單元格中是否存在值

Resources = ActiveWorkbook.Sheets("Sheet1").Range("A1,A4,A6,A8,A10") 
MsgBox Application.WorksheetFunction.CountIf(Range(Resources, 0), ">0")

我似乎取決於什麼Dim我的Resources變量設置爲獲得各種錯誤，我不完全知道什麼是, 0是？

任何幫助將不勝感激。

來源

2013-10-24 Xareyo

在'Resources variable'前面添加'Set'這種方法：'Set Resources = ...'並確保它以'Range Resources'的形式聲明爲'Range type'：'Dim Resources as range'。會發生什麼？ –

也COUNTIF不能有不連續的範圍 –

@KazJaw這是我的原始設置，我得到的錯誤是'運行時錯誤'1004'：無法獲取WorksheetFunction類的CountIf屬性。我猜的是@SiddharthRout評論？有什麼建議麼？ – Xareyo

這是你正在嘗試？

Sub Sample() 
    Dim Resources As Range, aCell As Range 
    Dim n As Long 

    Set Resources = ActiveWorkbook.Sheets("Sheet1").Range("A1,A4,A6,A8,A10") 

    For Each aCell In Resources 
     If aCell.Value > 0 Then n = n + 1 
    Next 

    MsgBox n 
End Sub

來源

2013-10-24 10:20:39

太棒了，這是完美的！非常感謝你！ – Xareyo

VBA查找某個單元格中是否存在值

回答

相關問題