将单元格中的单引号隐藏，但是并不删除，用于从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