Транспонируйте данные в доступе MS или первенствуйте - Проблемы и решения вопросов, связанных с 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:

Sub TransposeData ()
    
    Затемните LastR как длиной, LastC как длиной
    Затемните arr как вариант
    Затемните DestR как длиной
    Затемните CounterR как длиной, CounterC как длиной
    
    С применением
        .ScreenUpdating = ложно
        . Вычисление = xlCalculationAutomatic
    Конец с
    
    С ThisWorkbook.Worksheets («список»)
        LastR =. Клетки (. Rows.Count, «a»). Конец (xlUp). Рядок
        LastC =. Клетки (1. Columns.Count). Конец (xlToLeft). Колонка
        arr =. Ряд (. Клетки (LastR, «a»). Клетки (1, LastC)). Значение
    Конец с
    
    Worksheets.Add
    DestR = 1
    
    С ActiveSheet
        . Ряд («a1: c1») = блок («клиент», «Кодий», «Fund#")
        Для CounterR = 2 к UBound (arr, 1)
            Для CounterC = 3 к UBound (arr, 2)
                Если уравновешивание, то (arr (CounterR, CounterC))  <> "" После этого
                    DestR = DestR + 1
                    . Клетки (DestR, 1) = arr (1, CounterC)
                    . Клетки (DestR, 2) = arr (CounterR, 1)
                    . Клетки (DestR, 3) = arr (CounterR, 2)
                Закончитесь если
            Затем
        Затем
        . Columns.AutoFit
        . [a1]. Вид Key1: =. [a1], Key2: =. [c2], Order1: =xlAscending, Order2: =xlAscending, коллектор: =xlYes
    Конец с
    
    С применением
        .ScreenUpdating = True
        . Вычисление = xlCalculationAutomatic
    Конец с
    
    «Сделанное» MsgBox
    
Подводная лодка конца

Вопрос : Транспонируйте данные в доступе MS или первенствуйте

Ответ : Транспонируйте данные в доступе MS или первенствуйте