如果單元格中包含「文本」，直到包含「文本」的下一個單元格爲止拖動副本值

Question

嘿，我試圖創建一個宏來對客戶數據進行排序，在A列中標題（「CUSTOMER：ABC」）有關該客戶的數據行，最後是A列中的總標題（「TOTAL」）以及該行的總數據。對於整個客戶列表重複這一點。我想要做的是創建一個宏，模擬拖拽將客戶名稱複製到（包括）具有總標題的單元格。我不需要移動任何數據，只需要填寫客戶名稱的所有列。

Ex。
1. CUSTOMER：ABC
2.
3.
4.總計
5. CUSTOMER：XYZ
6.
7. TOTAL
更改爲：
1. CUSTOMER：ABC
2.客戶：ABC
3.客戶：ABC
4. CUSTOMER：ABC
5. CUSTOMER：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