将其下有多行数据但没有该名称的行名称复制到该行名称下的每一行的新列中

Question

我正在使用的示例

我每个月都有成千上万的工作表，显示在上面的链接中。 您可以看到第11、16、21和26行带有蓝色文本。 我想制作一个VBA宏，它将B11的名称复制到A12：A15，将B16的名称复制到A17：A20，依此类推。 有任何想法吗？ 非常感谢你的帮助！

Answer 1

这将使您入门……还可以研究创建范围对象并使用“ For Each”，因此您不必物理选择单元格（这种方式可以更快地编写）：

Sub NameToLeft()
    Dim roomName As String
    Range("B1").Select
    While Range("B" & ActiveCell.Row) <> ""
        If Range("B" & ActiveCell.Row).Font.Color = RGB(0, 0, 255) Then
            roomName = Range("B" & ActiveCell.Row)
        Else
            With Range("A" & ActiveCell.Row)
              .Value = roomName
              .Font.Color = RGB(0, 0, 255)
            End With
        End If
        ActiveCell.Offset(1, 0).Select
    Wend
End Sub