在Excel VBA中查找和替换逗号

Sub FindComma()
    Dim rng As Range
    Dim commaCell As Range
    
    ' 在A1:A10范围内查找逗号
    Set rng = Range("A1:A10")
    Set commaCell = rng.Find(What:=",", LookIn:=xlValues, LookAt:=xlPart)
    
    ' 如果找到逗号，则选中该单元格
    If Not commaCell Is Nothing Then
        commaCell.Select
    Else
        MsgBox "未找到逗号。"
    End If
End Sub

Sub ReplaceComma()
    Dim rng As Range
    
    ' 在A1:A10范围内替换逗号为分号
    Set rng = Range("A1:A10")
    rng.Replace What:=",", Replacement:=";", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
        
    MsgBox "已完成替换。"
End Sub