VBA 统计单元格区域中特定数值的个数：0 或 10x

"使用 VBA 代码统计单元格区域 A18:A21 中包含 0 或以 10 开头的数字的个数。"\n"示例代码展示了如何遍历单元格区域并使用条件判断来计数符合条件的数值。"\n\nvba\nSub CountNumbers()\n Dim rng As Range\n Dim cell As Range\n Dim count As Integer\n \n ' 设置要判断的单元格区域\n Set rng = Range(\"A18:A21\")\n \n count = 0 ' 初始化计数器\n \n ' 遍历单元格区域中的每一个单元格\n For Each cell In rng\n ' 判断单元格的值是否为0或10x\n If cell.Value = 0 Or cell.Value Like \"10*\" Then\n count = count + 1 ' 符合条件则计数器加一\n End If\n Next cell\n \n ' 输出符合条件的数值的个数\n MsgBox \"存在\" & count & \"个编号为0或10x的数值\"\nEnd Sub\n\n\n"在以上示例代码中，首先通过 Set rng = Range(\"A18:A21\") 设置要判断的单元格区域为 A18:A21。然后使用一个计数器 count 来记录符合条件的数值的个数，初始化为 0。接下来使用 For Each cell In rng 遍历单元格区域中的每一个单元格，然后判断单元格的值是否为 0 或以 10 开头的数值，如果是，则计数器加一。最后使用 MsgBox 输出符合条件的数值的个数。"\n\n"你可以将以上代码复制到 VBA 编辑器中（按下 Alt+F11 打开 VBA 编辑器），然后在 Excel 文件中使用快捷键 Alt+F8 选择 CountNumbers 宏来运行代码。"\n