সদৃশ মান স্বীকৃতি এবং তাদের একটি এক্সটেনশান স্বয়ংক্রিয়ভাবে যোগ


1

এক্সেলের পরবর্তী অপারেশনগুলি করার জন্য আমার একটি সূত্র বা একটি ম্যাক্রো দরকার:
সদৃশ চিহ্নিত করুন এবং উদাহরণ হিসাবে প্রথম মানটি ছাড়ুন

2
2
2
2
2
2

হতে হবে

2
2.1
2.2
2.3
2.4
2.5

এটি একটি নির্দিষ্ট কলামে সমস্ত সদৃশগুলিতে করা উচিত, এই ক্ষেত্রে কলাম বি।

আমি এখন পর্যন্ত চেষ্টা করেছি মত একটি সূত্র ব্যবহার করা হয়

=IF(COUNTIF($B$1:$B$5000,B1)>1,B1& " (" & COUNTIF(B$1:B1,B1) & ")",B1)

যা কাজ করে না এবং ভিবিতে একটি ম্যাক্রো প্রোগ্রামিংয়ের ক্ষেত্রে সত্যিই আমার শক্তিশালী স্যুট নয়। আমি যে ম্যাক্রোটি পরীক্ষা করেছি তাও কাজ করছে না:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dataRng As Range
Dim dataArr() As Variant, output() As String
Dim y As Long, i As Long, j As Long, tmpcount As Long
Set dataRng = Range("B1").Resize(Me.UsedRange.Rows.Count, 1)
If Not Intersect(Target, dataRng) Is Nothing Then
    dataArr = dataRng.Value
    ReDim output(1 To UBound(dataArr, 1), 1 To 1)
   For y = 1 To UBound(dataArr, 1)
        If Right(dataArr(y, 1), 1) = ")" Then
            dataArr(y, 1) = Left(dataArr(y, 1), InStr(dataArr(y, 1), " (") - 1)
        End If
    Next y
    For i = 1 To UBound(dataArr, 1)
        tmpcount = 0
        output(i, 1) = dataArr(i, 1)
        For j = 1 To UBound(dataArr, 1)
            If dataArr(i, 1) = dataArr(j, 1) Then
                tmpcount = tmpcount + 1
                If j = i And tmpcount > 1 Then
                    output(i, 1) = dataArr(i, 1) & " (" & tmpcount & ")"
                    Exit For
                End If
                If j > i And tmpcount > 1 Then
                    output(i, 1) = dataArr(i, 1) & " (" & tmpcount - 1 & ")"
                    Exit For
                End If
            End If
        Next j
    Next i
    Call printoutput(output, dataRng)
    End If
End Sub
Private Sub printoutput(what As Variant, where As Range)
Application.EnableEvents = False
where.Value = what
Application.EnableEvents = True
End Sub

এখানে কি করা উচিত তা কি কারো কাছে আছে? আপনার প্রতিক্রিয়া জন্য অগ্রিম ধন্যবাদ।


1
আরো তথ্য এখানে প্রয়োজন বোধ করা হয়। শুরুতে, আমরা এক্সেল সম্পর্কে কথা বলছি?
Jarmund

দুঃখিত, হ্যাঁ আমরা এক্সেল সম্পর্কে কথা বলছি
Daniel

1
যে ক্ষেত্রে, আপনি এই প্রশ্ন যোগ করা উচিত
Jarmund

আমি এখন এটা :)
Daniel

আপনার প্রশ্নটি "আমার জন্য আমার কাজটি" মত করে আপনি কী চেষ্টা করেন তা যোগ করা উচিত :(
Dave

উত্তর:


3

কলাম মান সঙ্গে একজন , মধ্যে খ 1 প্রবেশ করান:

=A1

এবং ভিতরে B2 তে প্রবেশ করান:

=A2 & IF(COUNTIF($A$1:A1,A2)=0,"","." & COUNTIF($A$1:A1,A2))

এবং কপি করুন:

enter image description here

বিঃদ্রঃ : কলাম মান আছে কোন প্রয়োজন নেই একজন সাজানো।


আমি এই সূত্র ব্যবহার করে একটি ত্রুটি বার্তা পেয়েছি। কিভাবে আমি একটি মন্তব্য হিসাবে একটি মুদ্রণ পর্দা পাঠাতে পারেন?
Daniel

এই কি আউট এসেছেন de.tinypic.com/r/mja83/9
Daniel

@Daniel আপনার সূত্রটি আপনার স্থানীয় ভাষা সেটিংসের সাথে সামঞ্জস্যপূর্ণ কিনা তা নিশ্চিত করুন।
Gary's Student

আপনার সেটিং কি, কারণ আমি আমার পরিবর্তন করেছি এবং এটি এখনও কাজ করছে না
Daniel

আমি ভাষা ইংরেজি (মার্কিন) সুইচ করার চেষ্টা করেছি এবং এটি এখনও কাজ করে না
Daniel

0

ত্রুটির কারণ দেখতে প্রতিক্রিয়াটি ভাগ করে নেওয়ার চেষ্টা করুন (কী হচ্ছে তা দেখতে আমি আপনার লিঙ্কটি de.tinypic.com/r/mja83/9 খুলতে পারিনি)। উদাহরণস্বরূপ লিখুন = countif ($ A $ 1: A1, A2) C2 এ fx ব্যবহার করে দেখুন অথবা আপনার ভাষায় সংশ্লিষ্টটি ব্যবহার করতে ফর্মুলা সন্নিবেশ করান এবং সম্ভবত তালিকা বিভাজক; না, আপনার কম্পিউটার সেটিংস। এছাড়াও = যদি (C2 = 0, "", ",") D2 তে তারপর বি 2 = এ 2 & amp; D2 & amp; C2 এ যদি সবকিছু আবার সূত্র একত্রিত করা হয়। গ্যারি এর সূত্র ডান এবং কাজ করে

আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.