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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление строк из таблицы согласно арифметической прогрессии - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Удаление строк из таблицы согласно арифметической прогрессии
Zuek Дата: Воскресенье, 26.01.2014, 11:38 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2000 и ранее
Здравствуйте! Я редко использую Excel, поэтому извините, если туплю:-)
1. Как мне из таблицы, где есть столбец "дата рождения" в формате xx.xx.19xx оставить только строки с шагом +3 (1918, 1921, 1924...1993)?
2. В этой же таблице ячейки идут так: 1, 10...2
Как сделать порядок 1, 2... 10?
Спасибо заранее!
P.S. Извините, если что не так. В поиске нашел отдаленно похожее, но не додумался :)
К сообщению приложен файл: Example.xls (16.5 Kb)
 
Ответить
СообщениеЗдравствуйте! Я редко использую Excel, поэтому извините, если туплю:-)
1. Как мне из таблицы, где есть столбец "дата рождения" в формате xx.xx.19xx оставить только строки с шагом +3 (1918, 1921, 1924...1993)?
2. В этой же таблице ячейки идут так: 1, 10...2
Как сделать порядок 1, 2... 10?
Спасибо заранее!
P.S. Извините, если что не так. В поиске нашел отдаленно похожее, но не додумался :)

Автор - Zuek
Дата добавления - 26.01.2014 в 11:38
Pelena Дата: Воскресенье, 26.01.2014, 11:56 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19436
Репутация: 4571 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
вариант с доп. столбцами
К сообщению приложен файл: Example-2-.xls (31.0 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
вариант с доп. столбцами

Автор - Pelena
Дата добавления - 26.01.2014 в 11:56
KuklP Дата: Воскресенье, 26.01.2014, 11:56 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Для года с шагом:
[vba]
Код
Public Sub www()
      Dim  i&
      For i = 20 To 1 Step -1
          If Year(CDate(Cells(i, 3))) Mod 3 Then Cells(i, 3).EntireRow.Delete
      Next
End Sub
[/vba]
Для сортировки:
Данные - текст по столбцам. Разделитель запятая. Сортируем по последнему столбцу.
Вот что получилось.
К сообщению приложен файл: 6355453.xls (21.5 Kb)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Воскресенье, 26.01.2014, 11:57
 
Ответить
СообщениеДля года с шагом:
[vba]
Код
Public Sub www()
      Dim  i&
      For i = 20 To 1 Step -1
          If Year(CDate(Cells(i, 3))) Mod 3 Then Cells(i, 3).EntireRow.Delete
      Next
End Sub
[/vba]
Для сортировки:
Данные - текст по столбцам. Разделитель запятая. Сортируем по последнему столбцу.
Вот что получилось.

Автор - KuklP
Дата добавления - 26.01.2014 в 11:56
Zuek Дата: Воскресенье, 26.01.2014, 12:38 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2000 и ранее
Спасибо большое!!!
Задача решена.
 
Ответить
СообщениеСпасибо большое!!!
Задача решена.

Автор - Zuek
Дата добавления - 26.01.2014 в 12:38
  • Страница 1 из 1
  • 1
Поиск:

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