vba删除0开头的数据

就像这种的固定电话掺杂在一列中，我想删掉这些零开头格式的数据，其他行数据不变

可以用 正则表达式 匹配电话 1[\d-]{10}