EXCEL文件中一次性把裡面所有數字前的空格去掉 - 李逍遙的日誌 - 網易博客

06-27

SubaTest()DimsAsStringDimaAsByteDimx1AsIntegerDimrngAsRangeDimcx1=Sheets("sheet1").[d65536].End(xlUp).Row"取得D行最後一個非空行Setrng=Sheets("sheet1").Cells(1,4).Resize(x1,6)"設定範圍ForEachcInrng"在選定的範圍循環a=Asc(Mid(c.Value,1,1))"取單元格字元串的第一個字元Ifa<48Ora>57Then"判斷是否為數字，（Ascii碼0=48，9=57）a=Len(c.Value)"如果不是數字，取單元格字元長度c.Value=Mid(c.Value,2,a-1)"去掉第一個非數字字元EndIfNextcEndSubB(1)=trim(A(1)),刪掉前導空格

大家在處理Excel表格時,經常會碰到一個問題,就是發現有多出來的格空.

當然,如果有種情況是所有的空格都是多出來的,這種情況非常好辦,直接將空格替換為空就OK了.但是有的時候如果只是一部分空格是多出來的,比如說僅僅只是前面,後面或者前後的空格是多餘的,中間的空格是有用的,那麼就不能用替換的方法的.

如果這種情況只是幾個,那沒關係,可以手工來做.如果是一列,兩列,N列…..那怎麼辦呢?這個時間就要用到很重要的一個函數」Trim「

Trim:去除單元格兩端的空格

RTrim:去除單元格右端的空格

LTrim:去除單元格左端的空格

函數使用方法：

=Trim(「test」)

比如要去列A列中的兩端空格，首先在X列中打入函數」=Trim(「,然後點擊A列中對應的單元格，然後再加個「）」回車，好的，這樣X列中就有了A列中對應單元格數據的去掉空格後的數據。然後雙擊X列中改好的那個單元格右下角，A列中數據全部更改過來。

RTrim、LTrim函數用法同上！