excel - 如何循环遍历列给定的次数

Question

我的第一行充满了值(value)观。我想在这些值中的每一个之间插入两列，直到我的第一行中的最后一个非空单元格。

我被困在我的代码中:

Sub AddCol()
'
' AddCol Macro
'

For i = 1 To 2

    Sheets("CashFlow").Select
    Columns(i + 1).Select
    Selection.Insert Shift:=x1ToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Next i

End Sub

Answer 1

几件事。

a)您需要获取列数的值，以便您可以循环并添加

b)循环时，从最高到最低循环，因为如果您从最低到最高循环，您正在添加列，它将影响您的计数器，并且您最终不会循环遍历整个标题集。

见下面的代码:

Sub ColumnsAdd()

    Dim lCol As Long
    Dim i As Long
    Dim myWS As Worksheet

    Set myWS = Sheets("CashFlow")

    lCol = myWS.Cells(1, myWS.Columns.Count).End(xlToLeft).Column

    For i = lCol To 1 Step -1
        myWS.Columns(i).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        myWS.Columns(i).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Next i

End Sub