Excel锁定列保持文本格式，解决粘贴时格式变更问题

方法1：数据验证+工作表保护强制文本输入 #

• 选中D列，点击「数据」选项卡 → 「数据验证」
• 在「允许」下拉选「自定义」，输入公式 =ISTEXT(D1)
• 切换到「出错警告」标签，设置提示语（比如“请输入文本格式内容”）
• 全选所有单元格，右键「设置单元格格式」→ 「保护」，取消勾选「锁定」；再单独选中D列，勾选「锁定」
• 最后点击「审阅」选项卡 → 「保护工作表」，设置密码（可选），这样非文本内容无法粘贴到D列，格式也不会被改动

方法2：VBA自动强制文本格式 #

• 右键工作表标签（比如Sheet1），选择「查看代码」
• 在弹出的VBA编辑器里粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    '只对D列生效
    If Not Intersect(Target, Me.Columns("D")) Is Nothing Then
        Application.EnableEvents = False
        Target.NumberFormat = "@" '强制设为文本格式
        Application.EnableEvents = True
    End If
End Sub

• 保存文件为.xlsm格式（启用宏的工作簿），之后无论从哪里粘贴内容到D列，都会自动转为文本格式，再配合工作表保护就能彻底锁定格式

方法3：粘贴时手动选择文本格式 #

• 粘贴内容时，不要直接用Ctrl+V，右键目标单元格 → 「选择性粘贴」→ 选择「文本」；或者用快捷键Ctrl+Alt+V调出窗口后选文本，这样粘贴的内容会自动匹配D列的文本格式

说明：常规的工作表保护只能防止手动修改格式，但带格式的粘贴操作会绕过这个限制，所以必须配合上面的方法来强制维持文本格式。

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