插入列时遇到麻烦—内存不足

Question

我目前正在研究一个宏，该宏将格式化我们运行的问卷调查的结果，以提供给仪表板。

我需要在电子表格中插入列，但只在特定问题之后。我使用下面的代码来插入列，但是当它到达插入列的部分时，我得到一个错误说"内存不足"，Excel将关闭。

我目前有485列和1534行(这是多编码问题的受访者级别数据)。

Sub AddingFillerColumns()
    Dim x As Integer
    Dim FCol As Long
    Dim xRange As Range
    Workbooks("WaveData.xlsx").Activate
    FCol = Cells(1, Columns.Count).End(xlToLeft).Column
    For x = 214 To FCol Step 29
        If Cells(1, x).Value Like "Q9*" Then
            Set xRange = Cells(1, x)
                Range(xRange.End(xlDown), xRange).Insert Shift:=xlToRight
                Cells(1, x).Value = "Q9_None"
        End If
    Next x
End Sub

Answer 1

我不能让你的代码在我身上失败。也许只是插入列，而不是设置xrange并确定要插入的范围。

Sub AddingFillerColumns()
    Dim x As Integer
    Dim FCol As Long
    'Workbooks("WaveData.xlsx").Activate
    FCol = Cells(1, Columns.Count).End(xlToLeft).Column
    For x = 214 To FCol Step 29
        If Cells(1, x).Value Like "Q9*" Then
            Cells(1, x).EntireColumn.Insert
            Cells(1, x) = "Q9_None"
        End If
    Next x
End Sub

有很多公式吗?