Извлечь данные в соседний столбец.
Obla4ko
Дата: Вторник, 12.07.2016, 21:40 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
20% ±
Excel 2010
Есть ли способ извлечь время в отдельный столбец?
Есть ли способ извлечь время в отдельный столбец? Obla4ko
Ответить
Сообщение Есть ли способ извлечь время в отдельный столбец? Автор - Obla4ko Дата добавления - 12.07.2016 в 21:40
Nic70y
Дата: Вторник, 12.07.2016, 21:41 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
ЮMoney 41001841029809
Ответить
Сообщение Автор - Nic70y Дата добавления - 12.07.2016 в 21:41
Pelena
Дата: Вторник, 12.07.2016, 21:43 |
Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19161
Репутация:
4412
±
Замечаний:
±
Excel 365 & Mac Excel
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение и формат чч:мм Автор - Pelena Дата добавления - 12.07.2016 в 21:43
_Boroda_
Дата: Вторник, 12.07.2016, 22:34 |
Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация:
6478
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
Еще или, если нужно без секунд Ну и формат ячейки, конечно - ч:мм или чч:мм Если же нужно, чтобы значения времени были не временем, а текстом, то уберите два минуса перед ТЕКСТ
Еще или, если нужно без секунд Ну и формат ячейки, конечно - ч:мм или чч:мм Если же нужно, чтобы значения времени были не временем, а текстом, то уберите два минуса перед ТЕКСТ _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Еще или, если нужно без секунд Ну и формат ячейки, конечно - ч:мм или чч:мм Если же нужно, чтобы значения времени были не временем, а текстом, то уберите два минуса перед ТЕКСТ Автор - _Boroda_ Дата добавления - 12.07.2016 в 22:34
sv2014
Дата: Вторник, 12.07.2016, 23:56 |
Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
Obla4ko , добрый вечер,вариант функции uuu [vba]Код
Function uuu$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "\d+:\d+" uuu = .Execute(t)(0) End With End Function
[/vba]
Obla4ko , добрый вечер,вариант функции uuu [vba]Код
Function uuu$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "\d+:\d+" uuu = .Execute(t)(0) End With End Function
[/vba]sv2014
Ответить
Сообщение Obla4ko , добрый вечер,вариант функции uuu [vba]Код
Function uuu$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "\d+:\d+" uuu = .Execute(t)(0) End With End Function
[/vba]Автор - sv2014 Дата добавления - 12.07.2016 в 23:56
китин
Дата: Среда, 13.07.2016, 07:31 |
Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
а я вот сегодня решил поизвращаться Код
=--ПОДСТАВИТЬ(A2;ЛЕВБ(A2;ПОИСК(",";A2)-1);0)
а я вот сегодня решил поизвращаться Код
=--ПОДСТАВИТЬ(A2;ЛЕВБ(A2;ПОИСК(",";A2)-1);0)
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение а я вот сегодня решил поизвращаться Код
=--ПОДСТАВИТЬ(A2;ЛЕВБ(A2;ПОИСК(",";A2)-1);0)
Автор - китин Дата добавления - 13.07.2016 в 07:31
sv2014
Дата: Среда, 13.07.2016, 09:29 |
Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
Obla4ko , еще вариант функции uuu1 в столбце D без регулярок [vba]Код
Function uuu1$(t) uuu1 = Split(Split(t, ":")(0))(UBound(Split(Split(t, ":")(0)))) & ":" & Split(t, ":")(1) End Function
[/vba]
Obla4ko , еще вариант функции uuu1 в столбце D без регулярок [vba]Код
Function uuu1$(t) uuu1 = Split(Split(t, ":")(0))(UBound(Split(Split(t, ":")(0)))) & ":" & Split(t, ":")(1) End Function
[/vba]sv2014
Ответить
Сообщение Obla4ko , еще вариант функции uuu1 в столбце D без регулярок [vba]Код
Function uuu1$(t) uuu1 = Split(Split(t, ":")(0))(UBound(Split(Split(t, ":")(0)))) & ":" & Split(t, ":")(1) End Function
[/vba]Автор - sv2014 Дата добавления - 13.07.2016 в 09:29
Obla4ko
Дата: Среда, 13.07.2016, 15:36 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
20% ±
Excel 2010
А как тогда теперь удалить время из первого столбца оставив только дату?
А как тогда теперь удалить время из первого столбца оставив только дату? Obla4ko
Ответить
Сообщение А как тогда теперь удалить время из первого столбца оставив только дату? Автор - Obla4ko Дата добавления - 13.07.2016 в 15:36
китин
Дата: Среда, 13.07.2016, 15:43 |
Сообщение № 9
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
осавит только дату.формат ячейки дата
осавит только дату.формат ячейки дата китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение осавит только дату.формат ячейки дата Автор - китин Дата добавления - 13.07.2016 в 15:43
_Boroda_
Дата: Среда, 13.07.2016, 15:57 |
Сообщение № 10
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация:
6478
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
Если сразу на месте нужно Выделите столбец А, нажмите Контрл h, в Найти пробел звездочка (вот так - " *", только без кавычек), в Заменить на - ничего. Заменить все Если в другом столбце, то , где в В2 - найденное время
Если сразу на месте нужно Выделите столбец А, нажмите Контрл h, в Найти пробел звездочка (вот так - " *", только без кавычек), в Заменить на - ничего. Заменить все Если в другом столбце, то , где в В2 - найденное время _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Если сразу на месте нужно Выделите столбец А, нажмите Контрл h, в Найти пробел звездочка (вот так - " *", только без кавычек), в Заменить на - ничего. Заменить все Если в другом столбце, то , где в В2 - найденное время Автор - _Boroda_ Дата добавления - 13.07.2016 в 15:57
sv2014
Дата: Среда, 13.07.2016, 18:02 |
Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
Obla4ko , добрый вечер,вариант функции uuu2 для сообщения 8 [vba]Код
Function uuu2$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "^\d+\.\d+\.\d+" uuu2 = .Execute(t)(0) End With End Function
[/vba]
Obla4ko , добрый вечер,вариант функции uuu2 для сообщения 8 [vba]Код
Function uuu2$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "^\d+\.\d+\.\d+" uuu2 = .Execute(t)(0) End With End Function
[/vba]sv2014
Ответить
Сообщение Obla4ko , добрый вечер,вариант функции uuu2 для сообщения 8 [vba]Код
Function uuu2$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "^\d+\.\d+\.\d+" uuu2 = .Execute(t)(0) End With End Function
[/vba]Автор - sv2014 Дата добавления - 13.07.2016 в 18:02
sv2014
Дата: Среда, 13.07.2016, 18:12 |
Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
Obla4ko , еще вариант для даты в столбце F [vba]Код
Function yyy$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "(?:0?[1-9]|[1-2]\d|3[0-1])\.(?:0?[1-9]|[1-2]\d)\.20\d\d" If .test(t) Then yyy = .Execute(t)(0) Else yyy = "" End With End Function
[/vba]
Obla4ko , еще вариант для даты в столбце F [vba]Код
Function yyy$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "(?:0?[1-9]|[1-2]\d|3[0-1])\.(?:0?[1-9]|[1-2]\d)\.20\d\d" If .test(t) Then yyy = .Execute(t)(0) Else yyy = "" End With End Function
[/vba]sv2014
Ответить
Сообщение Obla4ko , еще вариант для даты в столбце F [vba]Код
Function yyy$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "(?:0?[1-9]|[1-2]\d|3[0-1])\.(?:0?[1-9]|[1-2]\d)\.20\d\d" If .test(t) Then yyy = .Execute(t)(0) Else yyy = "" End With End Function
[/vba]Автор - sv2014 Дата добавления - 13.07.2016 в 18:12
Obla4ko
Дата: Среда, 13.07.2016, 20:19 |
Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
20% ±
Excel 2010
Ребята, спасибо Вам! Выручили в очередной раз!
Ребята, спасибо Вам! Выручили в очередной раз! Obla4ko
Ответить
Сообщение Ребята, спасибо Вам! Выручили в очередной раз! Автор - Obla4ko Дата добавления - 13.07.2016 в 20:19