问题在于我不要最后的标点符号，但句子当中的标点符号是要的，所以不能用替换哦。而且篇幅很多，在不同的工作表中。所以做好用VBA程序做。
工具：excel表格、电脑
1、电脑打开excel表格，然后打开要替换的数据。
2、打开表格后，按替换快捷键Ctrl+H，然后在查找内容中输入“。”，替换为中什么都不要输，然后点击全部替换。
3、点击全部替换后，会提示已经完成搜索并进行了多少处替换，点击确定。
4、完成替换后，数据后面的符号就没有了。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-03-23
按ctrl+h在弹出的对话框像如图一样输入,点全部替换就可以了.
第2个回答 2011-03-23
如果每个单元格末尾都有一个标点，可以用分列，一次性删掉。但是如果有的没有，有的有，或者有的是一个，有的是多个，那分列命令就不行了
第3个回答 推荐于2016-06-24
alt+f11进入vba输入如下代码
Sub 删除末尾符号()
Dim rng As Range
Dim S$
For Each rng In UsedRange
S = Right(rng.Value, 1)
If S Like "[.;,;;。;，;？;?]" Then '[]中的符号可以手动加入，以英文分号隔开
rng.Value = Mid(rng.Value, 1, Len(rng.Value) - 1)
End If
Next
End Sub追问
Sub 删除末尾符号()
Dim rng As Range
Dim S$
For Each rng In UsedRange
S = Right(rng.Value, 1)
If S Like "[.;,;;。;，;？;?]" Then '[]中的符号可以手动加入，以英文分号隔开
rng.Value = Mid(rng.Value, 1, Len(rng.Value) - 1)
End If
Next
End Sub追问
非常感谢，如果要删除整个工作薄里单元格内的末尾符号怎么改程序？
追答试试这个，增加一个循环
Sub 删除末尾符号()
Dim rng As Range
Dim S$
dim sh as worksheet
for each sh in worksheets
For Each rng In sh.UsedRange
S = Right(rng.Value, 1)
If S Like "[.;,;;。;，;？;?]" Then '[]中的符号可以手动加入，以英文分号隔开
rng.Value = Mid(rng.Value, 1, Len(rng.Value) - 1)
End If
Next
next
End Sub
第4个回答 2011-03-23
如果只是要去掉最后一个标点，你可以这样
=LEFT(A1,LEN(A1)-1)追问
=LEFT(A1,LEN(A1)-1)追问
简单的一个表格且是在同一列中可以方便处理，但我想用命令处理，用VBA编辑宏命令
