Excel自动去除单元格输入值中的点（Period）解决方案求助

方法1：使用Worksheet_Change事件（实时自动处理） #

这是最直接的实时处理方案，输入内容后立刻自动转换格式：

1. 打开Excel，按下Alt+F11进入VBA编辑器；
2. 在左侧「工程资源管理器」中找到目标工作表（比如Sheet1），双击打开其代码窗口；
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    If Target.Cells.Count > 1 Then Exit Sub
    
    Application.EnableEvents = False
    On Error Resume Next
    
    For Each cell In Target
        If UCase(Left(cell.Value, 1)) = "R" And InStr(cell.Value, ".") > 0 Then
            cell.Value = "R" & Replace(Mid(cell.Value, 2), ".", "")
        End If
    Next cell
    
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

4. 回到Excel界面，输入r11.200或R5.678这类内容，单元格会自动转为R11200、R5678格式。

代码说明：

• 仅处理单个单元格输入，避免批量修改触发无效操作；
• 先判断内容是否以R/r开头且包含小数点，再移除小数点并统一为大写R开头；
• 关闭事件触发防止循环执行，最后恢复事件状态。

方法2：辅助列公式（无需VBA） #

如果不想启用宏，可以用公式实现转换，适合处理已有数据或手动同步结果：

假设原始输入在A列，在B2单元格输入以下公式，然后下拉填充至需要处理的行：

=IF(ISNUMBER(SEARCH(".",A2)),"R"&SUBSTITUTE(MID(A2,2,LEN(A2)-1),".",""),A2)

• 逻辑：先检查A列单元格是否包含小数点，若是则提取R后面的内容、移除小数点，再重新拼接大写R；若没有小数点则直接返回原内容。
• 若需要将结果覆盖原列：选中B列结果区域，按Ctrl+C复制，右键点击A列，选择「选择性粘贴」→「值」即可。

方法3：批量处理已有数据（查找替换） #

如果已经输入了大量带点的内容，可以用以下步骤批量转换：

1. 选中需要处理的单元格区域；
2. 按Ctrl+H打开「查找和替换」对话框；
3. 先统一开头格式：「查找内容」输入 r，「替换为」输入 R，点击「全部替换」；
4. 再移除小数点：「查找内容」输入 .，「替换为」留空，点击「全部替换」。

注意：此方法会移除选中区域内所有小数点，若存在其他需要保留小数点的内容，需先通过筛选功能选出以R/r开头的单元格再执行替换。

为什么自动更正无效？ #

Excel自动更正仅支持固定文本的一对一替换（比如预设把teh改成the），无法匹配R后跟随任意数字+小数点+任意数字的动态场景，因此无法满足需求。

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