Excel 插入列时遇到问题-内存不足

我目前正在开发一个宏，它将格式化我们运行的调查问卷的结果，并将其输入仪表板

我需要在电子表格中插入列，但仅在特定问题之后。我正在使用下面的代码来插入列，但是当它到达插入列的部分时，我得到一个错误，说没有足够的内存，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

---

我不能让你的代码在我身上失败。 可能只是插入列，而不是设置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

---

有很多公式吗？

根本没有-只有很多数据，或者至少我认为表格本身有。