求VBA自定义函数：按指定长度与逗号计算单元格拆分数量

以下是满足需求的VBA自定义函数代码，用于计算目标单元格内容按指定规则拆分后的单元格数量：

Function SplitNumber(targetCell As Range, maxSplitLen As Integer) As Integer
    Dim originalText As String
    Dim remainingText As String
    Dim splitCount As Integer
    Dim splitPos As Integer
    
    ' 获取目标单元格文本，处理空值情况
    originalText = Trim(targetCell.Value)
    If originalText = "" Then
        SplitNumber = 0
        Exit Function
    End If
    
    remainingText = originalText
    splitCount = 0
    
    Do While Len(remainingText) > maxSplitLen
        splitCount = splitCount + 1
        ' 检查最大长度+1位是否为逗号
        If Len(remainingText) >= maxSplitLen + 1 And Mid(remainingText, maxSplitLen + 1, 1) = "," Then
            splitPos = maxSplitLen
        Else
            ' 在最大长度范围内查找最后一个逗号
            splitPos = InStrRev(Left(remainingText, maxSplitLen), ",")
            ' 如果范围内没有逗号，直接按最大长度拆分
            If splitPos = 0 Then splitPos = maxSplitLen
        End If
        ' 更新剩余文本，去掉已拆分部分及后续逗号
        remainingText = Trim(Mid(remainingText, splitPos + 1))
    Loop
    
    ' 剩余内容算最后一份
    If Len(remainingText) > 0 Then splitCount = splitCount + 1
    
    SplitNumber = splitCount
End Function

代码逻辑说明 #

• 参数定义：targetCell为待拆分的目标单元格，maxSplitLen为单份内容的最大长度（如示例中的76）
• 空值处理：若目标单元格为空，直接返回0
• 循环拆分计数：
  1. 当剩余文本长度超过最大拆分长度时，进入循环累加拆分次数
  2. 规则1落地：检查剩余文本的第maxSplitLen+1位是否为逗号，若是则拆分位置设为maxSplitLen
  3. 规则2落地：若不符合规则1，在剩余文本的前maxSplitLen位中反向查找最后一个逗号作为拆分位置；若范围内无逗号，则直接按最大长度拆分
  4. 更新剩余文本为拆分后的剩余部分，同时去除前后空格
• 收尾计数：循环结束后，剩余的非空文本计入最后一份，返回总拆分份数

使用示例 #

在Excel单元格中输入=SplitNumber(A33,76)，若A33内容按76长度拆分需3份则返回3；若内容调整后需4份则返回4。

内容的提问来源于stack exchange，提问作者mbart67