vba - 获取单元格可以包含的最大字符数

Question

Excel specifications and limits说:

Total number of characters that a cell can contain: 32,767 characters

有没有办法以编程方式获取这个数字？

我问这个问题是因为，如果可行的话，一般来说应该避免硬编码常量。这个数字可能会因 Office 版本而变化(在 2003 和 2013 之间没有变化，但谁知道 Microsoft 为我们准备了什么)。

获取工作表中的最大行数非常容易:

Sheet1.Rows.Count ' returns 65,536 in Office 2003 and 1,048,576 in Office 2007-2013

但显然，获取单元格可以包含的最大字符数并不那么简单。

请注意，向单元格写入太多字符不会导致错误；它会默默地失败并截断字符串——所以这里不能选择正确的错误处理。

Answer 1

在循环中，将字符一一附加到单元格内容中。每次读取单元格内容，检查最后添加的字符是否存在。如果不是，那就是极限了。

优点:有效且 100% 可靠。

缺点:速度非常慢。由于对工作表进行多次读写，需要 10-15 秒才能完成。

显然，这可以通过使用一个好的猜测(例如 32,767)作为初始条件并使用狩猎和平分搜索算法而不是递增 1 来优化。但是，如果答案与初始猜测相差足够远，这可能仍然需要大约 1 秒的时间来运行——而不是您想要重复调用的东西。

Function MaximumNumberOfCharactersACellCanContain(r As Range)
    'NB: Range r will be overwritten.
    Dim sIn As String
    Dim sOut As String
    Dim i As Long
    Application.ScreenUpdating = False
    Do
        i = i + 1
        sIn = sIn & Chr(97 + (i - 1) Mod 26)
        r.Cells(1, 1).Value = sIn
        sOut = r.Cells(1, 1).Value
        If Right(sOut, 1) <> Right(sIn, 1) Then Exit Do
        'If Len(sOut) <> Len(sIn) Then Exit Do
    Loop
    Application.ScreenUpdating = True
    MaximumNumberOfCharactersACellCanContain = i - 1
End Function

使用示例:

MsgBox MaximumNumberOfCharactersACellCanContain(Range("A1"))