Excel vlookup

[Yusuf128]

Arkadaslar selamlar.

Bir sorunum var ve bulamadim cozumunu.

A. B.
Deneme1 deneme2
Deneme4 deneme6
Denene1 deneme2
Deneme1 deneme8
Deneme1 deneme8

Yukaridaki gibi bir excelim var.


Yapmak istedigim deneme1 de kactane deneme2 var yada deneme1 de kac tane denene8 var bulmak.

Bunu nasil yapabilirim?

 

[YUSUF44]

Bunun en kolay hali özet tablo raporudur. Formülle isterseniz ÇOKEĞERSAY formülünü araştırınız. Ben özet tabloyu öneririm. Cepten baktığımdan örnek veremiyorum.

 

[Yusuf128]

Ozet tablo olmuyor cunku sutun sayisi cok fazla. Guzel bir daha cikmiyor elime. cokegersay komutuna bakacagim

 

[Korhan Ayhan]

Deneyiniz.

Dosyanızda Sheet1 ve Sheet2 adında iki sayfa olmalı.

Sheet1 sizin verdiğiniz veriler olmalı.

Özet Liste Sheet2 sayfasına yapılmaktadır.

Sayfa isimlerini kendinize göre düzenlersiniz.

Option Explicit

Sub Count_Data()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Veri As Variant, Son As Long
    Dim X As Long, Y As Integer, Zaman As Double
    
    Zaman = Timer
    
    Set S1 = Sheets("Sheet1")
    Set S2 = Sheets("Sheet2")
    
    Son = S1.Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Veri = S1.Range("A1:B" & Son).Value
    
    With CreateObject("Scripting.Dictionary")
        For X = LBound(Veri, 1) To UBound(Veri, 1)
            For Y = LBound(Veri, 1) To UBound(Veri, 2)
                If Not .Exists(Veri(X, Y)) Then
                    .Item(Veri(X, Y)) = 1
                Else
                    .Item(Veri(X, Y)) = .Item(Veri(X, Y)) + 1
                End If
            Next
        Next
    
        S2.Range("A1").Resize(.Count, 2) = Application.Transpose(Array(.Keys, .Items))
        S2.Columns.AutoFit
        S2.Select
    End With
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub