打開Excel-工具-宏-通過基本編輯器。在彈出窗口中，右鍵單擊VBAproject-Insert-Module。一個名為模塊1的模塊將出現(xiàn)在下面，單擊。將以下內(nèi)容粘貼到右側(cè)的空白列中，以創(chuàng)建自定義函

打開Excel-工具-宏-通過基本編輯器。

在彈出窗口中，右鍵單擊VBAproject-Insert-Module。

一個名為模塊1的模塊將出現(xiàn)在下面，單擊。

將以下內(nèi)容粘貼到右側(cè)的空白列中，以創(chuàng)建自定義函數(shù):

函數(shù)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

如果…就會結(jié)束

結(jié)束功能

返回工作表，在A1中輸入。

getpychar(

我 我使用這個表格已經(jīng)有一段時間了，我 看到這個問題后，我收集了一些信息。我 我還在談?wù)撘粋€愚蠢的方法:

1.使用查找和替換功能查找所有以毫米為單位的值，并添加背景色，這也為每個單位的數(shù)據(jù)添加了不同的背景色。

2.根據(jù)背景顏色的不同排序，可以將數(shù)據(jù)按照單位的不同分類進行分組，刪除以毫米為單位的字母。

3.在一個空單元格中輸入1000，選中這個單元格并復(fù)制，選中要轉(zhuǎn)換單位的數(shù)據(jù)區(qū)，打開選擇性粘貼框，選擇運算框下的除法，點擊確定，完成后再添加單位。