iki sütunda yazılı sayılar arasındaki En çok olanı bul

[mozdem]

Merhabalar,
Örnek dosyama göre anlatmak istiyorum.
iki sütunda sayılar var.
Bu sütundaki örneğin B3 hücresinde 50, C3 hücresinde 65 var ise, 50 den 65 e kadar olan tüm sayıları kapsıyor demektir.
C3 hücresinde 65 ten 70 e kadar sayı varsa, sonuçta tüm sayılardan 1 tane 65 sayısından 2 adet var demektir.
Ben bunu makro ile yaptım ama formül ile nasıl yapılabilir. Makro ile de zaten acemice oldu.
Şimdiden teşekkür ederim.

Sub say()
Dim son_str As Long
'Dim m,k,i As integer

son_str = Cells(1000, "b").End(xlUp).Row
m = 3
Range("G3:G5000").ClearContents

For k = 3 To son_str
    say1 = Range("B" & k)
    say2 = Range("C" & k)
    
    For i = say1 To say2
        Range("G" & m).Value = i
        m = m + 1
    Next
Next k
    
End Sub

 

[Korhan Ayhan]

Merhaba,

Ofis 365 için bir çözüm..

=MODE.MULT(DROP(REDUCE(0;SEQUENCE(COUNT(B:B);;3;1);LAMBDA(X;Y;VSTACK(X;SEQUENCE(1+INDEX(C:C;Y)-INDEX(B:B;Y);;INDEX(B:B;Y)))));1))

 

[mozdem]

Hocam, Cevap için çok teşekkür ederim. Ama ben MS Office 2019 kullandığım için şu an kullanamayacağım. Belki ileride kullanabilirim. Yazdığınız formül benim kullandığım Excel formatına çevrilir mi bilmiyorum. çevrilse de ben o kadar bilgiye sahip değilim.

Merhaba,

Ofis 365 için bir çözüm..

=MODE.MULT(DROP(REDUCE(0;SEQUENCE(COUNT(B:B);;3;1);LAMBDA(X;Y;VSTACK(X;SEQUENCE(1+INDEX(C:C;Y)-INDEX(B:B;Y);;INDEX(B:B;Y)))));1))

 

[Korhan Ayhan]

Yeni nesil fonksiyonlar döngü mantığıyla sonuç verebiliyor.. Sizin kullandığınız sürüm için makro kullanmak daha mantıklı olacaktır.