Question

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

我想使用VBA查找符号为＆＃34; /＆＃34;的每个单元格。如果发现＆＃34; /＆＃34;将添加字母＆＃34; cm：＆＃34;在细胞内容面前。

例如：
细胞内容＆＃34;香烟/万宝路＆＃34;至＆＃34; cm：香烟/万宝路＆＃34;或
细胞内容＆＃34;口服/牙膏/牙刷＆＃34;变成＆＃34; cm：口服b /牙膏/牙刷＆＃34;

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

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

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

1 个答案: