এক্সেলের পরবর্তী অপারেশনগুলি করার জন্য আমার একটি সূত্র বা একটি ম্যাক্রো দরকার:
সদৃশ চিহ্নিত করুন এবং উদাহরণ হিসাবে প্রথম মানটি ছাড়ুন
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
এখানে কি করা উচিত তা কি কারো কাছে আছে? আপনার প্রতিক্রিয়া জন্য অগ্রিম ধন্যবাদ।