Question

所以我是VBA的新手，我一直试图为自己解决这个问题，但我似乎无法做到这一点。我有一张包含销售数据的表格。我试图编写的宏将遍历A列中的一个范围，让Say＆＃34; A5：A50＆＃34;当找到包含粗体文本的单元格时，会在同一行中粘贴我的标题（让我们在＆＃34; C6：I6＆＃34;中说明）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列中单元格的部分是粗体而部分不是粗体的情况，则会变得更复杂。但我怀疑您只是想要简单的方法。）

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

1 个答案: