各位老师，看看这个用什么方法可以

mgzbs

如附件，各位老师看看能不能用函数或VB做出来，谢谢！

小石头936

1. Sub 按钮1_Click()
   
2. Dim arr()
   
3. row1 = [a1].CurrentRegion.Rows.Count
   
4. col1 = [a1].CurrentRegion.Columns.Count
   
5. ReDim arr(row1 * col1)
   
6. n = 0
   
7. For i = 2 To row1
   
8.    For j = 1 To col1
   
9.       arr(n) = Cells(i, j)
   
10.       n = n + 1
    
11.    Next
    
12. Next
    
13. Cells(row1 + 2, 2).Resize(UBound(arr), 1) = Application.WorksheetFunction.Transpose(arr)
    
14. Erase arr
    
15. End Sub

复制代码