Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Фильтр по строк число букв - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Фильтр по строк число букв (Макросы/Sub)
Фильтр по строк число букв
Enix Дата: Понедельник, 04.12.2017, 17:58 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
В ячейки A1 до A100000 строку есть разный слово например
абонент
борт
авария
мы
они
……..и так далее
нужна макрос по фильтрование по определенному число букв например при использование макрос в ячейки A1 до A100000 сортировал следующим образом
мы
они
борт
авария
абонент
….. так далее
 
Ответить
СообщениеВ ячейки A1 до A100000 строку есть разный слово например
абонент
борт
авария
мы
они
……..и так далее
нужна макрос по фильтрование по определенному число букв например при использование макрос в ячейки A1 до A100000 сортировал следующим образом
мы
они
борт
авария
абонент
….. так далее

Автор - Enix
Дата добавления - 04.12.2017 в 17:58
Kuzmich Дата: Понедельник, 04.12.2017, 22:21 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 326
Репутация: 62 ±
Замечаний: 0% ±

Excel 2003
Цитата
нужна макрос

[vba]
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 1 To iLastRow
    Cells(i, 2) = Len(Cells(i, 1))
  Next
  Range("A1:B" & iLastRow).Sort Key1:=Range("B1"), Header:=xlNo
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
нужна макрос

[vba]
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 1 To iLastRow
    Cells(i, 2) = Len(Cells(i, 1))
  Next
  Range("A1:B" & iLastRow).Sort Key1:=Range("B1"), Header:=xlNo
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 04.12.2017 в 22:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Фильтр по строк число букв (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!