Vba 将标题行中的每个单元格作为单个列插入标题上方的数据之前

我有一个excel工作簿，需要在其中获取标题信息，并将其作为列插入。我当前的设置是这样的（除了数据从右到下延伸得更远）

我需要一个宏来格式化数据，如下所示：

Excel 2013 VBA是否可以实现类似的功能

编辑
我不是在尝试转置标题行。我试图在标题前插入一个空白列，并将值写入新插入的列

这样就可以了

Sub Macro2()
Dim c As Integer, i As Integer
Dim myheader As String

c = range("b2").End(xlToRight).Column
For i = 1 To c
    Columns(2 * i + 1).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    myheader = Cells(1, 2 * i).Value
    Cells(2, 2 * i + 1).Value = myheader
    Cells(2, 2 * i + 1).Select
    Selection.AutoFill destination:=range(Selection, Selection.Offset(0, -1).End(xlDown).Offset(0, 1))


Next i

End Sub

编辑：

Sub Macro2()
Dim c As Integer, i As Integer
Dim myheader As String

c = range("b2").End(xlToRight).Column
For i = 1 To c
    Columns(2 * i).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    myheader = Cells(1, 2 * i + 1).Value
    Cells(2, 2 * i).Value = myheader
    Cells(2, 2 * i).Select
    Selection.AutoFill destination:=range(Selection, Selection.Offset(0, -1).End(xlDown).Offset(0, 1))
Next i

End Sub

---

你介意把这两个图像都嵌入问题本身吗？此网络上的访问被阻止数据透视表如何？@vityta-我不知道您可以插入包含数据透视表的行？可以举个例子吗？@user1-图片嵌入到帖子中？@IcyPopTarts-假设您指的是列，而不是行-非常接近。这将在数据列之后插入标题。它能在数据列之前插入标题行吗？我现在将在原始答案中更改它