GeorgeXIII
Дата: Четверг, 14.07.2016, 02:52 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Уважаемые форумчане!!! Есть большая таблица ФИО, адрес. Как разделить адрес (ячейка С) на 3 колонки - улицу, дом, квартиру?
Уважаемые форумчане!!! Есть большая таблица ФИО, адрес. Как разделить адрес (ячейка С) на 3 колонки - улицу, дом, квартиру? GeorgeXIII
Сообщение отредактировал GeorgeXIII - Четверг, 14.07.2016, 02:52
Ответить
Сообщение Уважаемые форумчане!!! Есть большая таблица ФИО, адрес. Как разделить адрес (ячейка С) на 3 колонки - улицу, дом, квартиру? Автор - GeorgeXIII Дата добавления - 14.07.2016 в 02:52
sv2014
Дата: Четверг, 14.07.2016, 03:59 |
Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 203
Репутация:
58
±
Замечаний:
0% ±
Excel 2013
GeorgeXIII , вариант функций uuu1,uuu2,uuu3 в столбцах : D E и F [vba]Код
Function yyy1$(t$) yyy1 = Split(t, ",")(0) End Function
[/vba] [vba]Код
Function yyy2(t$) yyy2 = Split(Split(t, ",")(1), ".")(1) End Function
[/vba] [vba]Код
Function yyy3%(t$) yyy3 = Split(Split(t, ",")(2), ".")(1) End Function
[/vba]
GeorgeXIII , вариант функций uuu1,uuu2,uuu3 в столбцах : D E и F [vba]Код
Function yyy1$(t$) yyy1 = Split(t, ",")(0) End Function
[/vba] [vba]Код
Function yyy2(t$) yyy2 = Split(Split(t, ",")(1), ".")(1) End Function
[/vba] [vba]Код
Function yyy3%(t$) yyy3 = Split(Split(t, ",")(2), ".")(1) End Function
[/vba]sv2014
Сообщение отредактировал sv2014 - Четверг, 14.07.2016, 04:00
Ответить
Сообщение GeorgeXIII , вариант функций uuu1,uuu2,uuu3 в столбцах : D E и F [vba]Код
Function yyy1$(t$) yyy1 = Split(t, ",")(0) End Function
[/vba] [vba]Код
Function yyy2(t$) yyy2 = Split(Split(t, ",")(1), ".")(1) End Function
[/vba] [vba]Код
Function yyy3%(t$) yyy3 = Split(Split(t, ",")(2), ".")(1) End Function
[/vba]Автор - sv2014 Дата добавления - 14.07.2016 в 03:59
GeorgeXIII
Дата: Четверг, 14.07.2016, 04:20 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Ответить
Сообщение Автор - GeorgeXIII Дата добавления - 14.07.2016 в 04:20
sv2014
Дата: Четверг, 14.07.2016, 04:27 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 203
Репутация:
58
±
Замечаний:
0% ±
Excel 2013
GeorgeXIII , можно для квартиры вместо yyy3 еще zzz3 [vba]Код
Function zzz3%(t$) With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True zzz3 = .Execute(t)(.Execute(t).Count - 1) End With End Function
[/vba]
GeorgeXIII , можно для квартиры вместо yyy3 еще zzz3 [vba]Код
Function zzz3%(t$) With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True zzz3 = .Execute(t)(.Execute(t).Count - 1) End With End Function
[/vba]sv2014
Ответить
Сообщение GeorgeXIII , можно для квартиры вместо yyy3 еще zzz3 [vba]Код
Function zzz3%(t$) With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True zzz3 = .Execute(t)(.Execute(t).Count - 1) End With End Function
[/vba]Автор - sv2014 Дата добавления - 14.07.2016 в 04:27
buchlotnik
Дата: Четверг, 14.07.2016, 06:10 |
Сообщение № 5
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3443
Репутация:
923
±
Замечаний:
20% ±
2010, 2013, 2016 RUS / ENG
можно и на формулах Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(C3;",";ПОВТОР(" ";99));1;100))
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(C3;",";ПОВТОР(" ";99));100;100))
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(C3;",";ПОВТОР(" ";99));200;100))
или просто текст по столбцам с разделителем "," (запятая)
можно и на формулах Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(C3;",";ПОВТОР(" ";99));1;100))
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(C3;",";ПОВТОР(" ";99));100;100))
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(C3;",";ПОВТОР(" ";99));200;100))
или просто текст по столбцам с разделителем "," (запятая) buchlotnik
Сообщение отредактировал buchlotnik - Четверг, 14.07.2016, 06:11
Ответить
Сообщение можно и на формулах Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(C3;",";ПОВТОР(" ";99));1;100))
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(C3;",";ПОВТОР(" ";99));100;100))
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(C3;",";ПОВТОР(" ";99));200;100))
или просто текст по столбцам с разделителем "," (запятая) Автор - buchlotnik Дата добавления - 14.07.2016 в 06:10
sv2014
Дата: Четверг, 14.07.2016, 10:11 |
Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 203
Репутация:
58
±
Замечаний:
0% ±
Excel 2013
GeorgeXIII , добрый день,добавил функции bbb в H,ccc в J,zzz3 в N,tt в L,vvv в M и макрос use для ввода всех функций в ваш очень большой диапазон строк [vba]Код
Sub use() Dim i1&: Application.Calculation = -4135 i1 = Range("C" & ActiveSheet.Rows.Count).End(xlUp).Row Range("D3:D" & i1).Formula = "=yyy1(C3)" Range("E3:E" & i1).Formula = "=yyy2(C3)" Range("F3:F" & i1).Formula = "=yyy3(C3)" Range("H3:H" & i1).Formula = "=bbb(C3)" Range("J3:J" & i1).Formula = "=ccc(C3)" Range("L3:L" & i1).Formula = "=tt(C3)" Range("M3:M" & i1).Formula = "=vvv(C3)" Range("N3:N" & i1).Formula = "=zzz3(C3)" Application.Calculation = -4105 End Sub
[/vba] [vba]Код
Function tt(s$) tt = Mid(Split(s, ",")(UBound(Split(s, ","))), 5) End Function
[/vba] [vba]Код
Function ccc(t$) With CreateObject("VBScript.RegExp"): .Pattern = ",(.+)," ccc = Mid(.Execute(t)(0).Submatches(0), 4) End With End Function
[/vba] [vba]Код
Function bbb(t$) With CreateObject("VBScript.RegExp"): .Pattern = "[^,]+(?=,)" bbb = .Execute(t)(0) End With End Function
[/vba] [vba]Код
Function vvv%(t$) With CreateObject("VBScript.RegExp"): .Pattern = ",[^,]+$" vvv = Mid(.Execute(t)(0), 6) End With End Function
[/vba]
GeorgeXIII , добрый день,добавил функции bbb в H,ccc в J,zzz3 в N,tt в L,vvv в M и макрос use для ввода всех функций в ваш очень большой диапазон строк [vba]Код
Sub use() Dim i1&: Application.Calculation = -4135 i1 = Range("C" & ActiveSheet.Rows.Count).End(xlUp).Row Range("D3:D" & i1).Formula = "=yyy1(C3)" Range("E3:E" & i1).Formula = "=yyy2(C3)" Range("F3:F" & i1).Formula = "=yyy3(C3)" Range("H3:H" & i1).Formula = "=bbb(C3)" Range("J3:J" & i1).Formula = "=ccc(C3)" Range("L3:L" & i1).Formula = "=tt(C3)" Range("M3:M" & i1).Formula = "=vvv(C3)" Range("N3:N" & i1).Formula = "=zzz3(C3)" Application.Calculation = -4105 End Sub
[/vba] [vba]Код
Function tt(s$) tt = Mid(Split(s, ",")(UBound(Split(s, ","))), 5) End Function
[/vba] [vba]Код
Function ccc(t$) With CreateObject("VBScript.RegExp"): .Pattern = ",(.+)," ccc = Mid(.Execute(t)(0).Submatches(0), 4) End With End Function
[/vba] [vba]Код
Function bbb(t$) With CreateObject("VBScript.RegExp"): .Pattern = "[^,]+(?=,)" bbb = .Execute(t)(0) End With End Function
[/vba] [vba]Код
Function vvv%(t$) With CreateObject("VBScript.RegExp"): .Pattern = ",[^,]+$" vvv = Mid(.Execute(t)(0), 6) End With End Function
[/vba]sv2014
Ответить
Сообщение GeorgeXIII , добрый день,добавил функции bbb в H,ccc в J,zzz3 в N,tt в L,vvv в M и макрос use для ввода всех функций в ваш очень большой диапазон строк [vba]Код
Sub use() Dim i1&: Application.Calculation = -4135 i1 = Range("C" & ActiveSheet.Rows.Count).End(xlUp).Row Range("D3:D" & i1).Formula = "=yyy1(C3)" Range("E3:E" & i1).Formula = "=yyy2(C3)" Range("F3:F" & i1).Formula = "=yyy3(C3)" Range("H3:H" & i1).Formula = "=bbb(C3)" Range("J3:J" & i1).Formula = "=ccc(C3)" Range("L3:L" & i1).Formula = "=tt(C3)" Range("M3:M" & i1).Formula = "=vvv(C3)" Range("N3:N" & i1).Formula = "=zzz3(C3)" Application.Calculation = -4105 End Sub
[/vba] [vba]Код
Function tt(s$) tt = Mid(Split(s, ",")(UBound(Split(s, ","))), 5) End Function
[/vba] [vba]Код
Function ccc(t$) With CreateObject("VBScript.RegExp"): .Pattern = ",(.+)," ccc = Mid(.Execute(t)(0).Submatches(0), 4) End With End Function
[/vba] [vba]Код
Function bbb(t$) With CreateObject("VBScript.RegExp"): .Pattern = "[^,]+(?=,)" bbb = .Execute(t)(0) End With End Function
[/vba] [vba]Код
Function vvv%(t$) With CreateObject("VBScript.RegExp"): .Pattern = ",[^,]+$" vvv = Mid(.Execute(t)(0), 6) End With End Function
[/vba]Автор - sv2014 Дата добавления - 14.07.2016 в 10:11
sv2014
Дата: Четверг, 14.07.2016, 10:21 |
Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 203
Репутация:
58
±
Замечаний:
0% ±
Excel 2013
GeorgeXIII , добавил Вам кнопку use для макроса довольно быстрого ввода функций и кнопку очистка для тестирования.
GeorgeXIII , добавил Вам кнопку use для макроса довольно быстрого ввода функций и кнопку очистка для тестирования.sv2014
Ответить
Сообщение GeorgeXIII , добавил Вам кнопку use для макроса довольно быстрого ввода функций и кнопку очистка для тестирования.Автор - sv2014 Дата добавления - 14.07.2016 в 10:21