此代码有什么问题？ Excel VBA

Question

I have no clue what is wrong with this code. Error 1004 keeps popping up. I'm new to VBA so maybe I'm missing something on nested for loops. The purpose of this sub is to delete one cell a leave the other too, as in yes-no-no-yes-no-no...

Sub hola7()
    Dim i As Integer
Dim j As Integer
For j = columnn To column + userinput
    For i = column To column + userinput Step 3
        If j <> i Then
            Cells(row, j).Selection
            Selection.ClearContents
        End If
    Next
Next
End Sub

Answer 1

Use .Select, not .Selection.

Sub hola7()
    Dim i As LONG, j As LONG
    For j = column To column + userinput
        For i = column To column + userinput Step 3
            If j <> i Then
                Cells(row, j).SELECT
                Selection.ClearContents
            End If
        Next
    Next
END SUB

I'll assume that you have already dimmed and assigned values to column, row and userinput.