как удалить столбцы в excel'e

[Danilka]

добрый день всем !

есть большой файл. нужно выделить столбцы (через один) и удалить со сдвигом в право. хотелось бы сначала выделить все столбцы а потом одним махом их потереть.
пытался написать макрос- но ничего не получилось.
помогите плз.

С уважением,
Danilka

[Димитрий]

Так:
Range("B:B,F:F,H:H").Delete
Или:
Union(Range("B:B"), Range("F:F"), Range("H:H")).Delete
Union можно применить в цикле с накоплением.

[Danilka]

это понятно,
но как сделать так, чтобы макрос сам выбирал все столбцы
скажем до тех пор, пока не кончится таблица, и выделил их, а потом стер, не задавая никаких вопросов пользователю ?

[algol2]

Попробуй

Range("$A$1:" + Range("A1").SpecialCells(xlCellTypeLastCell).Address).Select
Selection.Delete

Удачи

[Димитрий]

Попробуй:

Код: Выделить всё

Sub Del()
Dim Rg As Range, i As Long
    Set Rg = Range("B:B")
    For i = 2 To 256 Step 2
        Set Rg = Union(Rg, Columns(i))
    Next
    Rg.Delete
End Sub

[Danilka]

спасибо огромное, проблема решена