各位大大好，小弟目前用Excel 2016 VBA写了一个阳春的程式
主要功能在于开启文字档后比对Excel某字段与文字档某行是否相符
不相符的话就跳下一行
符合的话就把该行到+n行的资料(n会在之前计算出来)贴到excel另一个sheet做计算
计算完毕后就关闭文字档跳下一笔资料做一样的事情，
直到该字段最后一笔没资料(如下)
Do While ((Cells(k, 2).Value <> "") Or (Cells(k, 1).Value <> ""))
可是小弟发现当资料一多的时候(目前有4万多笔)，
等于我要开启关闭文字档4万多次 (可能同一个档案可能不同档案)
然后把符合的资料贴到Excel四万多次
这样的情况下似乎Excel跑到大概10%以内就会停掉 (也不知道还有没有在跑)
CPU Loading大概都在15%，内存也在50%以下
不知道是否有什么样的办法可以加快速度呢？
谢谢各位大大！