Csoport elemszámának megadása változó elemtartalom esetén
2021-08-05T09:50:13+02:00
2021-08-06T14:46:42+02:00
2022-08-19T02:27:01+02:00
Zsolt68
Sziasztok!

Alaphelyzet: egy Excel munkalapon(A) minden sor adott oszlopában van egy string alapú érték, nevezzük bno-nak, ezek ismétlődhetnek. Egy másik munkalapon(B) van kb. 10-12 "kategória" egy oszlopban, amihez változó számú, de eltérő értékű cellák tartoznak.
Feladat: meghatározni, hogy az (A) munkalapon lévő bno melyik kategóriába tartozik a (B)-n és a megfelelő kategória számlálót 1-gyel növelni.
Korábban segítséggel egy "könyvtár" megoldást próbáltam alkalmazni, de 1: kétségeim vannak a visszakapott értékek helytállóságával kapcsolatban, 2: most valamiért nem akar működni a korábbi kódsor.

Sub ICD_harvest()'elvégzi a teljes BNO lekérdezést Dim n As Integer Dim ICD As New scripting.dictionary Dim bno As String Dim cat As New scripting.dictionary Dim o As Integer, s As Integer Dim i As Long, x As Long, xx As Integer x = Sheets("A").Cells(Rows.Count, 1).End(xlUp).Row For s = 1 To x group = Sheets("B").Cells(s, 1).Value cat.Add group, 0 xx = Sheets("B").Cells(s, Columns.Count).End(xlToLeft).Column For o = 2 To xx bno = Sheets(9).Cells(s, o).Value ICD.Add bno, group Next Next bno = Cells(i, "AS").Value group = ICD(bno) cat(group) = cat(group) + 1 Sheets("A").Select For i = 0 To cat.Count - 1 Cells(s, 9).Value = cat.Items(i) s = s + 1 Next End Sub
Köszi és üdv!

Zsolt
Mutasd a teljes hozzászólást!

abcd