Excel VBA读取列数据拼接字符串无法存储全部数据问题求助

你遇到的截断问题并非VBA字符串容量限制导致：VBA可变长度字符串最大支持约2GB存储，完全可以容纳25万行的文本内容。核心故障点是Application.WorksheetFunction.Transpose的内置上限：该函数处理一维数组时最多支持65536个元素，超过阈值的内容会被直接截断，这也是小数据量运行正常、大数据量出错的原因。

另外你现有代码存在一个隐性bug：定义Nodes范围时，Cells对象没有绑定指定工作表，当代码运行时当前活跃工作表不是.inp表时，会出现范围匹配错误。

方案1：直接处理数组生成字符串（性能最优，保留原有拼接大字符串的逻辑） #

替换原有Transpose拼接的代码段即可，操作数组的性能和Transpose几乎无差异，无元素数量限制：

Dim arr As Variant, i As Long
Dim strArr() As String
' 先把范围值一次性读入数组，远快于逐单元格读取
arr = Nodes.Value
ReDim strArr(1 To UBound(arr, 1))
For i = 1 To UBound(arr, 1)
    strArr(i) = CStr(arr(i, 1))
Next
NodesList = Join(strArr, vbNewLine)

同时建议修改Nodes范围的定义逻辑，消除隐性bug：

With Workbooks("Dent Input Deck.xlsm").Sheets(".inp")
    Set Nodes = .Range(.Cells(2, 1), .Cells(Number_of_Nodes, 1))
End With

方案2：跳过拼接大字符串步骤，直接写入文本文件（内存占用最低） #

如果你的最终目的是将内容输出到文本文件，可以完全跳过拼接超长字符串的环节，逐行写入文件，内存占用仅为方案1的1/10左右：

' 无需额外引用，直接使用后期绑定即可运行
Dim fso As Object, txtStream As Object
Set fso = CreateObject("Scripting.FileSystemObject")
' 第二个参数True表示覆盖已有文件，第三个参数True表示使用UTF-8编码
Set txtStream = fso.CreateTextFile("C:\你的输出路径\目标文件.txt", True, True)

Dim arr As Variant, i As Long
arr = Nodes.Value
For i = 1 To UBound(arr, 1)
    txtStream.WriteLine CStr(arr(i, 1))
Next
' 释放资源
txtStream.Close
Set txtStream = Nothing
Set fso = Nothing

内容的提问来源于stack exchange，提问作者Ahmed Hassanin