表中的多个第一列旁边有正则expression式/ excel函数
我有一个表格在Excel中的值：
Caption | Num1 | Num2 | Num3 | NumN+1 aaa | 10 | 20 | 30 | ... bbb | 40 | 50 | 60 | ... ...and going... 我想在每个[NumN + 1]列旁边放置[Caption]列，如下例所示：
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...
我正在寻找你的帮助来解决这个正则expression式/ Excel函数/ VBA。
这是否工作？
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