如何把A列的全角数字英文字母希腊字母变成半角的

xsz521

如题；如何把A列的全角数字英文字母希腊字母变成半角的
只处理全角数字，英文字母，希腊字母，全角的符号如／％＄＃等，别的全角的都不变，比如汉字日文韩文繁体等。
没有附件，就是把别的地方的内容拷贝到A列转换下。
感谢！！！

吴中泉

tanglf188

比了全角和半角字符的编码：半角编码大23680，全部转换直接用函数，部分转换只能按编码判断，供参考。

xsz521

吴中泉 发表于 2023-5-26 11:08

感谢，不过这个函数会把所有的双字节都变成单字节，这是不能接受的，只是单纯的把双字节的数字，字母，以及希腊字母 变成单字节，其他的本来是双字节的还要是双字节，单字节的还是单字节。

xsz521

tanglf188 发表于 2023-5-26 15:17
比了全角和半角字符的编码：半角编码大23680，全部转换直接用函数，部分转换只能按编码判断，供参考。

感谢 ，有没有希腊字母的转换？

tanglf188

xsz521 发表于 2023-5-29 09:01
感谢 ，有没有希腊字母的转换？

我这边只能查到大小写的希腊字母，编码相差32，也就是可以大小写转换，如果你那边有半角的大小写希腊字母提供以下加进代码就可以了
小写：αβγδεζηθικλμνξοπρστυφχψω（编码：-22847 To -22824）
大写：ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ（编码：-22879 To -22856）

xsz521

tanglf188 发表于 2023-5-29 10:08
我这边只能查到大小写的希腊字母，编码相差32，也就是可以大小写转换，如果你那边有半角的大小写希腊字母 ...

好的十分感谢

xsz521

xsz521 发表于 2023-6-3 07:16
好的十分感谢

我这里也没有半角的

ggmmlol

xsz521 发表于 2023-6-3 07:17
我这里也没有半角的

VBA有内置的半角全角转换函数

以下代码可以用它来做自定义的工作表函数：

1. <blockquote>Function N2W(ByVal s$) As String '转为全角

复制代码

OKJSJSF

编码解码又是一门学问，象风吹过万里，不问归期。