Vba 当A列为粗体时，如何循环浏览A列并粘贴标题

所以我是VBA的新手，我一直在尝试为自己解决这个问题，但我似乎做不好。我有一张销售数据表。我试图编写的宏将在a列的一个范围内循环，比如说“A5:A50”，当发现一个单元格包含粗体文本时，将在同一行中粘贴我的标题（比如“C6:I6”）2列

这是我的尝试-

Sub Headers()
Dim Head As Range

For Each Head In Range("A5:A50")
    If Head.Font.Bold = True Then
    Head.Offset(0, 2).Paste ("c6:I6")
    End If
    Next
End Sub

---

如果您试图将C6:I6的内容复制到a列中应用了粗体字体的每一行，则只需更改代码的一行：

Sub Headers()
    Dim Head As Range

    For Each Head In Range("A5:A50")
        If Head.Font.Bold = True Then
            'Copy C6:I6 to two columns to the right of current cell
            Range("C6:I6").Copy Head.Offset(0, 2)
        End If
    Next
End Sub

（如果您还需要选择A列中单元格部分为粗体而部分为非粗体的情况，则情况会变得更复杂。但我怀疑您只是想要简单的方法。）

在短语“当发现单元格包含粗体文本”中，“包含”一词是不明确的。您的意思是所有单元格文本都是粗体还是部分单元格文本可能是粗体？