VBA遍历混合类型列表时如何跳过错误变量类型不中断循环

VBA/VB6 场景（Variant 原生支持场景） #

• 首选内置IsNumeric()函数做判断，可直接过滤掉无法转为数字的字符串，示例代码如下：

Dim item As Variant
For Each item In 目标列表
    ' 仅处理可转为数值的内容
    If IsNumeric(item) Then
        Dim val As Double
        val = CDbl(item)
        ' 这里写你对数值的处理逻辑
    End If
    ' 不符合条件的内容自动跳过，进入下一轮循环
Next

• 如果你需要严格区分「原生数字类型」和「内容为数字的字符串」，可以用VarType()函数做类型判断：
  • 数字类型的VarType返回值：vbDouble(5)、vbInteger(2)、vbLong(3)、vbDecimal(14)
  • 字符串类型的VarType返回值固定为vbString(8)
    对应判断条件写为If VarType(item) <> vbString Then即可。

C# 场景（用 object/dynamic 实现类似Variant效果） #

• 用模式匹配或者类型判断即可实现过滤：

foreach (var item in 目标列表)
{
    // 方法1：直接匹配double类型
    if (item is double val)
    {
        // 直接使用val处理
    }

    // 方法2：兼容int等其他数字类型转double，同时过滤字符串
    if (double.TryParse(item?.ToString(), out double res))
    {
        // 直接使用res处理
    }
}

Python 场景 #

• 用isinstance()做类型判断即可：

for item in 目标列表:
    if isinstance(item, (int, float)):
        val = float(item)
        # 后续处理逻辑

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