在excel中复制超过255个字符

该公司有大量excel报告，尽管不是我的工作，也不是这方面的专家，我还是帮了他们一把：

其中一个报告是由100K+单元格组成的每日矩阵，分为8个分析员，分析员从创建的实体中获取链接列表和其他杂项数据。每个分析师在他们的报告中都将所有列转换为一个单独的列，逐个复制，按名称排序，检索所有http。。。并在工具中加入链接检查

除了删除重复和空单元格的宏之外，我还编写了一个宏来将单元格矩阵转换为单个列。它的工作原理是选择假装的单元格、运行宏、点目标和完成

这是：

Sub SingleColumnSelection()

Dim v       As Variant
Dim nCol    As Long
Dim nRow    As Long
Dim rOut    As Range
Dim iCol    As Long

v = Selection

nRow = UBound(v, 1)
nCol = UBound(v, 2)
Set rOut = Application.InputBox("Select destination", Type:=8).Resize(nRow, 1)
If rOut Is Nothing Then Exit Sub
For iCol = 1 To nCol
    rOut.Value = WorksheetFunction.Index(v, 0, iCol)
    Set rOut = rOut.Offset(nRow)
Next iCol
End Sub

我两个月前就做了，现在他们告诉我有时候他们有问题，我去挖掘，在一份20k报告中发现了两个破坏宏的链接

两者都有大约300个字符，当应用程序从我认为大于255个字符的单元格中读取数据时，在rOut.Value=WorksheetFunction.Indexv，0，iCol中255个字符后中断

对于一个不懂excel的人来说，任何解决方法我都有自己的想法，我正在尝试其他方法，但会改变本报告中分析师的工作流程，请尝试以下方法：

Sub SingleColumnSelection()

Dim rngOut    As Range
Dim rngSelection As Range
Dim rngCol As Range

Set rngSelection = Selection
Set rngOut = Application.InputBox("Select destination", Type:=8).Resize(rngSelection.Rows.Count, 1)
If rngOut Is Nothing Then Exit Sub

For Each rngCol In rngSelection.Columns
  rngCol.Copy Destination:=rngOut
  Set rngOut = rngOut.Offset(rngSelection.Rows.Count)
Next rngCol

End Sub

---

这个100+K矩阵有多少列？电子表格的格式是什么？Outlook 2007 xlsx/xlsm还是Outlook 97-2003 xls？