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

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

1 个答案: