Question

我有一个非常大的CSV文件，有60列和50k行。（我无法告诉你，因为它在内联网中。）

我编写了这样做的VBA代码：

Columns("D:BF").Select
Selection.ClearContents
*Code to import csv file to D1*
LastRow = Cells(Rows.Count, "D").End(xlUp).Row
Range("A1:C1").Select
Selection.Copy
Range("A2:C" & lastrow).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False

它正在运作，但已停止工作。当我运行宏Excel冻结。我需要按＆＃34; Esc＆＃34;并且宏停止，然后调试器说PasteSpecial是错误的。但它不是，如果我只运行一个宏来导入，然后按＆＃34; Esc＆＃34;它导入得很好，然后我运行第二个宏来粘贴公式，直到最后一行，它也运行得很好

工作簿是手动计算

http://i.stack.imgur.com/HKzJE.jpg

Answer 1

粘贴后

使用doevents命令...我希望它能正常工作

导入大型CSV时Excel会冻结

1 个答案: