Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Нужно выделить первые строки в ячейках, в которых по несколько строк.
 
Здравствуйте, существует ли приём без использования макросов, чтобы в ячейках, в которых несколько строк (применялся метод Alt+Enter), первая строка выделялась жирным, а все остальные - нет?
Ячеек много в столбце, вручную выделять первую строку в каждой ячейке долго и утомительно.

Спасибо!
 
Цитата
существует ли приём без использования макросов
Без макросов не знаю. А макросом попробуйте так
Код
Sub BoldFirstRow()
Dim i As Long
Dim iLastRow As Long
Dim n As Integer
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 Range("A3:A" & iLastRow).Font.Bold = False
  For i = 3 To iLastRow
    n = InStr(1, Cells(i, 1), Chr(10))
    If Cells(i, 1) <> "" And n <> 0 Then
      Cells(i, 1).Characters(1, n).Font.Bold = True
    End If
  Next
End Sub
 
Хотелось бы без макросов, но большое Вам спасибо. Видимо, без использования макросов такое невозможно.
Страницы: 1
Читают тему (гостей: 1)
Наверх