当列A为粗体时，如何遍历列A和粘贴标题

所以我是VBA的新手，我一直试图为自己破解这个，但我似乎无法做到。 我有一张销售数据表。 我试图写的macros将通过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 

Answer 1

如果您试图将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列中的部分单元格是粗体而不是部分单元格的情况，则会变得更加复杂，但是我怀疑你只是想要简单的方法。）