这个宏怎么写？

杨建营

参与一下，

gwjkkkkk

................

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.3
   
2.     arr = [a1:f6]
   
3.     zrr = [i1:k6]
   
4.     ReDim brr(1 To UBound(arr) * 6, 1 To UBound(arr, 2) + UBound(zrr, 2))
   
5.     For i = 1 To UBound(arr)
   
6.         For x = 1 To UBound(zrr)
   
7.             m = m + 1
   
8.             For j = 1 To UBound(arr, 2)
   
9.                 brr(m, j) = arr(i, j)
   
10.             Next
    
11.             For j = 1 To UBound(zrr, 2)
    
12.                 brr(m, j + UBound(arr, 2)) = zrr(x, j)
    
13.             Next
    
14.         Next
    
15.     Next
    
16.     [m1:v1000] = ""
    
17.     [m1].Resize(m, UBound(arr, 2) + UBound(zrr, 2)) = brr
    
18. End Sub
    

复制代码

yizhimoshou

分用完了，剩下明天再给了