复制B列每一个单元格数据至A列数据后

lw283534125

如图，求代码

windyjw007

1. Sub test()
   
2.     Dim ar, br(1 To 10000, 1 To 2)
   
3.     Dim i As Long, j As Long, k As Long
   
4.     ar = Cells(1, 1).CurrentRegion
   
5.     For i = 1 To UBound(ar)
   
6.         For j = 1 To UBound(ar)
   
7.             k = k + 1
   
8.             br(k, 1) = ar(j, 1)
   
9.             br(k, 2) = ar(i, 2)
   
10.         Next j
    
11.     Next i
    
12.     With Cells(1, 4)
    
13.         .Resize(Rows.Count, 2).ClearContents
    
14.         .Resize(k, 2) = br
    
15.     End With
    
16. End Sub
    

复制代码