如何批量实现Excel单元格撇号确认？替代手动回车操作

问题描述 #

我用脚本修改了一份XLSX文件，原文件里的短横线会被Excel识别成公式，所以我在对应单元格前加了撇号，强制Excel把它识别成字符串。但修改后单元格显示成这样：

'-<invisibleCRLF>foo

手动点击单元格按回车后，显示就正常了：

-
foo

现在涉及大量单元格，手动操作不现实，怎么批量实现这个“点击回车”的效果？

解决方案 #

方法1：VBA宏批量触发单元格刷新 #

这是Excel内置的高效解决方法：

1. 打开目标文件，按Alt+F11打开VBA编辑器
2. 右键左侧工程窗口的当前工作簿 → 插入 → 模块
3. 粘贴以下代码，按需修改工作表名和单元格范围：

Sub RefreshCells()
    Dim rng As Range
    Dim cell As Range
    ' 替换成你需要处理的工作表和单元格区域
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:Z1000")
    For Each cell In rng
        If Not IsEmpty(cell.Value) Then
            ' 重新赋值触发Excel解析，模拟编辑回车的效果
            cell.Value = cell.Value
        End If
    Next cell
End Sub

4. 按F5运行宏，或回到Excel按Alt+F8选择RefreshCells执行

方法2：Power Query批量转换 #

不想用VBA的话，用Power Query也能搞定：

1. 选中目标单元格区域，点击「数据」→「从表格/区域」（按提示创建表格）
2. 在Power Query编辑器中，选中需要处理的列，点击「转换」→「格式」→「修剪」，或者直接添加自定义列，公式写= [你的列名]
3. 删除原列，将自定义列重命名为原列名，点击「关闭并上载」替换原数据，Excel会自动解析换行

方法3：从脚本根源修正 #

既然是脚本生成的问题，直接在修改XLSX的脚本里处理更彻底：
以Python的openpyxl为例，直接设置单元格为字符串类型并正确写入换行：

from openpyxl import load_workbook

wb = load_workbook("your_file.xlsx")
ws = wb["Sheet1"]

# 处理A列所有单元格，可自行修改范围
for row in ws.iter_rows(min_row=1, max_row=ws.max_row, min_col=1, max_col=1):
    cell = row[0]
    if cell.value and cell.value.startswith("-"):
        cell.data_type = 's'  # 强制设为字符串类型
        # 若原内容有隐藏换行，直接保留（这里假设原换行是\n，按需调整）
        cell.value = cell.value

wb.save("fixed_file.xlsx")

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