Поиск ячеек с определенным шрифтом (пример Bold) и копирование этого значения ячейки в ячейках под ним

Предположим, есть отчет, в котором результат такой.

Falkon

123 1234 233 22 

морозный

 12 23 

Dafren

 12 335 33 

Теперь все равно в VBA, где я могу найти значения жирных ячеек, скопировать их и вставить их в числовые цифры после них до следующей жирной ячейки.

Например, я хочу скопировать Falkon и вставить его в 4 ячейки рядом с ним, затем я хочу скопировать Frosty и вставить в две ячейки рядом с ним и так далее. Изображение excel прилагается для справки

Попробуй это…

 Sub FillCells() Dim lr As Long lr = Cells(Rows.Count, "A").End(xlUp).Row On Error Resume Next Range("A2:A" & lr).SpecialCells(xlCellTypeConstants, 1).FormulaR1C1 = "=R[-1]C" Range("A2:A" & lr).Value = Range("A2:A" & lr).Value End Sub 
 Sub brb() Dim MaxRows, i As Integer MaxRows = Range(Range("A1"), Range("A1").End(xlDown)).Rows.Count For i = 0 To MaxRows - 1 If Range("A1").Offset(i, 0).Font.Bold = False Then Range("A1").Offset(i, 0).Value = Range("A1").Offset(i - 1, 0).Value Range("A1").Offset(i, 0).Font.Bold = True End If Next i End Sub 
Interesting Posts

Ошибка во время выполнения Excel VBA 1004 «таблица не может перекрывать другую таблицу»

excel vba – настраиваемая формула для Contains ()

Использование кода Excel VBA для отправки POST и получения данных

Laravel Return Download не работает

Найдите число в столбце и поместите 1 или 0 в ячейку результата

Как я могу иметь дело с исключениями «без конструкторов» и «тип не может быть внедрен»?

Изменить размер HorizontalScrollBar с помощью VBA

Ввод значения ячейки excel в массив символов

Развернуть начальную дату до конца даты с помощью серии EOMONTH

Предотвращение элементов таблицы сводной таблицы Excel, переписывающих ячейки выше

Пустая ячейка не в xls конвертировать в csv с помощью perl

Оберните ячейку новой строкой в ​​ячейке, а затем выделите линию внутри ячейки разделителем

Excel в CSV со специальными символами?

Как объединить 3 команды VBA в одну? Установите диапазон печати без абсолютной ссылки

Не понимаю, почему я получаю «Subscript Out Of Range»

Давайте будем гением компьютера.