数据清洗 Excel 全角 半角数据转换

Excel中全角与半角数据的相互转换
在Excel环境中实现全角字符和半角字符间的转换，可以通过自定义函数来完成这一过程。由于内置函数并不直接支持这种特定类型的转换操作，因此编写VBA宏程序成为一种有效的解决方案。
使用VBA宏进行全角转半角
通过创建一个简单的VBA脚本，能够遍历选定区域内的每一个字符并将其由全角形式转变为对应的半角表示：
Function ZenkakuToHankaku(cell As Range) As String
Dim result As String
For i = 1 To Len(cell.Value)
charCode = AscW(Mid(cell.Value, i, 1))

' 判断是否为全角英文字母或数字，并做相应转换
If (charCode >= &amp;HFF10 And charCode <= &amp;HFF19) OrElse _
(charCode >= &amp;HFF21 And charCode <= &amp;HFF3A) OrElse _
(charCode >= &amp;HFF41 And charCode <= &amp;HFF5A) Then

Zenka kuToHankaku = ZenkakuToHankaku &amp; Chr(charCode - &amp;HFEE0)

Else
ZenkakuToHankaku = ZenkakuToHankaku &amp; Mid(cell.Value, i, 1)
End If

Next i

End Function
登录后复制
此代码片段实现了从全角到半角的转变逻辑[^1]。对于每个输入单元格的内容，该功能会逐字检查其编码范围；如果检测到属于全角ASCII码区间，则减去偏移量&HFEE0得到相应的半角版本。
半角转全角的方法同样适用上述思路反向应用即可达成目的。需要注意的是，在实际部署前应当测试宏的安全性和兼容性问题。
为了确保数据的一致性和准确性，在执行此类转换之前建议先备份原始文件以防意外情况发生。此外，还可以利用辅助列配合公式来进行批量处理而不必依赖编程手段，但这通常适用于较为简单的情形下[^2]。