獲取一個單元格可以包含

Question

Excel specifications and limits說最大字符數：

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

有沒有一種方法以編程方式得到這個數字？

我在問，因爲一般情況下，如果可行的話硬編碼常量應該避免。這個數字可能會被Office版本改變（它在2003和2013之間沒有變化，但誰知道微軟爲我們存儲了什麼）。

這是很容易獲得工作表的最大行數：

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

但顯然，讓一個單元格可以包含的字符的最大數量就沒有那麼簡單。

請注意，將太多字符寫入單元格不會導致錯誤;它會靜靜地失敗並截斷字符串 - 因此，適當的錯誤處理在這裏不是一個選項。

Answer 1

備選：循環附加塊，直到分配的長度不是什麼預期

Const INT_MAX As Integer = 32767 
Dim i As Long 

ActiveCell.Value = "" 

Dim buff As String: buff = Space$(INT_MAX) 

Do 
    i = i + 1 
    ActiveCell.Value = ActiveCell.Value & buff 
    If Len(ActiveCell.Value) <> (i * INT_MAX) Then 
     MaxLen = Len(ActiveCell.Value) 
     Exit Function 
    End If 
Loop 

甚至

ActiveCell.Value = Space$(A_BIG_NUMBER) 
MaxLen = Len(ActiveCell.Value) 

這裏的一個變種我們在哪裏取expone幾個步驟（更大和更大的步驟，其尺寸每次增加stepFactor）。

Function MaximumNumberOfCharactersACellCanContain(r As Range, _ 
    Optional ByVal stepFactor As Double = 2) 

    Dim n As Double 
    Dim nActual As Long 
    Dim l As Long 
    n = 1 
    Do 
     n = n * stepFactor 
     nActual = CLng(n) 
     r.Cells(1, 1).Value = Space$(nActual) 
     l = Len(r.Cells(1, 1).Value) 
     If l <> nActual Then 
      MaximumNumberOfCharactersACellCanContain = l 
      Exit Function 
     End If 
    Loop 
End Function 

實例：

Debug.Print MaximumNumberOfCharactersACellCanContain(Range("A1"), 8) 

的stepFactor選擇是之間的折衷：減少迭代（較大的因數是更好）的數量

• ，和
• 限制向下最後一次迭代的成本（失敗的成本）。如果stepFactor太大，那麼你寫了一個很長的字符串到這個單元格，這很慢。
• 確保最後一次迭代永遠不會超出內存限制（我的系統上約有1.3億個字符）。 （可能會添加錯誤處理來處理這種可能性。）

stepFactor介於2到8之間的值應該穩健且快速。

Answer 2

在循環中，將字符逐個追加到單元格內容。每次讀取單元格內容，檢查是否存在最後添加的字符。如果不是，那就是限制。

潛在風險：工程和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"))