Transposer les données dans le MS Access ou exceler - Problèmes et solutions aux problèmes liés à Software

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 :

Substrater TransposeData ()
    
    Obscurcir LastR en tant que longtemps, LastC en tant que longtemps
    Obscurcir l'arr comme variante
    Obscurcir DestR en tant que longtemps
    Obscurcir CounterR en tant que longtemps, CounterC en tant que longtemps
    
    Avec l'application
        .ScreenUpdating = faux
        . Calcul = xlCalculationAutomatic
    Extrémité avec
    
    Avec ThisWorkbook.Worksheets (« liste »)
        LastR =. Cellules (. Rows.Count, « a »). Extrémité (xlUp). Rangée
        LastC =. Cellules (1. Columns.Count). Extrémité (xlToLeft). Colonne
        arr =. Gamme (. Cellules (LastR, « a »). Cellules (1, LastC)). Valeur
    Extrémité avec
    
    Worksheets.Add
    DestR = 1
    
    Avec ActiveSheet
        . Gamme (« a1 : c1 ») = rangée (« client », « code », « Fund#")
        Pour CounterR = 2 à UBound (arr, 1)
            Pour CounterC = 3 à UBound (arr, 2)
                Si équilibre (arr (CounterR, CounterC))  <> "" Alors
                    DestR = DestR + 1
                    . Cellules (DestR, 1) = arr (1, CounterC)
                    . Cellules (DestR, 2) = arr (CounterR, 1)
                    . Cellules (DestR, 3) = arr (CounterR, 2)
                Finir si
            Après
        Après
        . Columns.AutoFit
        . [a1]. Sorte Key1 : =. [a1], Key2 : =. [C2], Order1 : =xlAscending, Order2 : =xlAscending, en-tête : =xlYes
    Extrémité avec
    
    Avec l'application
        .ScreenUpdating = rectifient
        . Calcul = xlCalculationAutomatic
    Extrémité avec
    
    MsgBox « fait »
    
Sous-marin d'extrémité

Question : Transposer les données dans le MS Access ou exceler

Réponse : Transposer les données dans le MS Access ou exceler