Cuestión : Transportar los datos en el acceso o Excel del ms

Tengo una hoja de balance de Excel que tenga códigos del fondo como títulos de la fila, y números de cliente como títulos de columna.  Cada cliente que tiene un fondo correspondiente tiene un x en el campo bajo fila del fondo (véase el ejemplo atado - enumerar la lengüeta). Necesito crear una lista de esta hoja de balance que demuestre cada cliente y fondo enumerados (lengüeta de los resultados).  ¿Cualquier persona sabe puedo lograr esto en el acceso o Excel?

Thanks. class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
de la " descripción " del class= del
el class= de
del >
class= del

Respuesta : Transportar los datos en el acceso o Excel del ms

El código abajo parece trabajar en Excel.

Esto se puede hacer en el acceso, pero no absolutamente como convenientemente, pues implica una pregunta muy larga de la unión (o código de VBA a básicamente hacerlo para usted).
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 ()
    
    Amortiguar LastR como de largo, LastC como de largo
    Amortiguar el arr como variante
    Amortiguar DestR como de largo
    Amortiguar CounterR como de largo, CounterC como de largo
    
    Con el uso
        .ScreenUpdating = falso
        . Cálculo = xlCalculationAutomatic
    Extremo con
    
    Con ThisWorkbook.Worksheets (“lista”)
        LastR =. Células (. Rows.Count, “a”). Extremo (xlUp). Fila
        LastC =. Células (1. Columns.Count). Extremo (xlToLeft). Columna
        arr =. Gama (. Células (LastR, “a”). Células (1, LastC)). Valor
    Extremo con
    
    Worksheets.Add
    DestR = 1
    
    Con ActiveSheet
        . Gama (“a1: c1”) = arsenal (“cliente”, “código”, “Fund#")
        Para CounterR = 2 a UBound (arr, 1)
            Para CounterC = 3 a UBound (arr, 2)
                Si ajuste (arr (CounterR, CounterC))  <> "" Entonces
                    DestR = DestR + 1
                    . Células (DestR, 1) = arr (1, CounterC)
                    . Células (DestR, 2) = arr (CounterR, 1)
                    . Células (DestR, 3) = arr (CounterR, 2)
                Terminar si
            Después
        Después
        . Columns.AutoFit
        . [a1]. Clase Key1: =. [a1], Key2: =. [c2], Order1: El =xlAscending, Order2: El =xlAscending, jefe: =xlYes
    Extremo con
    
    Con el uso
        .ScreenUpdating = verdad
        . Cálculo = xlCalculationAutomatic
    Extremo con
    
    MsgBox “hecho”
    
Submarino del extremo
Otras soluciones  
 
programming4us programming4us