现在有一个1行100000列的数组变量,想把它存到range(“A1:A10000"),该怎么做?
用Application.Transpose函数报错,只要列数超了256就不能用了。
不要自己写循环,有什么简便快捷的方法吗?
Sub RowCnt()
Dim Arr Open "D:\test.txt" For Input As #1
Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) Close #1
'MsgBox UBound(Arr) 'Range("A1").Resize(UBound(Arr) + 1, 1) = Application.Transpose(Application.Index(Arr, 1, )) Range("A1").Resize(UBound(Arr) + 1, 1) = Application.Transpose(Arr) Reset MsgBox LBound(Arr) & Chr(13) & UBound(Arr) End Sub
上面是源代码,如果 "D:\test.txt"文件只有4行,执行没有问题。换成10w行,就报错了:
Split å½æ°è¿åçæ¯ä¸ç»´æ°ç»ï¼ä½ ç代ç åºè¯¥æ²¡é®é¢ãæè¯éªäºä¸ä¸ï¼è½å¤å°ææ¬æ件çå 容æ¯æ®µæ¾å¨Aåçä¸ä¸ªåå æ ¼éï¼ä¼°è®¡æ¯ä½ çâtest.txtâæ件å 容æé®é¢æè 没æå 容ãä½ æ£æ¥ä¸ä¸test.txtæ件æå¤å°åèï¼0åèå°±ä¼åºç°ç±»åä¸å¹é çé误