这种复制粘贴如何写

此用户被禁言

需求与内容都在文档中，但是想了很久，不知道如何写这样的复制与粘贴了。。有很久没有使用VBA了，请教大家一下。谢谢

此用户被禁言

顶一下，各位老师麻烦看看要如何弄，谢谢

chxw68

1. Sub test()
   
2.     Dim r%, i%, m%
   
3.     Dim arr, brr, yrr(), zrr()
   
4.     With Worksheets("明细")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("a1:g" & r)
   
7.     End With
   
8.     For i = 5 To UBound(arr)
   
9.         If Left(arr(i, 1), 4) = "组立编号" Then
   
10.             m = m + 1
    
11.             ReDim Preserve zrr(1 To m)
    
12.             zrr(m) = Array(i + 1, i + 1)
    
13.         Else
    
14.             If m > 0 Then
    
15.                 zrr(m)(1) = i
    
16.             End If
    
17.         End If
    
18.     Next
    
19.     With Worksheets("最终要的")
    
20.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
21.         brr = .Range("a1:a" & r)
    
22.         m = 0
    
23.         For i = 1 To UBound(brr)
    
24.             If brr(i, 1) = "零件编号" Then
    
25.                 .Cells(i + 1, 1).Resize(9, 7).ClearContents
    
26.                 m = m + 1
    
27.                 ReDim Preserve yrr(1 To m)
    
28.                 yrr(m) = i + 1
    
29.             End If
    
30.         Next
    
31.         p = 0
    
32.         For k = 1 To UBound(zrr)
    
33.             zs = Application.Ceiling((zrr(k)(1) - zrr(k)(0) + 1) / 9, 1)
    
34.             ys = (zrr(k)(1) - zrr(k)(0) + 1) Mod 9
    
35.             s = 0
    
36.             For i = zrr(k)(0) To zrr(k)(1) Step 9
    
37.                 s = s + 1
    
38.                 If s = zs And ys <> 0 Then
    
39.                     hs = ys
    
40.                 Else
    
41.                     hs = 9
    
42.                 End If
    
43.                 p = p + 1
    
44.                 Worksheets("明细").Cells(i, 1).Resize(hs, 7).Copy Cells(yrr(p), 1)
    
45.             Next
    
46.         Next
    
47.     End With
    
48.                
    
49.                
    
50.    
    
51. End Sub
    

复制代码

chxw68

详见附件。

此用户被禁言

chxw68 发表于 2023-4-22 09:26
详见附件。

非常感谢老师的帮助 。我自己再完善一下。可以的。

chxw68

此用户被禁言 发表于 2023-4-22 11:14
非常感谢老师的帮助 。我自己再完善一下。可以的。

求人和求己结合，这样最好。