复制超出excel 2013限制的列

时间:2015-06-10 00:19:22

标签: excel

Excel 2013中显示的列的最大数量是16384.是否可以最大化此限制?

我有一个22000列的.csv数据集,当用Excel 2013打开时,它只显示到列号16384.

例如,我想要复制第18000列,但我不能因为它没有显示在第一位!

有关替代方案的任何建议吗?

1 个答案:

答案 0 :(得分:1)

我同意 teylyn。

查看数据的最佳方法是将每个已解析的记录存储在中,而不是< EM>行。

如果我们从以下数据开始:

some data
a,b,v,g,t,r,12,ew,fsf,bcb,hrth,45
1,2,3,4,5,6,7,a,s,d,f,g,h,765
more data
qwerty,poiuyt,asdf,zxcv,99

并运行这个短宏:

Sub teylyn()

    Dim TextLine As String, a
    Dim iCol As Long, iRow As Long

    Close #1

    Open "c:\TestFolder\WhatEver.csv" For Input As #1

    iCol = 1
    Do While Not EOF(1)
        Line Input #1, TextLine
        If InStr(TextLine, ",") = 0 Then
            Cells(1, iCol) = TextLine
            iCol = iCol + 1
        Else
            ary = Split(TextLine, ",")
            iRow = 1
            For Each a In ary
                Cells(iRow, iCol) = a
                iRow = iRow + 1
            Next a
            iCol = iCol + 1
        End If
    Loop

    Close #1

End Sub

我们会得到:

enter image description here

这相当于以正常方式引入数据并将每一行转置为一列。