将单元格中的单引号隐藏，但是并不删除，用于从txt中复制到excel中直接将数字内容改为文本显示，刷新内容

 将单元格中的单引号隐藏，但是并不删除，用于从txt中复制到excel中直接将数字内容改为文本显示，刷新内容

Sub HideLeadingSingleQuote()
'将单元格中的单引号隐藏，但是并不删除，用于从txt中复制到excel中直接将数字内容改为文本显示，刷新内容
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim rng As Range
    Set rng = ws.UsedRange ' 选择工作表中使用的范围
    
    Dim cell As Range
    For Each cell In rng
        If Left(cell.Value, 1) = "'" Then
            ' 使用 Format 函数显示去掉单引号的内容
            cell.Value = Format(Mid(cell.Value, 2), "0")
            
            ' 设置单元格格式为文本，以保留开头的单引号
            cell.NumberFormat = "@"
        End If
    Next cell
End Sub