如何在 excel 中特定列的每个单元格中添加撇号而不丢失前导零
How to add apostrophe in each cell in particular column in excel without loosing leading zeros
我在 excel 中有一列包含员工的出生日期（格式为 DDMMYYYY），出于某种原因，我被要求在每条记录前添加撇号（以一种不可见的方式） .有很多记录。
当我尝试自动执行时，它总是会删除前导零。
例如从 01011900 我得到 1011900.
我试过查找和替换、连接，
这些答案没有任何帮助：
Adding Appostrophe in every field in particular column for excel
每个单元格的格式必须为文本，而不是日期。
有什么想法吗？
右键单击该列并设置单元格格式。选择自定义并键入 ddmmyyyy 或 mmyydddd。这应该可以解决问题。
尝试：
="'"&TEXT(A1,"00000000")
这将强制采用允许前导零的“00000000”格式。事实上，如果你使用 =TEXT() 那么你不需要撇号来强制文本值。
VBA 版本：
Sub MacroMan()
Dim rng As Excel.Range
Set rng = Application.InputBox("Select range to amend:", , , , , , , 8)
If Not rng Is Nothing Then
For Each cell In rng.Cells
cell.Value = "'" & Format(cell.Value, "00000000")
Next
End If
End Sub
解决方法是简单地更改年份的最后一位数字（假设所有数据都是同一年，例如 2018 替换为 201，使用查找和替换菜单。或者如果情况是多年，我们可以用 3 位数字替换年份的前 2 位数字，最后一位数字是特定数字，比如 0。因此年份 /1988 将在替换后变为 /19088。
第二阶段是将撇号添加到顶部单元格，然后简单地将其格式粘贴到其他单元格。
最后阶段是将错误的年份替换为其原始数据。
希望能有所帮助。
我在 excel 中有一列包含员工的出生日期（格式为 DDMMYYYY），出于某种原因，我被要求在每条记录前添加撇号（以一种不可见的方式） .有很多记录。 当我尝试自动执行时，它总是会删除前导零。 例如从 01011900 我得到 1011900.
我试过查找和替换、连接，
这些答案没有任何帮助： Adding Appostrophe in every field in particular column for excel
每个单元格的格式必须为文本，而不是日期。
有什么想法吗？
右键单击该列并设置单元格格式。选择自定义并键入 ddmmyyyy 或 mmyydddd。这应该可以解决问题。
尝试：
="'"&TEXT(A1,"00000000")
这将强制采用允许前导零的“00000000”格式。事实上，如果你使用 =TEXT() 那么你不需要撇号来强制文本值。
VBA 版本：
Sub MacroMan()
Dim rng As Excel.Range
Set rng = Application.InputBox("Select range to amend:", , , , , , , 8)
If Not rng Is Nothing Then
For Each cell In rng.Cells
cell.Value = "'" & Format(cell.Value, "00000000")
Next
End If
End Sub
解决方法是简单地更改年份的最后一位数字（假设所有数据都是同一年，例如 2018 替换为 201，使用查找和替换菜单。或者如果情况是多年，我们可以用 3 位数字替换年份的前 2 位数字，最后一位数字是特定数字，比如 0。因此年份 /1988 将在替换后变为 /19088。 第二阶段是将撇号添加到顶部单元格，然后简单地将其格式粘贴到其他单元格。 最后阶段是将错误的年份替换为其原始数据。 希望能有所帮助。