Очистка содержимого строки с петлей

Question

У меня есть код, который предназначен для циклического преобразования каждой ячейки в строке и удаления их КРОМЕ для столбцов A и O. Когда я запускаю этот код, он удаляет только второй столбец.

Я знаю строку «Строки (Target.Row) .ClearContents», но это не подходит для моих целей, так как мне нужны конкретные столбцы, чтобы они оставались неповрежденными.

Dim i As Integer 

For i = 2 To i = 30 
    If i = 15 Then 
     'update i but do nothing 
     i = i + 1 
    Else 
     'update i and clear contents of cell 
     .Cells(Target.Row, i).Clear 
     i = i + 1 
    End If 
Next     

Answer 1

для цикла увеличивает я так не должен, и этот синтаксис неверен For i = 2 To i = 30:

Dim i As Long 

For i = 2 To 30 
    If i <> 15 Then .Cells(Target.Row, i).Clear 
Next 

Более быстрый способ, чтобы исключить определенные столбцы из строки (без использования цикла):

With Target.Parent 
    .Columns(15).Hidden = True 
    .UsedRange.Rows(Target.Row).SpecialCells(xlCellTypeVisible).Clear 
    .Columns(15).Hidden = False 
End With 

Answer 2

Зачем использовать петли вообще?

Union(Range(.Cells(Target.Row,2),.Cells(Target.Row,14)), Range(.Cells(Target.Row,16),.Cells(Target.Row,30))).Clear