Pergunta : Transpr dados no acesso ou no Excel do MS

Eu tenho um spreadsheet de Excel que tenha códigos do fundo como títulos da fileira, e números de cliente como títulos de coluna.  Cada cliente que tem um fundo correspondente tem um x no campo sob a fileira do fundo (ver o exemplo unido - alistar a aba). Eu preciso de criar uma lista deste spreadsheet que mostra cada cliente e fundo alistados (aba dos resultados).  Qualquer um sabe eu posso realizar este no acesso ou no Excel?

Thanks. class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
nome de arquivo " do class= do >Sample.xls " fileSize " > (77 KB) Javascript " do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes)
>Sample File
da " descrição " do class= do
o class= de
do >
class= do

Resposta : Transpr dados no acesso ou no Excel do MS

O código abaixo parece trabalhar em Excel.

Isto pode ser feito no acesso, mas não completamente como convenientemente, porque envolve uma pergunta muito longa da união (ou o código de VBA a basicamente o fazer para você).
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 ()
    
    Escurecer LastR como por muito tempo, LastC como por muito tempo
    Escurecer o arr como a variação
    Escurecer DestR como por muito tempo
    Escurecer CounterR como por muito tempo, CounterC como por muito tempo
    
    Com aplicação
        .ScreenUpdating = falso
        . Cálculo = xlCalculationAutomatic
    Extremidade com
    
    Com ThisWorkbook.Worksheets (“lista”)
        LastR =. Pilhas (. Rows.Count, “a”). Extremidade (xlUp). Fileira
        LastC =. Pilhas (1. Columns.Count). Extremidade (xlToLeft). Coluna
        arr =. Escala (. Pilhas (LastR, “a”). Pilhas (1, LastC)). Valor
    Extremidade com
    
    Worksheets.Add
    DestR = 1
    
    Com ActiveSheet
        . Escala (“a1: c1”) = disposição (“cliente”, “código”, “Fund#")
        Para CounterR = 2 a UBound (arr, 1)
            Para CounterC = 3 a UBound (arr, 2)
                Se guarnição (arr (CounterR, CounterC))  <> "" Então
                    DestR = DestR + 1
                    . Pilhas (DestR, 1) = arr (1, CounterC)
                    . Pilhas (DestR, 2) = arr (CounterR, 1)
                    . Pilhas (DestR, 3) = arr (CounterR, 2)
                Terminar se
            Em seguida
        Em seguida
        . Columns.AutoFit
        . [a1]. Sorte Key1: =. [a1], Key2: =. [c2], Order1: =xlAscending, Order2: =xlAscending, encabeçamento: =xlYes
    Extremidade com
    
    Com aplicação
        .ScreenUpdating = retificam
        . Cálculo = xlCalculationAutomatic
    Extremidade com
    
    MsgBox “feito”
    
Submarino da extremidade
Outras soluções  
 
programming4us programming4us