VB运行代码速度慢

二哥是个大坏蛋

大神们，我根据自己数据汇整的需要搞了一个从csv文件将数据复制粘贴到另一页的代码。

但是在运行时速度非常慢（每次汇总将近100个csv文件中的数据），有些时候都会把软件跑死。
能帮我检查一下这些代码有什么是比较耗资源的吗》？帮我看看，拜谢，在线急等！

Sub 导入数据()
Dim FileOpen
Dim x As Integer
Dim y As Integer
y = Sheet14.Range("AI2").Value
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.csv),*.csv", MultiSelect:=True, Title:=" 导入数据")
x = 1
Workbooks.Open Filename:=FileOpen(x) '打开数据源
   Range("C1:SJ2").Select
    Selection.Copy
    Sheet13.Activate '回到sheet data
    Range("A2").Select '确定粘贴首位置
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=True
    '复制内容进行转置粘贴
While x <= UBound(FileOpen)
    Workbooks.Open Filename:=FileOpen(x) '回到打开的文件
    Range("C10:SJ10").Select
    Selection.Copy
    Sheet13.Activate
    Cells(2, x + 2).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=True
    Workbooks.Open Filename:=FileOpen(x)
ActiveWorkbook.Close savechanges:=False
x = x + 1
Wend
Application.ScreenUpdating = True
End Sub

bj917

可以考虑用数组k来保存数据，
输出时将数组转置
Cells(r + 1, col_last + 1).Resize(UBound(k) + 1, 100) = Application.Transpose(k)