主题：复制代码到代码编辑器中公式始终会掉不完整

If e.DataCol.Name = "等级" Then
If e.DataRow("等级") = "A" Then '如果原来的等级是A
If e.NewValue = "D" Then '且新的等级为D
e.Cancel = True '则取消更改
End If
End If
End If

粘贴到代码编辑器中少了内容：

If e.DataCol.Name = "等级" Then 

    If e.DataRow("等级") = "A" Then '如果原来的等级是A

        If e.NewValue = "D" Then '且新的等级为D

            e.Cancel = True '则

请问是什么原因，急需解决，谢谢大家！