excel表格怎么批量添加字母单位 Excel怎样在中文名字前加字母?
打开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,选中这个单元格并复制,选中要转换单位的数据区,打开选择性粘贴框,选择运算框下的除法,点击确定,完成后再添加单位。
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。