disub
Дата: Понедельник, 03.04.2017, 19:14 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Доброго времени суток! Подскажите пожалуйста как можно сделать групповую замену текста, указанного в столбце А на текст, указанный в столбце В. Спасибо!
Доброго времени суток! Подскажите пожалуйста как можно сделать групповую замену текста, указанного в столбце А на текст, указанный в столбце В. Спасибо! disub
Ответить
Сообщение Доброго времени суток! Подскажите пожалуйста как можно сделать групповую замену текста, указанного в столбце А на текст, указанный в столбце В. Спасибо! Автор - disub Дата добавления - 03.04.2017 в 19:14
Karataev
Дата: Понедельник, 03.04.2017, 19:47 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1336
Репутация:
533
±
Замечаний:
0% ±
Excel
Макрос для Вашего файла примера. Только в столбце "A" должно быть минимум две строки с данными, иначе будет ошибка.
[vba]
Код
Sub Изменить_оформление() Dim arr() Dim lngInStr As Long, lr As Long, i As Long Application.ScreenUpdating = False Columns("B").ClearContents Columns("B").Font.Bold = False lr = Cells(Rows.Count, "A").End(xlUp).Row arr() = Range("A1:A" & lr).Value For i = 1 To UBound(arr) lngInStr = InStr(arr(i, 1), " ") arr(i, 1) = UCase(Left(arr(i, 1), lngInStr - 1)) & Mid(arr(i, 1), lngInStr) Cells(i, "B").Value = arr(i, 1) Cells(i, "B").Characters(1, lngInStr - 1).Font.Bold = True Next i Application.ScreenUpdating = True End Sub
[/vba]
Макрос для Вашего файла примера. Только в столбце "A" должно быть минимум две строки с данными, иначе будет ошибка.
[vba]
Код
Sub Изменить_оформление() Dim arr() Dim lngInStr As Long, lr As Long, i As Long Application.ScreenUpdating = False Columns("B").ClearContents Columns("B").Font.Bold = False lr = Cells(Rows.Count, "A").End(xlUp).Row arr() = Range("A1:A" & lr).Value For i = 1 To UBound(arr) lngInStr = InStr(arr(i, 1), " ") arr(i, 1) = UCase(Left(arr(i, 1), lngInStr - 1)) & Mid(arr(i, 1), lngInStr) Cells(i, "B").Value = arr(i, 1) Cells(i, "B").Characters(1, lngInStr - 1).Font.Bold = True Next i Application.ScreenUpdating = True End Sub
[/vba]
Karataev
Сообщение отредактировал Karataev - Понедельник, 03.04.2017, 19:49
Ответить
Сообщение Макрос для Вашего файла примера. Только в столбце "A" должно быть минимум две строки с данными, иначе будет ошибка.
[vba]
Код
Sub Изменить_оформление() Dim arr() Dim lngInStr As Long, lr As Long, i As Long Application.ScreenUpdating = False Columns("B").ClearContents Columns("B").Font.Bold = False lr = Cells(Rows.Count, "A").End(xlUp).Row arr() = Range("A1:A" & lr).Value For i = 1 To UBound(arr) lngInStr = InStr(arr(i, 1), " ") arr(i, 1) = UCase(Left(arr(i, 1), lngInStr - 1)) & Mid(arr(i, 1), lngInStr) Cells(i, "B").Value = arr(i, 1) Cells(i, "B").Characters(1, lngInStr - 1).Font.Bold = True Next i Application.ScreenUpdating = True End Sub
[/vba]
Автор - Karataev Дата добавления - 03.04.2017 в 19:47
disub
Дата: Понедельник, 03.04.2017, 20:22 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Karataev, Огромное спасибо!
Karataev, Огромное спасибо! disub
Ответить
Сообщение Karataev, Огромное спасибо! Автор - disub Дата добавления - 03.04.2017 в 20:22