特定のフォントでセルを検索する（太字の例）

Question

出力がこのようなレポートがあるとします。

Falkon

123 
1234 
233 
22 

フロスティ

12 
23 

Dafren

12 
335 
33 

今VBAでとにかくあり太字のセルの値を見つけてコピーし、次の大胆なセルまで数字の数値に貼り付けます。

私はFalkonをコピーして横にある4つのセルに貼り付けたいと思います。次に、Frostyをコピーして隣の2つのセルにペーストしたいと思います。あなたはサンプル画像に示されているよう Image of the excel is attached for reference

Answer 1

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 

Answer 2

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