VBA Excel-将列值转换为另一列并插入空白行

Question

我想转换值。

假设在A1:A20有20个值，在B1:B20也有20个值。

我想以这种方式复制B列的值，结果应该是：

单元格A1值为A1 ，单元格A2值为B1 ，单元格A3值为A2 ，单元格A4的值为B1 。

同样，在单元格A40值是B20 。 （为更清楚起见，我已附上图片）

因此，这里的第一步是在第A列中插入空白单元，然后在该空白单元中复制B列的值。

为了更清晰请找到图片

。

Answer 1

始终发布您首先尝试过的内容！

Sub test()

    Application.ScreenUpdating = False

    Dim i As Long
    For i = 2 To 20 Step 2
        Sheets("Sheet1").Range("A" & i).EntireRow.Insert
    Next i

    Sheets("Sheet1").Range("B1:B40").copy
    Sheets("Sheet1").Range("A2").PasteSpecial Paste:=xlPasteAll, SkipBlanks:=True

    Application.ScreenUpdating = True

End Sub

Answer 2

也许这并不是您要找的东西，但是另一种解决方案是使用如下所示的常规公式。

=IFERROR(INDEX($A$2:$B$9,ROUNDDOWN(ROW()/2,0),ISODD(ROW())+1),"")

但这不会给出您想要的颜色。 只是抛出另一种方法供您参考。