0
A
回答
0
我仍然認爲regexp
是要走的路。
Function removeAlpha(strData As String) As String
strData = Replace(strData, " ", "")
With CreateObject("vbscript.regexp")
.Pattern = "[A-Za-z]"
.Global = True
removeAlpha = .Replace(strData, "")
End With
End Function
,並測試:
Sub TestClean()
Const strTest As String = "qwerty123 456 uiops"
MsgBox removeAlpha(strTest)
End Sub
+0
感謝您的支持。我會再看一看,雖然目前我無法實現它的工作。我會提出另一個問題,因爲這是一個不同的話題。 –
0
的另一種方法,以使用regular expression
是:
Public Sub removeCharacters()
For Each RANGE_UNASSIGNED In Worksheets(1).Range("A1:A" & Worksheets(1).Range("A1").End(xlDown).Row)
STRING_OUTPUT = ""
For INTEGER_STEP = 1 To Len(RANGE_UNASSIGNED.Value)
STRING_TEMPORARY = Mid(RANGE_UNASSIGNED.Value, INTEGER_STEP, 1)
If STRING_TEMPORARY Like "[a-z.]" Or STRING_TEMPORARY Like "[A-Z.]" Then
STRING_xOUTPUT = ""
Else
STRING_xOUTPUT = STRING_TEMPORARY
End If
STRING_OUTPUT = STRING_OUTPUT & STRING_xOUTPUT
Next INTEGER_STEP
RANGE_UNASSIGNED.Value = STRING_OUTPUT
Next RANGE_UNASSIGNED
End Sub
這應該從小區(多個)中刪除所有字母字符。如果需要,您可以刪除其他字符。
0
基於IsNumeric的方法。
Sub Keep_If_IsNumeric()
For j = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set c = Cells(j, 1)
strc = ""
For i = 1 To Len(c.Value)
n = Mid(c.Value, i, 1)
If Not IsNumeric(strc & n & "0") Then
Else
strc = strc & n
End If
Next
c.Offset(, 1) = strc
c.Offset(, 2) = Val(Replace(strc, ",", "."))
Next
End Sub
相關問題
- 1. 在網頁上的文本框中輸入時刪除所有空格
- 2. 刪除文本框上的文本輸入點
- 3. 刪除輸入值中的文本jquery
- 4. 刪除輸入框
- 5. 從輸入字段中刪除文本
- 6. 從文本輸入中刪除填充
- 7. 清除WebForms中的所有文本框
- 8. 刪除所有元素\ html,但輸入
- 9. 「攔截」用戶輸入到文本框中並將其刪除
- 10. 刪除DatePicker的文本輸入
- 11. jQuery的刪除添加輸入文本
- 12. 製作刪除按鈕以刪除輸入文本字段中的文本
- 13. 從文本文件中刪除所有文件的腳本
- 14. 如何從輸入文本中刪除選定的文本?
- 15. 刪除文本框
- 16. 清除加載的所有文本框
- 17. Dojo:清除div的所有文本框
- 18. 角JS刪除前導&從輸入文本框尾部空格
- 19. 刪除下劃線邊框實體化輸入文本
- 20. 在輸入框中有文本通過
- 21. 在Bootstrap輸入中刪除邊框
- 22. 使用FuncUnit清除輸入文本框
- 23. 只選擇getElementsByTagName中的複選框輸入,排除文本框輸入
- 24. 刪除所有文件與PHP腳本
- 25. 在文本框中輸入
- 26. Javascript改變所有輸入的文本
- 27. dataTables:刪除所有選擇輸入中的一個
- 28. 如何刪除文本文件中的輸入?
- 29. 刪除所有沒有ID的x或x的輸入
- 30. 輸入文本框
http://stackoverflow.com/questions/7384029/how-do-i-remove-the-characters – Nulled
愚蠢,因爲這聲音,其實我管理讓它在一段時間內真正起作用,並且它不像你所鏈接的那樣複雜(我在一行代碼中做過)。但我現在不記得我是如何做到的,無法找到其他項目。所以,感謝您的鏈接,但您能否將問題留給我們,因爲這不是答案。 –