excel - 如何在 Excel 中动态插入列？

Question

我想在 Excel 报告中插入分隔列，以使现有列更易于查看。

报告是动态创建的，我永远不知道会有多少列；可能有 5、10、17 等。

该部分从 F 开始，转到 ival=Application.WorksheetFunction.CountIf(range("D2:D"& LastRow), "Other")

因此，如果 ival=10 则列为 F G H I J K L M N O，我需要在 F&G、G&H、H&I、I&J、... 和 N&O 之间插入列。

这可能是插入列的可能性:Workbooks("yourworkbook").Worksheets("theworksheet").Columns(i).Insert

但我不确定如何循环 ival。

Sub InsertColumns()
    Dim iVal As Integer
    Dim Rng As range
    Dim LastRow As Long
    Dim i  As Integer

    With Sheets("sheet1")
        LastRow = .range("D" & .Rows.Count).End(xlUp).Row
    End With

    iVal = Application.WorksheetFunction.CountIf(range("D2:D" & LastRow), "Other")

    For i = 7 To iVal - 1
    Workbooks("yourworkbook").Worksheets("theworksheet").Columns(i+1).Insert
    Next i

End Sub

Answer 1

下面的代码应该可以工作，而无需担心 ival:

Sub InsertSeparatorColumns()

    Dim lastCol As Long

    With Sheets("sheet1")
        lastCol = Cells(2, .Columns.Count).End(xlToLeft).Column

        For i = lastCol To 7 Step -1
            .Columns(i).Insert
            .Columns(i).ColumnWidth = 0.5
        Next

    End With

End Sub