新手求助：觉得挺简单 就是编不出来

大白兔zzz

自己在网上学了些VBA知识 想运用到实践当中，憋了半天也憋不出来，请大神给指导下思路

A2 = A3那么就copy D2和D3单元格
A4和A5不一样 那么只copy D4这个单元
A5 A6 A7 那么就copy D5 D6  D7这三个单元格
依次类推直到把A列都判断完

感谢

。。。

fzxba

1. Sub test0()
   
2.   
   
3.   Dim ar, b As Range, t As Range
   
4.   Dim i As Long, p  As Long
   
5.   
   
6.   Set b = Range("D1")
   
7.   Set t = Range("F1")
   
8.   ar = Range("A1").CurrentRegion.Columns(1).Offset(1)
   
9.   
   
10.   For i = 1 To UBound(ar) - 1
    
11.     If ar(i, 1) <> ar(i + 1, 1) Then
    
12.       t.CurrentRegion.Clear
    
13.       b.Offset(p + 1).Resize(i - p).Copy t
    
14.       p = i
    
15.     End If
    
16.   Next
    
17.   
    
18.   Set b = Nothing
    
19.   Set t = Nothing
    
20. End Sub

复制代码

ykcbf1100

简单的，你要会写，那就得多练。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.17
   
2.     With Sheets("PO")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         For i = 2 To r
   
5.             If .Cells(i, 1) = .Cells(i - 1, 1) Then
   
6.                 .Cells(i, 4) = .Cells(i - 1, 4)
   
7.             End If
   
8.         Next
   
9.     End With
   
10. End Sub
    
11. 
    

复制代码

cnmlgb9998

函数太烧脑，直接用PQ 局部分组 解决！

大白兔zzz

ykcbf1100 发表于 2024-3-17 19:00
参与一下。。。

感谢哥的教诲

大白兔zzz

fzxba 发表于 2024-3-17 18:49

还是你懂我老铁。。怪不得写不出来 又是offset 又是resize的