지정된 값을 포함하는 열의 VBA 셀 수

지정된 값을 포함하는 열의 VBA 셀 수

지정된 열을 검색하여 지정된 문자열을 포함하는 모든 셀을 카운트하는 매크로를 작성해야 합니다(예: 이 숫자를 변수에 관련짓는 경우).

좋은 생각 있는 사람?

VBA에서 공식을 사용하겠다는 말씀이신가요?예를 들어 다음과 같습니다.

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

작동해야 합니다.

이것은 당신이 찾고 있는 것이 아닙니다만, 이것은 제가 과거에 이 문제에 접근한 방법입니다.

다음과 같은 수식을 입력할 수 있습니다.

=COUNTIF(A1:A10,"Green")

...감방 안으로.이 값은 "녹색" 텍스트가 포함된 A1과 A10 사이의 셀 수를 카운트합니다.그런 다음 VBA 매크로에서 이 셀 값을 선택하고 일반 값으로 변수에 할당할 수 있습니다.

편도

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

공백이 아닌 값이나 빈 셀을 매칭하고 와일드카드 문자를 사용하는 데 어려움을 겪고 있는 경우 아래 솔루션을 참조하십시오.

Dim n as Integer
n = Worksheets("Sheet1").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count

당신이 요청한 것은 아니지만 그럼에도 불구하고 유용할 수 있습니다.

물론 행렬 공식에서도 같은 작업을 수행할 수 있습니다.다음 내용을 포함하는 셀의 결과를 읽어 보십시오.

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

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

행렬 공식 입력에는 ENTER뿐만 아니라 CTRL+SHIFT+ENTER가 필요합니다.그 후 다음과 같이 표시됩니다.

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

언급URL : https://stackoverflow.com/questions/8592915/vba-count-cells-in-column-containing-specified-value