Подскажите пожалуйста, как решить такой вопрос: есть два столбца, в левом в части ячеек указаны даты, часть пустые, часть содержит постороннюю информацию, в правом столбце находятся данные (правый столбец к вопросу не относится). Нужно преобразовать левый столбец так, чтобы он содержал соответствующую дату в каждой строчке, если в этой строке была посторонняя информация - она удаляется. Возможно объяснил не очень хорошо, поэтому прилагаю файл для примера. Заранее огромное спасибо!
Подскажите пожалуйста, как решить такой вопрос: есть два столбца, в левом в части ячеек указаны даты, часть пустые, часть содержит постороннюю информацию, в правом столбце находятся данные (правый столбец к вопросу не относится). Нужно преобразовать левый столбец так, чтобы он содержал соответствующую дату в каждой строчке, если в этой строке была посторонняя информация - она удаляется. Возможно объяснил не очень хорошо, поэтому прилагаю файл для примера. Заранее огромное спасибо!DM11
Sub Макрос1() Dim n As Integer, m As Variant, arr As Variant arr = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) For n = 1 To UBound(arr) If IsDate(arr(n, 1)) Then m = arr(n, 1) Else arr(n, 1) = m Next Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) = arr End Sub
[/vba]
можно макросом [vba]
Код
Sub Макрос1() Dim n As Integer, m As Variant, arr As Variant arr = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) For n = 1 To UBound(arr) If IsDate(arr(n, 1)) Then m = arr(n, 1) Else arr(n, 1) = m Next Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) = arr End Sub
msi2102, огромное Вам спасибо! Но можно ли сделать это стандартными формулами Excel, без макросов? У нас в конторе у половины пользователей макросы заблокированы и такой вариант у них не сработает.
msi2102, огромное Вам спасибо! Но можно ли сделать это стандартными формулами Excel, без макросов? У нас в конторе у половины пользователей макросы заблокированы и такой вариант у них не сработает.DM11
- Устанавливайте фильтр. Он определит где даты, а где прочие значения; - Отжимайте галочки у дат, жмите ОК (см. файл); - Удаляйте ненужные значения; - В фильтре "Выделить все", жмем ОК; - Выделяем нужные значения; - Главная, Редактирование, Найти выделить..., Выделить группу значений..., Пустые ячейки (см. файл), жмем ОК; - жмем "=" и стрелку вверх, ввод формулы производим CTRL+ENTER. И будет Вам счастье
- Устанавливайте фильтр. Он определит где даты, а где прочие значения; - Отжимайте галочки у дат, жмите ОК (см. файл); - Удаляйте ненужные значения; - В фильтре "Выделить все", жмем ОК; - Выделяем нужные значения; - Главная, Редактирование, Найти выделить..., Выделить группу значений..., Пустые ячейки (см. файл), жмем ОК; - жмем "=" и стрелку вверх, ввод формулы производим CTRL+ENTER. И будет Вам счастьеmsi2102
_Boroda_, посмотрите пожалуйста, не могу понять в чем проблема. Ваша формула идеально работает до 1569 строчки, после чего начиная с 1570 строчки работать отказывается. Что не так? Заранее огромное спасибо!
_Boroda_, посмотрите пожалуйста, не могу понять в чем проблема. Ваша формула идеально работает до 1569 строчки, после чего начиная с 1570 строчки работать отказывается. Что не так? Заранее огромное спасибо!DM11
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
