试试Excel 2010的工作表能够放多少行?

Excel 中工作表的行可以与数据库的记录相对应。因此，工作表中行数的多少与处理数据库记录的能力有关。

笔者使用 Excel 中带的 VBA 作为工具，编写如下程序：

Private Sub CommandButton1_Click()

   Dim n As Long

   Dim s1,s2,s3 as string

   Dim MyTime

   MyTime = Time

    

   Randomize

   For n = 1 To 1000000

    s1 = "A" & Trim(Str$(n))

    s2 = "B" & Trim(Str$(n))

    s3 = "C" & Trim(Str$(n))

   

    Worksheets("Sheet1").Range(s1).Value = n

    Worksheets("Sheet1").Range(s2).Value = 10000 * Rnd(1)

    Worksheets("Sheet1").Range(s3).Value = 10000 * Rnd(1)

        

   Next

   

    MyTime = Time

    MsgBox Format$(MyTime)

   

  End Sub

对于 Excel 2003 和 Excel 2007 ，当 n=65537 时出错。因为这两个版本的 Excel 工作表的最大行数是 65536 ，即 2¹⁶ 。

 

而对于 Excel 2010 则可以顺利通过。即其 Excel 工作表的最大行数至少可以达到 100 万行。（其上限是多少本人没有测试）

因此，从工作表所能处理行数角度考虑， Excel 2010 要比其以前版本强很多。

如果以上程序中的随机数不取整，而以浮点数形式操作，则速度要比整数操作慢很多。（使用 MsgBox Format$(MyTime) 可以计算操作时间。）

通过运行上述程序而生成的 Excel 文件的长度是 46.4MB 。

 

附：通过运行程序而生成的 Excel 工作表截图：

 

 

 

 ......