जांचें कि सेल में दो नंबर समान हैं - एक्सेल-वीबीए

क्या कोई मुझे बता सकता है कि सेल को कैसे जांचें, ए 1 हैइसमें 2 समान संख्याएं हैं? उदाहरण सेल ए 1 = 1124. इसका मतलब है कि मेरे पास 2 समान संख्याएं हैं और यदि ऐसा है, तो बी 1 "हां" होगा बहुत बहुत धन्यवाद।

उत्तर:

यदि आप एक्सेल 2010 का उपयोग कर रहे हैं (एक्सेल 2007 में परीक्षण नहीं किया गया है) तो आपको इसके लिए वीबीए की आवश्यकता नहीं है। आप इस फॉर्मूला का उपयोग कर सकते हैं B1 और इसे कॉपी करें।

=IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(1),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(2),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(3),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(4),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(5),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(6),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(7),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(8),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(9),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(0),"",2),"Yes",
"No"))))))))))

व्याख्या

फॉर्मूला से जांचता है 0 - 9 एक्सेल सेल में यदि वह विशेष संख्या आवर्ती हो रही है।

स्क्रीनशॉट

वीबीए संस्करण:

Sub Sample()
Debug.Print Does2NumbersMatch(Range("A1"))
End Sub

Function Does2NumbersMatch(rng As Range)
Dim i As Long

Does2NumbersMatch = "No"

For i = 0 To 9
isMatch = Application.Evaluate("=IF(LOWER(" & rng.Address & ")<>SUBSTITUTE(LOWER(" & _
rng.Address & "),LOWER(" & i & "),"""",2),""Yes"",""No"")")
If isMatch = "Yes" Then
Does2NumbersMatch = "Yes"
Exit Function
End If
Next i
End Function