Vraag : Herschik gegevens in MS-Access of Excel

Ik heb een spreadsheet van Excel die fondsencodes als rijrubrieken, en cliëntaantallen als kolomrubrieken heeft.  Elke cliënt die een overeenkomstig fonds heeft heeft x op het gebied onder de rij van het fonds (zie voorbeeld in bijlage - maak een lijst van lusje). Ik moet een lijst van deze spreadsheet creëren die elk vermelde cliënt toont en fonds (het Lusje van Resultaten).  Weet iedereen hoe ik dit in of Toegang of Excel kan verwezenlijken?

Thanks.
Attachments:
van
Sample.xls (77 KB) Sample File

Antwoord : Herschik gegevens in MS-Access of Excel

De code schijnt hieronder om in Excel te werken.

Dit kan in Toegang worden gedaan, maar niet helemaal zoals gemakshalve, aangezien het een zeer lange unievraag impliceert (of de code VBA aan fundamenteel doet het voor u).
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

Sub TransposeData ()
    
    Schemerige LastR zoals lang, LastC zoals lang
    Schemerige arr als Variant
    Schemerige DestR zoals lang
    Schemerige CounterR zoals lang, CounterC zoals lang
    
    Met Toepassing
        .ScreenUpdating = Vals
        . Berekening = xlCalculationAutomatic
    Eind met
    
    Met ThisWorkbook.Worksheets („Lijst“)
        LastR =. Cellen (. Rows.Count, „a“). Eind (xlUp). Rij
        LastC =. Cellen (1. Columns.Count). Eind (xlToLeft). Kolom
        arr =. Waaier (. Cellen (LastR, „a“). Cellen (1, LastC)). Waarde
    Eind met
    
    Worksheets.Add
    DestR = 1
    
    Met ActiveSheet
        . Waaier („a1: c1“) = Serie („Cliënt“, „Code“, „Fund#“)
        Voor CounterR = 2 aan UBound (arr, 1)
            Voor CounterC = 3 aan UBound (arr, 2)
                Als Versiering (arr (CounterR, CounterC))  <> "" Toen
                    DestR = DestR + 1
                    . Cellen (DestR, 1) = arr (1, CounterC)
                    . Cellen (DestR, 2) = arr (CounterR, 1)
                    . Cellen (DestR, 3) = arr (CounterR, 2)
                Eind als
            Daarna
        Daarna
        . Columns.AutoFit
        . [a1]. Soort Key1: =. [a1], Key2: =. [c2], Order1: Het =xlAscending, Order2: Het =xlAscending, Kopbal: =xlYes
    Eind met
    
    Met Toepassing
        .ScreenUpdating = Waar
        . Berekening = xlCalculationAutomatic
    Eind met
    
    „Gedaane“ MsgBox
    
Sub van het eind
Andere oplossingen  
 
programming4us programming4us