如何轉置此Excel數據透視表工作表數據？

Question

我有一組這種格式的數據：

Column1 column2 column3 22/8  23/8  24/8 25/8 26/8
A       B         C      2       3    4    5   6
D       E         F      5       6    7    7   7

我需要將其轉換為以下格式：

A   B   C  22/8    2
A   B   C  23/8    3
A   B   C  24/4    4
A   B   C  25/8    5
A   B   C  26/8    6
D   E   F  22/8    5

是否可以在Excel / Access中無需復制並粘貼特殊的轉置格式？

Answer 1

在查找時，我意識到這對我有用。 我能夠在Access VBA編碼中將“ 初始圖片”轉置為“轉置后” 。

1）我創建了一個表（NewTypes）與兩個字段：列和值

2）我使用了這組代碼：

Public Function TransposeType()
 Dim rs As DAO.Recordset, rs1 As DAO.Recordset
 Dim i As Integer, s, fldArr()

 Set rs = CurrentDb.OpenRecordset("Query1")  'change the name to the actual name of table
 Set rs1 = CurrentDb.OpenRecordset("NewTypes")  'new table created

 If rs.EOF Or rs.BOF Then
     MsgBox "no records"
     Exit Function
 End If
 rs.MoveFirst
     For i = 0 To rs.Fields.Count - 1
         ReDim Preserve fldArr(i)
         fldArr(i) = rs.Fields(i).Name
     Next
 Dim j
 Do Until rs.EOF
     For j = 1 To UBound(fldArr)
             With rs1
                 .AddNew
                 !Consign = rs("Consign") 'Field of old table=Field of new table
                                            'field that does not need to change any format
                 !Week = rs.Fields(fldArr(j))
                 .Update

             End With
     Next
     rs.MoveNext
 Loop
 End Function