"查找替换"区域中具有清空"space"而不是向右清空的单元格的语法

Question

我需要替换B列中的all单元格，这样如果单元格内容在两个单词之间有空格，例如abc cde，那么用" "替换内容，即使该单元格为空。

我想我可以做一个find/replace and wildcard我是字符串What:="""*"" ""*"""

宏运行，但是没有任何东西被替换

谢谢

Sub Replace()
Dim rng As Range, cell As Range
Dim ws As Excel.Worksheet
Dim LR As Long
 Set ws = ActiveWorkbook.Sheets(1)
     LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
 Set rng = ws.Range("A2:A" & LR)
    rng.Select
    Selection.Replace What:="""*"" ""*""", Replacement:=" ", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
   [A2].Select
 End Sub

Answer 1

我继续我的搜索和喜欢一些我可以改变检查字段是否包含任何数字?

Sub CustomerName_AfterUpdate()
Dim ws As Worksheet
Dim rng As Range
Dim acell As Range
Dim LR As Long
Set ws = ThisWorkbook.Sheets("XXX")
 LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
 Set rng = ws.Range("A2:A" & LR)
For Each acell In rng
If HasNumber(acell.Text) Then
Else
  acell.Value = " "
End If
Next acell
End Sub
Function HasNumber(strData As String) As Boolean
Dim iCnt As Integer
For iCnt = 1 To Len(strData)
    If IsNumeric(Mid(strData, iCnt, 1)) Then
        HasNumber = True
        Exit Function
    End If
Next iCnt
End Function