[حل شده] count کردن با vba

[MA.SHAHIDI]

سلام
یک جدول حاوی اطلاعات مدارس دارم که میخوام دیتای نام شهر شمرده بشه.
مثلا بهم بگه تهران چند بار تکرار شده . تعداد دیتاهام زیاده و تعداد شهر ها هم زیاده .
با vb میشه ؟

[majid_mx4]

با سلام

میتوانید از دستورات زیر استفاده نمایید.
توضیح : به شرطی که نام شهرها درستون A باشد تعداد تکرار آنها در ستون B در مقابل نام شهر آورده میشود .

Sub CountLots()
  Dim a As Variant, b As Variant, e As Variant
  Dim d As Object
  Dim i As Long
  
  Set d = CreateObject("Scripting.Dictionary")
  d.CompareMode = 1
  b = Sheets("Sheet2").Range("A1").CurrentRegion.Resize(, 1).Value
  ReDim Preserve b(1 To UBound(b), 1 To 2)
  a = Sheets("Sheet1").UsedRange.Value
  For Each e In a
    If Len(e) > 0 Then
      d(e) = d(e) + 1
    End If
  Next e
  For i = 1 To UBound(b)
    b(i, 2) = d(b(i, 1))
  Next i
  Sheets("Sheet2").Range("A1:B1").Resize(UBound(b)).Value = b
End Sub

موفق باشید میر

[MA.SHAHIDI]

سپاسگذارم