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. Извините, если что не так. В поиске нашел отдаленно похожее, но не додумался
Здравствуйте! Я редко использую Excel, поэтому извините, если туплю:-) 1. Как мне из таблицы, где есть столбец "дата рождения" в формате xx.xx.19xx оставить только строки с шагом +3 (1918, 1921, 1924...1993)? 2. В этой же таблице ячейки идут так: 1, 10...2 Как сделать порядок 1, 2... 10? Спасибо заранее! P.S. Извините, если что не так. В поиске нашел отдаленно похожее, но не додумался Zuek
Ответить
Сообщение Здравствуйте! Я редко использую 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
Здравствуйте. вариант с доп. столбцами
Здравствуйте. вариант с доп. столбцами Pelena
"Черт возьми, Холмс! Но как??!!" Ю-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] Для сортировки: Данные - текст по столбцам. Разделитель запятая. Сортируем по последнему столбцу. Вот что получилось.
Для года с шагом: [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
Ну с НДС и мы чего-то ст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
Ответить
Сообщение Спасибо большое!!! Задача решена. Автор - Zuek Дата добавления - 26.01.2014 в 12:38