使用特定字體（粗體示例）查找單元格並在其下面的單元格中複製該單元格的值

Question

假設有一個報告的輸出是這樣的。

Falkon

123 
1234 
233 
22 

霧

12 
23 

Dafren

12 
335 
33 

現在反正是有在VBA在哪裏可以找到粗體單元格的值，將它們複製並粘貼到後面的數字圖形中直到下一個粗體單元格。

就像我想複製Falkon並將其粘貼在旁邊的4個單元格中，然後我想複製Frosty並粘貼到旁邊的兩個單元格中，等等。 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