将标头行中的每个单元格作为单个列插入到标头上方的数据之前
提问于 2017-09-11 04:50:52
我有一个excel工作簿，在这里我需要获取标题信息，并将其作为一列插入。我目前的设置如下(除了数据跨越更远的右边和向下)
我需要一个宏来格式化数据，如下所示：
在Excel2013VBA中，这种情况可能发生吗？
编辑
我不想转接标题行。我试图在标题之前插入一个空白列，并将值写入新插入的列。
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-09-11 05:14:19
这就行了
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/46156232
复制相关文章
腾讯云开发者
