在一個數與數列中，個別數字數量的算法。

Question

在一個數與數列中，個別數字數量的算法。

匿名

例如 12200 這個數

0：2個

1：1個

2：2個

12200~12205 的數列

0：7個

1：7個

2：13個

3：1個

4：1個

5：1個

因為都只有找到儲存格的算法，所以想瞭解有沒有能快速計算的方式。

鎖定的問題。此問題已從 Microsoft 支援服務社群移轉。您可以對其是否有幫助進行投票，但無法對問題新增註解或回覆，或進行追蹤。

0 則留言

由問題作者接受的回答

匿名

你號，Sine180

是這樣的，TEXTJOIN函數最多處理 32767個字符：

TEXTJOIN 函數 - Microsoft 支援服務

如果你要處理大量的數據，我建議你分段處理。比如6600個數據一處理。

當然，你也可以使用VBA，代碼如下：

Sub CountDigitsInRange()

    Dim j As Integer

    Dim digitCounts(0 To 9) As Long

    Dim numStr As String

    Dim ws As Worksheet

    ' 初始化計數器

    For j = 0 To 9

        digitCounts(j) = 0

    Next j

    ' 計算00001到99999範圍內每個數字出現的次數

    For i = 00001 To 99999

        numStr = Format(i, "00000") ' 將數字格式化為5位數字符串

        For j = 1 To Len(numStr)

            digitCounts(CInt(Mid(numStr, j, 1))) = digitCounts(CInt(Mid(numStr, j, 1))) + 1

        Next j

    Next i

    ' 將結果輸出到工作表

    Set ws = ThisWorkbook.Sheets.Add

    ws.Name = "Digit Counts"

    ws.Cells(1, 1).Value = "數字"

    ws.Cells(1, 2).Value = "次數"

    For j = 0 To 9

        ws.Cells(j + 2, 1).Value = j

        ws.Cells(j + 2, 2).Value = digitCounts(j)

    Next j

End Sub

Alt+F11出現VBA編輯框，然後插入-模塊，然後關閉，Alt+F8運行，會生產一個工作表然後輸出答案。

希望以上資訊能幫到您。如果您需要進一步幫助，請隨時發送消息。

最美好的祝願

Aiden.C - MSFT |Microsoft社群支援專家

0 則留言

3 個其他答案

Answer 1

匿名

感謝您的回覆。

我剛才測試時發現00001~06554開始會出現#VALUE！錯誤，只能計算6553個儲存格。

這樣會超過上限字元，32767/5=6553.4。

我想計算的最大範圍是00001~99999。

0 則留言

Answer 2

你號，Sine180

歡迎來到微軟社區。

可以用公式，比如你的A1：A6是12200到12205，你可以在B1輸入公式：

=TEXTJOIN("", TRUE, A1:A6)

把他們串在一起，然後你可以在C1輸入公式：

=LEN(B1)-LEN(SUBSTITUTE(B1,"0",""))

來計算0的個數，然後想算1，將0改成1即可，之後以此類推。

希望以上資訊能幫到您。如果您需要進一步幫助，請隨時發送消息。

最美好的祝願

Aiden.C - MSFT |Microsoft社群支援專家

Answer 3

已刪除

由於違反我們的規範，因此已刪除此答案。在採取動作之前，會透過自動化偵測手動報告或識別答案。如需詳細資訊，請參閱我們的管理辦法。

已關閉註解。深入了解