打开excel-工具-宏-通过基本编辑器。
在弹出窗口中，右键单击vbaproject-insert-module。
一个名为模块1的模块将出现在下面，单击。
将以下内容粘贴到右侧的空白列中，以创建自定义函数:
函数getpychar(char)
tmp65536asc(字符)
如果(tmp45217和tmp45252)则
getpychara
elseif(tmp45253和tmp45760)
getpycharb
elseif(tmp45761和tmp46317)然后
getpycharc
elseif(tmp46318和tmp46825)然后
getpychard
elseif(tmp46826和tmp47009)然后
getpychare
elseif(tmp47010和tmp47296)然后
getpycharf
elseif(tmp47297和tmp47613)然后
getpycharg
elseif(tmp47614和tmp48118)然后
getpycharh
elseif(tmp48119和tmp49061)然后
getpycharj
elseif(tmp49062和tmp49323)
getpychark
elseif(tmp49324和tmp49895)
getpycharl
elseif(tmp49896和tmp50370)
getpycharm
elseif(tmp50371和tmp50613)然后
获得，获得
elseif(tmp50614和tmp50621)然后
getpycharo
elseif(tmp50622和tmp50905)
getpycharp
elseif(tmp50906和tmp51386)然后
getpycharq
elseif(tmp51387和tmp51445)然后
getpycharr
elseif(tmp51446和tmp52217)然后
getpychars
elseif(tmp52218和tmp52697)然后
getpychart
elseif(tmp52698和tmp52979)
getpycharw
elseif(tmp52980和tmp53640)然后
getpycharx
elseif(tmp53689和tmp54480)然后
getpychary
elseif(tmp54481和tmp62289)然后
getpycharz
如果else不是中文，则不会被处理。
getpycharchar
如果…就会结束
结束功能
返回工作表，在a1中输入。
getpychar(
我我使用这个表格已经有一段时间了，我看到这个问题后，我收集了一些信息。我我还在谈论一个愚蠢的方法:
1.使用查找和替换功能查找所有以毫米为单位的值，并添加背景色，这也为每个单位的数据添加了不同的背景色。
2.根据背景颜色的不同排序，可以将数据按照单位的不同分类进行分组，删除以毫米为单位的字母。
3.在一个空单元格中输入1000，选中这个单元格并复制，选中要转换单位的数据区，打开选择性粘贴框，选择运算框下的除法，点击确定，完成后再添加单位。
