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

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