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




补充内容 (2022-10-24 08:48):
添加了数据模板与实例数据源表

3190496160

目前的代码基本上是录制宏产生的，选定区域复制，不断的频繁的激活文件，激活工作表，速度肯定就是问题了，
可以采用把区域数据赋值给数组，再把数组赋值给单元格区域的
没有附件，只有代码，只能这么跟你说

二哥是个大坏蛋

不好意思，我是个小白。能听懂您的意思，但是具体怎么做不清楚。能请您帮忙修改一下吗？我添加了附件，麻烦您帮忙看看。

二哥是个大坏蛋

3190496160 发表于 2022-10-21 17:27
目前的代码基本上是录制宏产生的，选定区域复制，不断的频繁的激活文件，激活工作表，速度肯定就是问题了， ...

不好意思，我是个小白。能听懂您的意思，但是具体怎么做不清楚。能请您帮忙修改一下吗？我添加了附件，麻烦您帮忙看看。