VBA如何解决？
我的意思是单元格时候有类似WORD中的自动调整功能，即如果句号在下一行时候就会自动回归到上一行最后，看来是相当复杂的问题。
假设在A1单元格设置
选中A1单元格，按“数据－有效性”在出现的对话框中选“设置”选项卡，在其中的“允许”框中选“自定义”，在下面“公式”框中输入公式 =AND(LEFT(A1,1)<>"。",RIGHT(A1,1)<>"“")
确定即可。
如果A2单元格也需要这个设置，就选中A1格，用鼠标向下拖动复制就行了。
补充：
如果按你在“补充”中的要求，在EXCEL是无法实现的，因为EXCEL不是文字处理软件，它的长处是处理数据。所以，这位朋友，不要在EXCEL中寻找了。
选中A1单元格，按“数据－有效性”在出现的对话框中选“设置”选项卡，在其中的“允许”框中选“自定义”，在下面“公式”框中输入公式 =AND(LEFT(A1,1)<>"。",RIGHT(A1,1)<>"“")
确定即可。
如果A2单元格也需要这个设置，就选中A1格，用鼠标向下拖动复制就行了。
补充：
如果按你在“补充”中的要求，在EXCEL是无法实现的，因为EXCEL不是文字处理软件，它的长处是处理数据。所以，这位朋友，不要在EXCEL中寻找了。
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2016-12-02
在工作表标签上点鼠标右键，选“查看代码”，把下面代码粘贴进去就可以使用了。你在工作表中输入一些句子试试吧。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As String
t = Target.Value
If Left(t, 1) = "。" Or Left(t, 1) = "." Then
MsgBox "开头出现句号，下面会自动删除句号"
Target.Value = Right(t, Len(t) - 1)
End If
If Right(t, 1) = "“" Or Right(t, 1) = "”" Or Right(t, 1) = """" Then
MsgBox "结尾出现引号，下面会自动删除引号"
Target.Value = Left(t, Len(t) - 1)
End If
End Sub来自：求助得到的回答本回答被提问者采纳
Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As String
t = Target.Value
If Left(t, 1) = "。" Or Left(t, 1) = "." Then
MsgBox "开头出现句号，下面会自动删除句号"
Target.Value = Right(t, Len(t) - 1)
End If
If Right(t, 1) = "“" Or Right(t, 1) = "”" Or Right(t, 1) = """" Then
MsgBox "结尾出现引号，下面会自动删除引号"
Target.Value = Left(t, Len(t) - 1)
End If
End Sub来自：求助得到的回答本回答被提问者采纳
第1个回答 推荐于2016-12-02
没有什么办不到的，用VBA的话，代码如下。
如在A1单元格
If Left(Range("A1"), 1) = "。" Or Right(Range("A1"), 1) = "“" Then MsgBox "开头不能是句号，结尾不能是前引号"
如在A1单元格
If Left(Range("A1"), 1) = "。" Or Right(Range("A1"), 1) = "“" Then MsgBox "开头不能是句号，结尾不能是前引号"
