Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удаление первого пустого столбца на всех листах книги
 
#1
04.07.2013 11:56:08
Здравствуйте, многоуважаемые профессионалы.
Подскажите, пожалуйста, как можно макросом удалить все первые пустые столбцы на всех листах книги.
В примере два листа книги, на одном не пустой первый столбец а на другом пустой первый столбец. в реальном файле таких листов порядка 100.

Буду очень благодарен за помощь и за любые идеи.
 
 
 
#2
04.07.2013 12:08:15
Код
Public Sub www()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If Application.CountA(sh.UsedRange.Columns(1)) = 0 Then sh.Columns(1).Delete
    Next
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#3
04.07.2013 12:21:44
1. Выделить все листы.
2. Удалить нужные столбцы на активном листе.
There is no knowledge that is not power
 
 
 
#4
04.07.2013 12:23:15
Johny,
Цитата
Константин Кольцов пишет:
В примере два листа книги, на одном не пустой первый столбец а на другом пустой первый столбец.
Я сам - дурнее всякого примера! ...
 
 
 
#5
04.07.2013 12:30:18
KuklP, Спасибо, большое. работает но почему то один раз, после первого добавления. потом, если опять добавить пустой столбец и запустить макрос - не работает.
 
 
 
#6
04.07.2013 12:37:22
попробуйте убрать UsedRange
Код
Public Sub www()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If Application.CountA(sh.Columns(1)) = 0 Then sh.Columns(1).Delete
    Next
End Sub
 
 
 
#7
04.07.2013 12:45:52
Лучше так, чтоб не обсчитывать весь столбец:
Код
Public Sub www()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If Application.CountA(sh.Range("a1:a" & sh.UsedRange.Rows.Count)) = 0 Then sh.[a:a].Delete
    Next
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#8
04.07.2013 12:49:05
Сергей неправильно
 
 
 
#9
04.07.2013 12:50:33
создайте пустой лист напишите в ячейку A15 и B11 что-нибудь и запустите ваш последний код - он сотрёт столбец А хотя он не пустой
Изменено: Б А Х Т И Ё Р - 04.07.2013 12:51:19 (впихнул "что-нибудь")
 
 
 
#10
04.07.2013 12:50:43
Цитата
Б А Х Т И Ё Р пишет:
Сергей неправильно
Что именно?
Я сам - дурнее всякого примера! ...
 
 
 
#11
04.07.2013 12:57:27
Б А Х Т И Ё Р, KuklP, Спасибо, всё работает. работает версия где удалил UsedRange.

и спасибо Johny,, не знал, что если выделить все листы и делать изменения на текущем то изменения будут на всех.

вообщем спасибо всем, помогли. работа пошла быстрее.
 
 
 
#12
04.07.2013 12:58:10
Цитата
Константин Кольцов пишет:
реальном файле таких листов порядка 100.
Я предположил, что все листы с одинаковыми по структуре таблицами. Б А Х Т И Ё Р,  А так листы как Вы предложили, кто заполняет? Хотя можно приплюсовать к
sh.UsedRange.Rows.Count sh.UsedRange.cells(1).Row ... Но автору видней, надо ли это.
Я сам - дурнее всякого примера! ...
 
 
 
#13
04.07.2013 13:03:34
Цитата
KuklP пишет:
...автору видней...
согласен
 
 
 
Страницы: 1
Наверх