[已解决]请帮忙：用宏把C列以后的数据自动复制到A列，感谢

kilyj300

请帮忙：用宏把C列以后的数据自动复制到A列，感谢

最佳答案

月排行榜 / 总排行榜

zjdh

2016-3-6 16:54

自动填充.rar (8.79 KB, 下载次数: 3)

2016-3-6 16:54 上传

点击文件名下载附件

Sub TEST()
    For I = 3 To Range("C3").End(2).Column
        Range(Cells(1, I), Cells(65536, I).End(3)).Copy Range("A65536").End(3).Offset(1)
    Next
End Sub

跳转到最佳答案楼层

sry660

1. Sub 复制数据()
   
2.     Dim arr, i&, j&, brr, n&
   
3.     arr = [c1].CurrentRegion
   
4.     ReDim brr(1 To 10000, 1 To 1)
   
5.     For j = 1 To UBound(arr, 2)
   
6.         For i = 1 To UBound(arr)
   
7.             If arr(i, j) <> "" Then
   
8.                 n = n + 1
   
9.                 brr(n, 1) = arr(i, j)
   
10.             End If
    
11.         Next
    
12.     Next
    
13.     [a:a].Clear
    
14.     [a2].Resize(n, 1) = brr
    
15. End Sub

复制代码

zjdh

自动填充.rar (8.79 KB, 下载次数: 3)

2016-3-6 16:54 上传

点击文件名下载附件

Sub TEST()
    For I = 3 To Range("C3").End(2).Column
        Range(Cells(1, I), Cells(65536, I).End(3)).Copy Range("A65536").End(3).Offset(1)
    Next
End Sub

kilyj300

非常感谢二楼！！！！！