Excel VBA代码报错Error 1004求排查：嵌套循环逻辑问题？

兄弟，我帮你拆解下这段代码里的坑——Error 1004的弹出和你要的“保留-删除-删除”规则没实现，主要是这几个问题：

1. 变量名与声明的问题 #

• column是VBA的内置关键字，不能拿来当自定义变量名，直接用会触发语法冲突，这很可能是1004错误的诱因之一；
• columnn看起来明显是笔误，应该是column？
• row、userinput这些变量都没提前声明，VBA如果没开Option Explicit的话会自动把它们设为变体类型，很容易因为拼写或类型不匹配出问题。

2. Selection的错误用法 #

Cells(row, j).Selection是完全错误的语法，正确的选中写法是Cells(row, j).Select，但真的没必要选中单元格！选中操作不仅效率低，还会因为当前激活的不是目标工作表触发1004错误，直接操作单元格内容才是正确的姿势。

3. 嵌套循环逻辑混乱 #

你要的是“每3列保留第1列，删除后两列”的规则，根本不需要嵌套两个For循环。现在的代码会让j遍历所有列，i每隔3列走一次，只要j≠i就删除单元格——这会导致同一个单元格被重复删除N次，而且逻辑上也没精准匹配你的需求。

修正后的代码 #

我帮你重写了代码，加上了关键注释，完全实现你的需求，还避免了1004错误：

Option Explicit ' 强制声明变量，从根源避免拼写/类型错误

Sub hola7()
    Dim targetRow As Integer ' 要处理的目标行
    Dim startCol As Integer ' 起始列
    Dim endCol As Integer ' 结束列
    Dim userinput As Integer
    Dim col As Integer
    
    ' ===== 这里需要你根据实际需求赋值 =====
    targetRow = 2 ' 示例：处理第2行
    startCol = 1 ' 示例：从第1列开始
    userinput = 6 ' 示例：用户输入6，即处理到1+6=7列
    
    endCol = startCol + userinput
    
    ' 倒序循环！避免删除列后序号错乱
    For col = endCol To startCol Step -1
        ' 判断是否为要保留的列：起始列、起始列+3、起始列+6...
        If (col - startCol) Mod 3 <> 0 Then
            Cells(targetRow, col).ClearContents ' 直接清除内容，无需选中
        End If
    Next col
End Sub

关键说明： #

• 用Option Explicit强制声明所有变量，杜绝拼写错误；
• 把变量名改成targetRow、startCol这种有意义的名字，避免和VBA关键字冲突；
• 倒序循环：如果正序删除列，后面的列会自动前移，导致循环漏删；倒序循环就不会有这个问题；
• 直接用Cells(targetRow, col).ClearContents操作单元格，完全规避选中操作带来的1004风险。

内容的提问来源于stack exchange，提问作者Alex