Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как удалить несколько несмежный столбцов с помощью VBA?
 
Привет, всем  :)

Как удалить несколько несмежный столбцов с помощью VBA ? Столбы A, D, E, содержащие "100" (пример во вложенном файле).

Набираю:
Код
Dim WE As Excel.Workbook
Dim WS As Excel.Worksheet

Public Sub Stolbci()

Set WE = ActiveWorkbook
Set WS = Application.Workbooks("Столбцы.xlsm").Worksheets(1)

WS.Columns("A", "D:E").Delete

End Sub
 


В строке WS.Columns("A", "D:E").Delete выскакивает ошибка. Как правильно?
 
Если прочитать справку по Columns, то станет ясно, что в качестве параметра можно указывать только цифры. Никаких букв. С буквами работает только Range:
Код
WS.Range("A1", "D1:E1").Entirecolumn.Delete
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Цитата
Если прочитать справку по Columns, то станет ясно, что в качестве параметра можно указывать только цифры.

Почему тогда если оставить, например,

Цитата
WS.Columns("A").Delete

то столбец А удалится?

После ввода

Цитата
WS.Range("A1", "D1:E1").Entirecolumn.Delete

удаляются все столбцы, кроме "F", а можно ли оставить еще B,C?
 
Что то вы перемудрили с форматом указания диапазонов. Так оставляети В и С.
Код
WS.Range("A1,D1:E1").EntireColumn.Delete
 
Цитата
Что то вы перемудрили с форматом указания диапазонов. Так оставляети В и С.

Видимо, B и C удалились из-за лишней кавычки.

Спасибо за ответы, помогло.
Страницы: 1
Читают тему (гостей: 1)
Наверх