使用正则表达式/excel函数将表中多个第一列与其他列相邻

Question

我在Excel中有一个表，其中包含值：

Caption | Num1 | Num2 | Num3 | NumN+1
aaa     | 10   | 20   | 30   | ...
bbb     | 40   | 50   | 60   | ...
...and going...

我想把[Caption]列放在每个[NumN+1]列旁边，就像下面的例子一样：

Caption | Num1 | Caption | Num2 | Caption | Num3 | Caption | NumN+1
aaa     | 10   | aaa     | 20   | aaa     | 30   | aaa     | ...
bbb     | 40   | bbb     | 50   | bbb     | 60   | bbb     | ...
...and going...

我正在寻求您的帮助，用正则表达式/Excel函数/VBA来解决这个问题。

Answer 1

这行得通吗？

Sub CopyColumns()
    Dim r As Range
    Dim ws As Worksheet
    Set ws = ' Your Worksheet here
    Set r = ws.Columns(3)
    While r.Cells(1, 1) <> ""
        ws.Columns(1).Copy
        r.Insert
        Set r = r.Offset(0, 1)
    Wend
    Application.CutCopyMode = xlNone
End Sub