В документе в столбце "В" встречаются даты в формате ПОНЕДЕЛЬНИК 12.12.2016. Помогите с макросом который находил бы все ячейки с такой информацией и перемещал в столбец "А"
В документе в столбце "В" встречаются даты в формате ПОНЕДЕЛЬНИК 12.12.2016. Помогите с макросом который находил бы все ячейки с такой информацией и перемещал в столбец "А"lapin9126
Огромное спасибо. Макрос рабочий, копирует то что нужно. А можно как-нибудь подправить чтобы удалял в столбце "В", то что скопировал в столбец "А"?
Огромное спасибо. Макрос рабочий, копирует то что нужно. А можно как-нибудь подправить чтобы удалял в столбце "В", то что скопировал в столбец "А"?lapin9126
Сообщение отредактировал lapin9126 - Суббота, 17.12.2016, 18:21
lr = Cells(Rows.Count, "B").End(xlUp).Row arr() = Range("B1:B" & lr).Value
For i = 1 To UBound(arr) var = Split(arr(i, 1), " ") If UBound(var) = 1 Then var(0) = LCase(var(0)) For ii = 0 To UBound(arrWeekDays) If var(0) = arrWeekDays(ii) Then If IsDate(var(1)) Then Cells(i, "A").Value = arr(i, 1) Cells(i, "B").ClearContents End If Exit For End If Next End If Next
Application.ScreenUpdating = True
End Sub
[/vba]
[vba]
Код
Sub Перенести_в_A()
Dim arr(), arrWeekDays(), var Dim lr As Long, i As Long, ii As Long
lr = Cells(Rows.Count, "B").End(xlUp).Row arr() = Range("B1:B" & lr).Value
For i = 1 To UBound(arr) var = Split(arr(i, 1), " ") If UBound(var) = 1 Then var(0) = LCase(var(0)) For ii = 0 To UBound(arrWeekDays) If var(0) = arrWeekDays(ii) Then If IsDate(var(1)) Then Cells(i, "A").Value = arr(i, 1) Cells(i, "B").ClearContents End If Exit For End If Next End If Next
Karataev, Вам не стыдно потакать нарушителям-рецидивистам, уже имеющим предупреждения от администрации за точно такое же нарушение? Вопрос никак не относится к категории "общие вопросы" и у lapin9126 уже просили выложить файл-пример
Karataev, Вам не стыдно потакать нарушителям-рецидивистам, уже имеющим предупреждения от администрации за точно такое же нарушение? Вопрос никак не относится к категории "общие вопросы" и у lapin9126 уже просили выложить файл-пример Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Суббота, 17.12.2016, 19:55
Глубокоуважаемый Alex_ST. Во-первых почему модераторы сразу не переместили в нужную рубрику или не закрыли. Во-вторых когда я зашел и увидел сообщение о файле, макрос во втором сообщении от уважаемого Karataev уже был. А за что дали первое замечание я вообще не понял. Дали без объяснений.
Глубокоуважаемый Alex_ST. Во-первых почему модераторы сразу не переместили в нужную рубрику или не закрыли. Во-вторых когда я зашел и увидел сообщение о файле, макрос во втором сообщении от уважаемого Karataev уже был. А за что дали первое замечание я вообще не понял. Дали без объяснений.lapin9126
Сообщение отредактировал lapin9126 - Суббота, 17.12.2016, 20:33
А за что дали первое замечание я вообще не понял. Дали без объяснений
Ну так кликните на 20% в Замечаниях у себя в любом посте. И сразу же узнаете - за нарушение п.3 правил - не приложенный файл-пример.
Лена, п.3 правил повторно нарушил топик-стартер. Решение, выложенное Karataev без файла - это не нарушение, а поощрение нарушителей к повторным нарушениям. За это я ему и сказал "Ай-яй-яй! Как не хорошо!" Тем более, что dim34rus уже через 9 минут после старта топика написал:
А за что дали первое замечание я вообще не понял. Дали без объяснений
Ну так кликните на 20% в Замечаниях у себя в любом посте. И сразу же узнаете - за нарушение п.3 правил - не приложенный файл-пример.
Лена, п.3 правил повторно нарушил топик-стартер. Решение, выложенное Karataev без файла - это не нарушение, а поощрение нарушителей к повторным нарушениям. За это я ему и сказал "Ай-яй-яй! Как не хорошо!" Тем более, что dim34rus уже через 9 минут после старта топика написал:
Тогда вообще не понятно за что замечание Нарушение правил пп 5r - создавать темы в несоответствующих разделах, была тема: (excel_2010_VBA)Копирование из одной книги в другую. Что там не так? Где я должен был разместить тему? А по данному вопросу мудрый форумчанин Karataev, кто смог помочь, и не просил файл-пример.
Тогда вообще не понятно за что замечание Нарушение правил пп 5r - создавать темы в несоответствующих разделах, была тема: (excel_2010_VBA)Копирование из одной книги в другую. Что там не так? Где я должен был разместить тему? А по данному вопросу мудрый форумчанин Karataev, кто смог помочь, и не просил файл-пример.lapin9126
Сообщение отредактировал lapin9126 - Воскресенье, 18.12.2016, 02:19