求助大神：在一张excel工作表中批量全角转半角的vba程序

希望群内技艺超群的大师兄帮忙编写一个VBA程序：在一张excel工作表中批量全角转半角！
我在论坛找了2个，但是都不中意。
第一个：
Sub cha()
'在选择单元格中循环
For Each Rng In Selection
'将每个单元格中的内容转为半角
Rng.Value = StrConv(Rng.Value, vbNarrow)
Next Rng
End Sub
这个只能每次完成一个单元格。
第二个：
Sub 全角转半角()
Dim rg As Range, rng As Range
Set rng = Application.InputBox(prompt:="请用鼠标选择需转换的数据区域", Type:=8)
For Each rg In rng
rg = StrConv(rg, vbNarrow)
Next rg
End Sub
这个每次需要选定区域。
我的要求是一次性搞定一张工作表内的所有字符，将里面全部的全角转换为半角，无论是逗号，句号，分号，冒号，加号，减号等等，谢谢大神啦！在线立等！！！不胜感激！！！