VBA在每列

Question

我有一个包含许多列的数据集，其中包含标题中的标签和不同长度的值集。我想将与每个值范围对应的标签插入到后续的新列中。

我的输入数据集：

A     B      C 
cat  dog    fox
red  black yellow  .......
red  white yellow  .......
grey black yellow  .......
..........................................

我的输出必须如下所示：

A    B      C     D      E     F   .......
red  cat  black  dog   yellow fox  .......
red  cat  white  dog   yellow fox  .......
grey cat  black  dog   yellow fox  .......
..........................................

在第一步中，我使用宏在每列之后插入空白列：

Public Sub Insert_Blank_Column()

Dim wks As Worksheet
Dim iCol As Long

For Each wks In ActiveWindow.SelectedSheets

    With wks
        For iCol _
        = .Cells.SpecialCells(xlCellTypeLastCell).column To 1 Step -1
        .Columns(iCol).Insert
        Next iCol
    End With

Next wks

End Sub

但是，我不确定如何为每个新列制作“相对”绝对引用。

Answer 1

LIBS += -L/usr/lib/x86_64-linux-gnu -lboost_system -lboost_thread