[VBA]求助，多谢大家！！

dandandan

小妹有一事相求：如下有一文本文件的一部分，我想提取10，20，30后面的数据，并令存在一数组中，请问如何实现？

10

77.95818787889311

20

86.67726674893243

30

0.0

11

77.95818787889311

21

40.32671441750705

31

0.0

wyj7485

打开文件计算文件长度,定义一个动态数组,把要的数据放到里面

dyheng

如果数据不太多的话，先定义一个数组A1，把文本文件中的字符串逐行写入数组中，然后再定义另一个双精数组A2，在数组A1中循环读数，遇到想找的数（如10，其在A1中的位置假设是2）后，就把A1（3）（即数组中下一值）赋给A2（0），如此循环下去，直到数组读完为。但是如果文本文件太大的话，这个就不太好用了，一是要写很多代码（逐条件判断），二是速度也会下降。