Questione : Trasporre i dati nell'accesso o in Excel del ms

Ho un foglio elettronico di Excel che ha codici del fondo come intestazioni di fila e numeri di cliente come intestazioni di colonna.  Ogni cliente che ha un fondo corrispondente ha una x nel campo nell'ambito della fila del fondo (vedere l'esempio allegato - elencare la linguetta). Devo generare una lista da questo foglio elettronico che mostra ogni cliente e fondo elencati (linguetta di risultati).  Chiunque sa posso compire questo nell'accesso o in Excel?

Thanks. class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

il nome di schedario " del class= di >Sample.xls " fileSize " > (77 Kb) il Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)
>Sample File
" di descrizione " del class= del
il class= di
del >
class= del

Risposta : Trasporre i dati nell'accesso o in Excel del ms

Il codice sotto sembra funzionare in Excel.

Ciò può essere fatta nell'accesso, ma non abbastanza come convenientemente, poichè coinvolge una domanda molto lunga del sindacato (o il codice di VBA a basicamente farglielo per).
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 ()
    
    Oscurare LastR come lungamente, LastC come lungamente
    Oscurare il arr come variante
    Oscurare DestR come lungamente
    Oscurare CounterR come lungamente, CounterC come lungamente
    
    Con l'applicazione
        .ScreenUpdating = falso
        . Calcolo = xlCalculationAutomatic
    Estremità con
    
    Con ThisWorkbook.Worksheets (“lista„)
        LastR =. Cellule (. Rows.Count, “a„). Estremità (xlUp). Fila
        LastC =. Cellule (1. Columns.Count). Estremità (xlToLeft). Colonna
        arr =. Gamma (. Cellule (LastR, “a„). Cellule (1, LastC)). Valore
    Estremità con
    
    Worksheets.Add
    DestR = 1
    
    Con ActiveSheet
        . Gamma (“a1: c1„) = allineamento (“cliente„, “codice„, “Fund#")
        Per CounterR = 2 a UBound (arr, 1)
            Per CounterC = 3 a UBound (arr, 2)
                Se disposizione (arr (CounterR, CounterC))  <> "" Allora
                    DestR = DestR + 1
                    . Cellule (DestR, 1) = arr (1, CounterC)
                    . Cellule (DestR, 2) = arr (CounterR, 1)
                    . Cellule (DestR, 3) = arr (CounterR, 2)
                Concluder se
            Dopo
        Dopo
        . Columns.AutoFit
        . [a1]. Specie Key1: =. [a1], Key2: =. [c2], Order1: =xlAscending, Order2: =xlAscending, intestazione: =xlYes
    Estremità con
    
    Con l'applicazione
        .ScreenUpdating = allineano
        . Calcolo = xlCalculationAutomatic
    Estremità con
    
    MsgBox “fatto„
    
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us