2016 - 2024

感恩一路有你

excel表格怎么批量添加字母单位 Excel怎样在中文名字前加字母?

浏览量:4118 时间:2023-05-06 20:34:42 作者:采采

打开Excel-工具-宏-通过基本编辑器。

在弹出窗口中,右键单击VBAproject-Insert-Module。

一个名为模块1的模块将出现在下面,单击。

将以下内容粘贴到右侧的空白列中,以创建自定义函数:

函数getpychar(char)

tmp 65536 Asc(字符)

如果(tmp 45217和tmp 45252)则

getpychar A

ElseIf (tmp 45253和tmp 45760)

getpychar B

ElseIf (tmp 45761和tmp 46317)然后

getpychar C

ElseIf (tmp 46318和tmp 46825)然后

getpychar D

ElseIf (tmp 46826和tmp 47009)然后

getpychar E

ElseIf (tmp 47010和tmp 47296)然后

getpychar F

ElseIf (tmp 47297和tmp 47613)然后

getpychar G

ElseIf (tmp 47614和tmp 48118)然后

getpychar H

ElseIf (tmp 48119和tmp 49061)然后

getpychar J

ElseIf (tmp 49062和tmp 49323)

getpychar K

ElseIf (tmp 49324和tmp 49895)

getpychar L

ElseIf (tmp 49896和tmp 50370)

getpychar M

ElseIf (tmp 50371和tmp 50613)然后

获得,获得

ElseIf (tmp 50614和tmp 50621)然后

getpychar O

ElseIf (tmp 50622和tmp 50905)

getpychar P

ElseIf (tmp 50906和tmp 51386)然后

getpychar Q

ElseIf (tmp 51387和tmp 51445)然后

getpychar R

ElseIf (tmp 51446和tmp 52217)然后

getpychar S

ElseIf (tmp 52218和tmp 52697)然后

getpychar T

ElseIf (tmp 52698和tmp 52979)

getpychar W

ElseIf (tmp 52980和tmp 53640)然后

getpychar X

ElseIf (tmp 53689和tmp 54480)然后

getpychar Y

ElseIf (tmp 54481和tmp 62289)然后

getpychar Z

如果Else不是中文,则不会被处理。

getpychar char

如果…就会结束

结束功能

返回工作表,在A1中输入。

getpychar(

我 我使用这个表格已经有一段时间了,我 看到这个问题后,我收集了一些信息。我 我还在谈论一个愚蠢的方法:

1.使用查找和替换功能查找所有以毫米为单位的值,并添加背景色,这也为每个单位的数据添加了不同的背景色。

2.根据背景颜色的不同排序,可以将数据按照单位的不同分类进行分组,删除以毫米为单位的字母。

3.在一个空单元格中输入1000,选中这个单元格并复制,选中要转换单位的数据区,打开选择性粘贴框,选择运算框下的除法,点击确定,完成后再添加单位。

单位 数据 功能 毫米 模块

版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。