- Lesz Xperia 10 VII, méghozzá újratervezett külsővel
- Android alkalmazások - szoftver kibeszélő topik
- Milyen okostelefont vegyek?
- Xiaomi 15 - kicsi telefon nagy energiával
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Google Pixel topik
- Műholdakkal is beszélgethet a Redmi Note 15 Pro+
- Samsung Galaxy S25 - végre van kicsi!
- iPhone topik
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
válasz
föccer #12909 üzenetére
Ez meg egy makrós megoldás.
Function CountOfDistinctValues(MyTypeSrcRange As Range) As Long
Dim MyCollection As New Collection
Dim MyCell As Range
Dim MyTypeSrcRange As Range
Application.Volatile
For Each MyCell In MyTypeSrcRange
On Error Resume Next
MyCollection.Add MyCell.Value, CStr(MyCell.Value)
Next MyCell
On Error GoTo 0
CountOfDistinctValues = MyCollection.Values.Count
End FunctionSajnos most nem tudom tesztelni(nincs Office a gépen), csak megírtam, remélhetőleg így is működik...
Új hozzászólás Aktív témák
- Bomba ár! Dell XPS 13 9333 - i7-4GEN I 8GB I 256SSD I 13,3" FHD Touch I Cam I W10 I Garancia!
- Eladó szép állapotban levő Apple iPhone 8 Plus 64GB / 12 hó jótállással
- Dell 7400 Intel Core i7-8665U
- Bomba ár! Dell Latitude E7250 - i5-5GEN I 8GB I 256SSD I 12,5" HD I HDMI I Cam I W10 I Garancia!
- MacBook felvásárlás!! Macbook, Macbook Air, Macbook Pro
Állásajánlatok
Cég: FOTC
Város: Budapest