VBA計數細胞在列含有規定值

Question

我需要編寫，搜索指定列和計算所有包含指定字符串的單元的宏，如"19/12/11" or "Green"然後用變量這個號碼相關聯，

有沒有人有任何想法？

Answer 1

您的意思是您想在VBA中使用公式嗎？例如：

Dim iVal As Integer 
iVal = Application.WorksheetFunction.COUNTIF(Range("A1:A10"),"Green") 

應該工作。

Answer 2

這不是究竟是你在找什麼，但這是我過去如何解決這個問題;

您可以輸入一個公式如：

=COUNTIF(A1:A10,"Green") 

...進入細胞。這將計算A1和A10之間包含文本「綠色」的單元格數量。然後，您可以在VBA宏中選擇該單元格值並將其作爲正常分配給一個變量。

Answer 3

單程;

var = count("find me", Range("A1:A100")) 

function count(find as string, lookin as range) As Long 
    dim cell As Range 
    for each cell in lookin 
     if (cell.Value = find) then count = count + 1 '//case sens 
    next 
end function 

Answer 4

不是你問的，但可能有用。

當然你可以用矩陣公式做同樣的事情。 只是讀取包含電池的結果：

Cell A1="Text to search"
Cells A2:C20=Range to search for

=COUNT(SEARCH(A1;A2:C20;1)) 

請記住，進入矩陣公式需要CTRL + Shift + Enter，而不只是ENTER鍵。 後，它應該是這樣的：

{=COUNT(SEARCH(A1;A2:C20;1))}