VBA 값이 변경 될 때까지 계산합니다.

Question

값이 변경 될 때까지 셀 A : 2의 값을 계산해야합니다. 계산할 시트에는 알 수없는 양의 셀에 대한 값이 반복되고 다른 값 집합), 초기 값은 결코 동일하지 않습니다. 이것은 현재 가지고있는 코드입니다. 셀에 데이터가 없을 때까지 계산됩니다. 어떤 도움을 주시면 감사하겠습니다.

  SourceRange = 1 
      Do Until Cells(SourceRange, 1) = "" 
       SourceRange = SourceRange + 1 

Answer 1

에 대해 어떻게 :

Sub dural() 
    v = Range("A2").Value 
    For i = 3 To Rows.Count 
     If Cells(i, 1).Value <> v Then 
      MsgBox CStr(i - 2) 
      Exit Sub 
     End If 
    Next i 
End Sub 

Answer 2

는이

Sub CountSame() 

    Dim OC As Range, CC As Range 

    Set OC = Range("a2") 
    Set CC = OC 

    Do Until CC.Value <> OC.Value 
     Set CC = CC.Offset(1, 0) 
     a = a + 1 
    Loop 

    MsgBox a 

End Sub` 

Answer 3

당신이 사용할 수있는 시도

Function CountConsecutiveSame(rng as Range) as Long 
    With Rng 
     Set found = Range(.Offset(1), .End(xlDown)).Find(What:=.Value, LookAt:=xlWhole, LookIn:=xlValues) 
     If Not found Is Nothing Then CountConsecutiveSame = found.Row - .Row + 1 
    End With 
End Function 

가 수행

MsgBox CountConsecutiveSame(Range("A2"))