如果找到特定的文本/符号，请使用VBA插入单元格

Question

我有一个工作表，从A到EZ有1500行和列，每个单元格包含的数据非常多样化。

我想使用 VBA 查找每个带有符号"/"的单元格，如果找到"/"将在单元格内容前面添加字母"cm："。

例：
单元格内容"香烟/万宝路"到"厘米：香烟/万宝路"或
单元格内容"口服B/牙膏/牙刷"变为"CM：口腔B/牙膏/牙刷"

任何帮助都非常感谢
提前谢谢你

Answer 1

怎么样：

Sub marine()
    Dim r As Range
    For Each r In Range("A1:EZ1500")
        If InStr(1, r.Value, "/") > 0 Then
            r.Value = "cm:" & r.Value
        End If
    Next r
End Sub