excel单元格字数显示代码

excel单元格字数显示代码：从基础到进阶的全面指南
在Excel中，单元格字数显示是一个常见但功能丰富的操作。它不仅能够帮助用户快速了解单元格内内容的长度，还能在数据处理、格式化和自动化中发挥重要作用。本文将从基础原理、实现方法、高级技巧以及实际应用场景等多方面，系统讲解如何在Excel中实现单元格字数显示。
一、单元格字数显示的原理与作用
Excel中单元格字数显示的核心功能是通过公式或函数来统计单元格内文本的字符数量。这个功能在数据处理和信息展示中非常有用，例如：
- 数据长度判断：用户可以通过字数显示快速判断某单元格内容是否超过限制，例如“姓名”字段是否需要限制在50个字符以内。
- 数据格式化：在某些情况下，用户希望以特定方式显示单元格内容，例如在“地址”列中，显示“省市区”三部分，但不显示具体数字。
- 数据验证：在数据验证中，单元格字数显示可以帮助用户确保输入内容符合格式要求。
字数显示实际上是通过COUNTA函数或LEN函数结合其他函数实现的。例如，使用LEN函数计算单元格内字符数，而COUNTA函数则用于统计非空单元格数。
二、基础实现方法：使用LEN函数
LEN函数是Excel中最常用的字符串函数之一，用于返回指定单元格内字符数。其基本语法为：

=LEN(A1)

其中，A1是需要统计的单元格。该函数会统计包括空格、标点符号和换行符在内的所有字符。
示例1：
在A1单元格中输入“Hello, World!”，使用公式 `=LEN(A1)`，结果为13，表示该单元格内有13个字符。
示例2：
在A1单元格中输入“这是测试内容”，使用公式 `=LEN(A1)`，结果为18，表示该单元格内有18个字符。
注意事项：
- 该函数不统计空格、换行、制表符等符号。
- 如果单元格内容为空，LEN函数返回0。
三、高级实现方法：结合其他函数
在实际应用中，用户可能需要根据不同的条件，对单元格字数进行动态计算。例如，根据单元格内容是否为空，显示不同的字数。
1. 使用IF函数结合LEN函数
使用IF函数可以实现根据单元格内容是否为空，显示不同字数。例如：

=IF(A1<>"", LEN(A1), "无内容")

该公式的意思是：如果A1单元格内容不为空，则显示其字数；否则显示“无内容”。
2. 使用SUM函数结合LEN函数
在某些情况下，用户需要统计多个单元格的总字数。例如，统计A1到A10单元格的总字数：

=SUM(LEN(A1:A10))

该公式会返回A1到A10单元格内所有字符数的总和。
3. 使用CONCATENATE函数结合LEN函数
CONCATENATE函数用于将多个单元格内容合并为一个字符串，可以与LEN函数结合使用。例如：

=LEN(CONCATENATE(A1, B1))

该公式返回A1和B1单元格内容合并后的字符数。
四、单元格字数显示的高级技巧
1. 使用公式动态显示字数
Excel中，用户可以通过公式动态显示单元格字数，而无需手动输入。例如：
- 使用 `=LEN(A1)` 显示A1单元格的字数。
- 使用 `=IF(A1<>"", LEN(A1), "无内容")` 显示A1单元格的字数或“无内容”。
2. 使用条件格式化显示字数
条件格式化可以用于在单元格中根据字数变化显示不同颜色，例如：
- 当单元格字数超过100时，显示为红色。
- 当单元格字数小于10时，显示为绿色。
3. 使用VBA实现自动字数显示
对于需要频繁自动化处理的用户，可以使用VBA编写宏来自动计算并显示单元格字数。例如：
vba
Sub ShowCellLength()
Dim cell As Range
For Each cell In Range("A1:A10")
If cell.Value <> "" Then
cell.Value = "字数：" & Len(cell.Value)
Else
cell.Value = "无内容"
End If
Next cell
End Sub

该宏会在A1到A10单元格中，根据内容是否为空，显示相应的字数。
五、单元格字数显示在实际应用中的场景
1. 数据录入验证
在数据录入过程中，用户可以通过字数显示判断输入内容是否符合格式要求。例如，限制“手机号”字段不超过11位。
2. 数据分析与汇总
在数据分析中，用户可以通过字数显示快速统计数据长度，例如统计“姓名”字段的字数，以辅助数据分类。
3. 数据可视化
在数据可视化中，字数显示可以用于展示数据长度，例如在图表中显示单元格内容的字数。
4. 自动化处理
在自动化处理中，字数显示可以用于判断数据是否满足条件，例如在数据清洗过程中，判断单元格内容是否包含特定字符。
六、单元格字数显示的优化与注意事项
1. 字数统计的准确性
LEN函数统计的是字符数，包括空格、标点和换行符。如果用户需要统计的是有效字符数（如仅统计字母和数字），则需要使用其他函数，例如：

=LEN(A1) - LEN(SUBSTITUTE(A1, " ", "")) - LEN(SUBSTITUTE(A1, ".", "")) - LEN(SUBSTITUTE(A1, ",", "")) - LEN(SUBSTITUTE(A1, "-", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "(", "")) - LEN(SUBSTITUTE(A1, ")", "")) - LEN(SUBSTITUTE(A1, "", "")) - LEN(SUBSTITUTE(A1, "", "")) - LEN(SUBSTITUTE(A1, "[", "")) - LEN(SUBSTITUTE(A1, "]", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(SUBSTITUTE(A1, "!", "")) - LEN(SUBSTITUTE(A1, "?", "")) - LEN(SUBSTITUTE(A1, ":", "")) - LEN(SUBSTITUTE(A1, ";", "")) - LEN(SUBSTITUTE(A1, ">", "")) - LEN(SUBSTITUTE(A1, "<", "")) - LEN(SUBSTITUTE(A1, "=", "")) - LEN(S