মাসের ভিত্তিতে অনন্য সংখ্যা গণনা করবেন কীভাবে?

Question

কলাম এ সংখ্যার একটি তালিকা অন্তর্ভুক্ত করে, কিছুকে নকল করা হয়

কলাম বিতে 1-12 থেকে সংখ্যার একটি তালিকা অন্তর্ভুক্ত রয়েছে যা মাসগুলি উপস্থাপন করে

আমার কলাম A তে অনন্য সংখ্যা গণনা করতে হবে যেখানে কলাম B = 1 এ মাস রয়েছে

উদাহরণ:

ColumnA ColumnB
123     1
223     2
312     3
412     1
123     1
312     2
123     3

সুতরাং এখানে উদাহরণস্বরূপ 123 একবারে একই মাসে একবার বি = 1 এবং 412 একবার দেখাবে যাতে অনন্য গণনাটি = 2 হওয়া উচিত

Comments

দয়া করে একটি উদাহরণ এবং আপনার প্রত্যাশিত ফলাফল যুক্ত করে আপনার প্রশ্নটি কিছুটা সম্পাদনা করুন, যাতে অন্যরা সহায়তা করতে পারে।

— কেনেথ এল

কলামা কলামবি 123 1 223 2 312 3 412 1 123 1 312 2 123 3 সুতরাং এখানে উদাহরণস্বরূপ 123 একবার দেখা যাবে যখন বি = 1 এবং 412 একই মাসে একবার তাই অনন্য গণনাটি = 2

— চুকু

এই থ্রেড একটা উত্তর আছে superuser.com/questions/189762/...

— কেনেথ এল

আমি যদি কিছু মিস করি না তবে এটি মাসের দৃশ্যের আচ্ছাদন করে না

— চুকু

Answer 1

আমি জানি আপনি কাউন্টিফ ব্যবহার করে একটি সমাধান চান, তবে আমি জানি না এটি কেবল কাউটিটিফ দিয়েই করা যায় কিনা; সুতরাং, বিকল্প হিসাবে, এই ভিবি এটি করে

Option Explicit
Sub CountDuplicatesPerMonth()

Dim row As Integer
row = 1

Range("C:C").Value = "" 'clear the results


Do While (Range("A" & row).Value <> "")

    Dim val As String
    val = Range("A" & row).Value

    Dim month As Integer
    month = Range("B" & row).Value

    Range("C" & row).Value = 0

    Dim innerRow As Integer
    innerRow = 1

    Do While (Range("A" & innerRow).Value <> "")

        Dim innerVal As String
        innerVal = Range("A" & innerRow).Value

        Dim innerMonth As Integer
        innerMonth = Range("B" & innerRow).Value

        If (innerVal = val And innerMonth = month) Then
            Range("C" & row).Value = Range("C" & row).Value + 1
        End If

        innerRow = innerRow + 1

    Loop

   row = row + 1

Loop

End Sub

আগে

ভিবিএ চলে যাওয়ার পরে

Comments

ভিবিএ ছাড়াই: সেল সি 1 "= COUNTIF (এ: এ;" = "ও বি 1) এ দিন"। কপি-পেস্ট ডাউন। এক্সেলের সেল রেফারেন্সের সাথে মিলিত স্ট্রিং কনকেনেটেটিং ব্যবহার করা খুব শক্তিশালী এবং আপনাকে ভিবিএ থেকে দূরে রাখে। কাজ করেছে কিনা আমাকে জানান.

— agtoever