Aylara göre benzersiz sayılar nasıl sayılır?


1

Sütun A, bir sayılar listesi içerir, bazıları kopyalanır.

B sütunu, ayları temsil eden 1-12 arasında bir sayı listesini içerir.

A sütununda benzersiz sayıları saymam gerekiyor, burada B sütununda ay = 1

Örnek:

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

Yani burada örneğin 123, B = 1 ve 412 aynı ayda bir kez iki kez görünür, bu nedenle benzersiz sayım = 2 olmalıdır


Lütfen bir örnek ve beklenen sonuçlar ekleyerek sorunuzu biraz düzenleyin, böylece diğerleri yardımcı olabilir.
Kenneth L

SütunA SütunB 123 1 223 2 312 3 412 1 123 1 312 2 123 3 burada, örneğin 123, B = 1 ve 412 aynı ayda bir kez olduğunda iki kez görünür, bu nedenle benzersiz sayım = 2 olmalıdır
Chuku

1
Bu konunun bir cevabı var superuser.com/questions/189762/...
Kenneth L

bir şeyi kaçırmıyorsam, ay senaryosunu kapsamıyor
Chuku

Yanıtlar:


0

Countif kullanarak bir çözüm istediğinizi biliyorum, ancak bunun sadece countif ile yapılıp yapılamayacağını bilmiyorum; Yani, bir alternatif olarak, bu VBa yapar

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

Önce
enter image description here

VBa çalıştıktan sonra

enter image description here


VBA'sız: C1 "= COUNTIF (A: A;" = "& B1)" hücresine yerleştirin. Kopyala yapıştır aşağı. Excel'de hücre referanslarıyla birleştirilmiş bir dizi dizgi kullanmak çok güçlü ve sizi VBA'dan uzak tutuyor. Bu senin için işe yararsa bana haber ver.
agtoever
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.