VBA遍历所有工作表将B列文本转数字时出现循环报错

现有可实现单工作表B列文本格式转数字格式的VBA代码如下，直接添加For循环适配全工作表时运行报错：

Sub convert ()
    [B:B].Select
    With Selection
        .NumberFormat = "General"
        .Value = .Value
    End With
End Sub

报错核心原因：原代码依赖Select选中+Selection操作对象，跨工作表执行时如果未激活对应工作表，直接调用Select方法会触发运行时错误，且选中操作本身运行效率极低。

修正后可直接运行的批量代码 #

Sub ConvertAllSheetsBColumnToNumber()
    Dim ws As Worksheet
    ' 遍历当前工作簿内所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 直接操作对应工作表的B列，无需选中/激活工作表
        With ws.Columns("B:B")
            .NumberFormat = "General"
            .Value = .Value
        End With
NextSheet:
    Next ws
    Set ws = Nothing
    MsgBox "所有工作表B列格式转换完成", vbInformation
End Sub

使用说明 #

• 代码完全保留原单表转换逻辑，转换效果和单表运行结果完全一致
• 移除了所有选中类操作，直接通过工作表对象定位B列，跨表运行无报错，运行速度远高于带Select的写法
• 默认遍历工作簿内所有可见、隐藏工作表，无需提前手动选中工作表
• 若需要排除特定工作表，可在With语句前增加判断逻辑，例如排除名为"汇总"的工作表，可添加如下判断：

  If ws.Name = "汇总" Then GoTo NextSheet
  

转换效果参考 #

内容的提问来源于stack exchange，提问作者Hossam A.