★的行信息往下覆盖

njwtg

老师好，当前活动工作表，有几千行数据，如果H列的单元格的值是★，那就将该行GIJ的值往下复制，复制的逻辑如下：


1、遇到H列的为★时，就停止该组的复制
2、往下复制时，如果L列为空时就停止该组的复制
3、黄色是程序运行后的效果，程序前是空的

山菊花

供参考。

njwtg

谢谢山菊花老师，ok！

njwtg

问题：蓝色的不应该被复制，因为第2条要求L列为空时就停止该组的复制，继续下一个★的复制

njwtg

蓝色的不应该被复制，麻烦老师了

山菊花

njwtg 发表于 2024-4-20 10:02
蓝色的不应该被复制，麻烦老师了

1. Sub ★的行信息往下覆盖()
   
2.     Dim nRow%, Arr(), i%, j%, k%
   
3.     nRow = Range("l65536").End(xlUp).Row + 1
   
4.     Arr = Range("g1:l" & nRow).Value
   
5.     For i = 1 To nRow
   
6.         If Arr(i, 2) = "★" Then
   
7.             k = i
   
8.         ElseIf k > 0 Then
   
9.             If Arr(i, 6) <> "" Then
   
10.                 Arr(i, 1) = Arr(k, 1)
    
11.                 Arr(i, 3) = Arr(k, 3)
    
12.                 Arr(i, 4) = Arr(k, 4)
    
13.             Else
    
14.                 k = 0
    
15.             End If
    
16.         End If
    
17.     Next
    
18.     Range("g1:j" & nRow).Value = Arr
    
19. End Sub

复制代码

njwtg

谢谢
山菊花，完美！