exce利用自定義函數去掉字符串中的數字

exce利用自定義函數去掉字符串中的數字

如果要去掉某個字符串中的所有數字，例如將一個字符串“Excel123”去掉數字后變為“Excel”，可以用自定義函數來實現。按Alt+F11打開VBA編輯器，單擊菜單“插入→模塊”，在右側的代碼窗口中輸入自定義函數：

Function RemoveNums(theString As String)Dim eachChar, Temp As StringDim i As IntegerTemp = ""For i = 1 To Len(theString)eachChar = Mid(theString, i, 1)If Asc(eachChar) < 48 Or Asc(eachChar) > 57 ThenTemp = Temp & eachCharEnd IfNextRemoveNums = TempEnd Function

假如包含數字的字符串在A1單元格，在B1單元格中輸入

=RemoveNums(A1)

即可返回一個去掉數字后的字符串，如果字符串全部由數字組成，則返回空字符串。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。