原代码的两个核心问题 #

1. 单引号删除逻辑错误：你判断的是单元格内容结尾的单引号，但执行Right(cell.value, Len(cell.value)-1)是去掉第一个字符，导致结尾的单引号残留，看起来没删掉。
2. 未处理单元格格式：长数字超过15位时，Excel默认会转成科学计数法，必须先设置文本格式再赋值。

修正后的代码 #

Private Sub selectRange_Click()
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim rGn As Range
    Dim cell As Range
    Dim cellValue As String
    
    Set ws = ThisWorkbook.Sheets("PruebaRossi")
    LastRow = ws.Range("E" & ws.Rows.Count).End(xlUp).Row
    Set rGn = ws.Range("E5:E" & LastRow)
    
    ' 先把目标区域设为文本格式，彻底避免科学计数法
    rGn.NumberFormat = "@"
    
    For Each cell In rGn
        If Len(cell.Value) > 0 Then
            cellValue = Trim(cell.Value) ' 清理首尾空格，避免干扰判断
            
            ' 处理首尾都带单引号的情况（如你的示例）
            If Left(cellValue, 1) = "'" And Right(cellValue, 1) = "'" Then
                cell.Value = Mid(cellValue, 2, Len(cellValue) - 2)
            ' 处理仅开头带单引号的情况
            ElseIf Left(cellValue, 1) = "'" Then
                cell.Value = Mid(cellValue, 2)
            End If
        End If
    Next cell
End Sub

关键改进说明 #

• 强制文本格式：先通过rGn.NumberFormat = "@"把整列设为文本，不管数字多长都会原样显示，不会触发科学计数法。
• 修正单引号处理逻辑：针对你提供的首尾带单引号的示例，提取中间的纯数字内容；同时兼容仅开头带单引号的场景。
• 去掉冗余操作：删除了不必要的Activate和Select，VBA直接操作单元格效率更高，也更稳定。

内容的提问来源于stack exchange，提问作者sendog3c