将标题行中的每个单元格作为单独的列插入到标题所在的数据之前

我有一个Excel工作簿，我需要采取标题信息，并将其作为一个列插入。 我目前的设置是这样的（除了数据越来越多的权利和下降）

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

Excel 2013 VBA可以这样吗？

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

Answer 1

这会做

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