在线等，麻烦帮写一个VB

star9s

在线等，麻烦帮写一个VB

xdragon

1. Sub demo1()
   
2.     Dim arr, re
   
3.     Dim i  As Long, j As Long, k As Long, cnt As Long
   
4.     arr = Sheets("sheet2").UsedRange.Value
   
5.     ReDim re(1 To 100000, 1 To 2)
   
6.     For i = 0 To UBound(arr) Step 11
   
7.         For j = 0 To UBound(arr, 2) Step 3
   
8.             For k = 1 + i To 10 + i
   
9.                 cnt = cnt + 1
   
10.                 re(cnt, 1) = arr(k, j + 1)
    
11.                 re(cnt, 2) = arr(k, j + 2)
    
12.             Next
    
13.         Next
    
14.     Next
    
15.     Sheets("sheet3").Range("A1").Resize(cnt, 2) = re
    
16.     Sheets("sheet2").Cells.ClearContents
    
17. End Sub
    

复制代码