如果单元格包含“文本”，则拖动复制值，直到下一个包含“文本”的单元格

Question

嘿，我正在尝试创建一个宏来对客户数据进行排序，该宏由A列中的标头（“ CUSTOMER：ABC”）和有关该客户的数据行组成，最后是A列中的总标头（“ TOTAL”）包含该行的总数据。 对整个客户列表重复此过程。 我要做的是创建一个宏，该宏模拟将客户名称复制到包含总标题的单元格（包括该单元格）中的拖动。 我不需要移动任何数据，只需要用客户名填充A列的所有内容。

例如
1.客户：ABC
2。
3。
4.总计
5.客户：XYZ
6。
7.总计
改成：
1.客户：ABC
2.客户：ABC
3.客户：ABC
4.客户：ABC
5.客户：XYZ
6.客户：XYZ
7.客户：XYZ

Answer 1

Sub mySub()
   Dim nRows As Integer: nRows = Cells(Rows.Count, 1).End(xlUp).Row
   Dim cell As Range, r As Range: Set r = Range("A2:A" & nRows)
   For Each cell In r
        If InStr(1, LCase(cell.Value), "customer:") < 1 Then cell.Value = cell.Offset(-1).Value
   Next
End Sub