एक्सेल में सरणी के भीतर प्रवेश करने के लिए इसी नंबर पर लौटें

Question

मेरे पास नामों की एक सूची है और मैं इसके आगे एक कॉलम बनाना चाहता हूं जो यह दर्शाता है कि हर दिए गए नाम की सूची में प्रविष्टि की संख्या कितनी है। "ENTRY" शीर्षक वाले स्तंभ को प्राप्त करने के लिए मैं क्या कर रहा हूँ, इसका एक उदाहरण नीचे दिया गया है:

INDEX NAME    ENTRY
1     MIKE    1
2     JANE    1
3     JANE    2
4     JANE    3
5     LANA    1
6     MIKE    2
7     JEREMY  1
8     CLIVE   1
9     JANE    4

इसे कैसे प्राप्त किया जा सकता है?

Comments

मुझे लगता है कि आपका प्रश्न स्पष्ट है, इसलिए +1, आप यह नहीं समझाते हैं कि आप ऐसा क्यों चाहते हैं ... इसलिए मैं कुछ धारणाएं बना रहा हूं और जैसे मुझे नहीं लगता कि आप वीबीए के बिना ऐसा कर सकते हैं। क्या वह ठीक है?

— डेव

Answer 1

यह VBa वही करता है जो आप चाहते हैं।

याद रखें कि पहले फ़ाइल का बैक अप लें, कोई पूर्ववत कार्य नहीं है

Option Explicit
Sub EeekPirates()

Dim startRow As Integer
startRow = 2                          'Ah hoy cap'ain, enter the startRow

Dim entryColumn As String
entryColumn = "C"                     'Enter the entry column so we can place the gold...

Dim nameColumn As String
nameColumn = "B"                      'Enter the name column so we know the sea dogs name

'aye aye cap'ain, we'll start now. Touch any of the below and we'll feed ye to the sharks

Dim realStartRow As Integer
realStartRow = startRow


Dim innerRow As Integer
innerRow = startRow
Do While (Range(nameColumn & startRow).Value <> "")
Dim count As Integer
count = 0
Dim name As String
name = Range(nameColumn & startRow).Value
    Do While (innerRow - 1 < startRow)
        If (Range(nameColumn & innerRow).Value = name) Then
            count = count + 1
        End If

        innerRow = innerRow + 1
    Loop
    Range(entryColumn & startRow).Value = count
    innerRow = realStartRow
    startRow = startRow + 1
Loop


End Sub

मैं MS Office में VBA कैसे जोड़ूँ?

और VBa निष्पादित होने के बाद यह कैसा दिखता है, इसका एक स्क्रीन शॉट

Comments

यह पूरी तरह से काम करता है। अति उत्कृष्ट। आपकी मदद के लिए बहुत धन्यवाद।

— शाखाएं

Answer 2

वीबीए के बिना

में सी 2 में प्रवेश 1 , में सी 3 दर्ज करें:

=COUNTIF($B$2:B3,B3)

और कॉपी करें:

Comments

+1 से बेहतर जवाब मेरा

— डेव

@ क्या आपका जवाब भी अच्छा है!

— गैरी स्टूडेंट

अति उत्कृष्ट। यह भी काम करता है। मैं उत्तर छोड़ दूंगा, लेकिन जब मेरे पास पर्याप्त प्रतिष्ठा होगी तो मैं इसे चिह्नित करूंगा। आपकी मदद के लिए बहुत धन्यवाद।

— शाखाएँ