如何在Excel中去除数字开头的单引号？

MS Excel 微软技术高级Excel函数

如果您曾经在Excel电子表格中遇到过以不需要的单引号开头的数字数据，那么您来对地方了。这些单引号有时可能是数据导入或来自外部来源的结果，它们可能会干扰计算或数据格式。

本循序渐进的教程将向您展示如何有效且正确地从数据中消除开头的单引号，确保数据准确并准备好进行进一步分析。本文不假设您有任何Excel的预备知识，因此初学者和高级用户都会发现它易于理解。让我们现在开始，摆脱那些恼人的单引号吧！

去除数字开头的单引号

在这里，我们将首先创建一个VBA模块，然后选择单元格范围来完成任务。让我们来看一个简单的过程，学习如何在Excel中去除数字开头的单引号。

步骤1

考虑一个Excel工作表，其中包含类似于下图所示带有单引号的单元格。

首先，右键单击工作表名称，然后选择“查看代码”以打开VBA应用程序。

右键单击 > 查看代码。

步骤2

然后单击“插入”，选择“模块”，然后将下面的代码复制到文本框中。

插入 > 模块 > 复制。

代码

Sub remove_Apostrophe()
Dim rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Remove Leading Apostrophe"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
   If Not rng.HasFormula Then
      rng.Formula = rng.Value
   End If
Next
End Sub