请输入密码访问
mE3A1CDC875yKM5YbTnlOiframe:nth-child(1) |> .grey > .messageiframe:nth-child(1) |> div.titlemE3A1CDC875yKM5YbTnlO
Sub RedStrike() Dim rng As Range Dim cell As Range Dim str As String Dim arr() As String Dim i As Integer Dim replaceChar As String '选择指定列 Set rng = Application.InputBox("请选择要标红并加删除线的列", "选择列", Type:=8) '输入要替换的字符 replaceChar = InputBox("请输入要标红并加删除线的字符") '循环遍历每个单元格 For Each cell In rng.Cells '判断单元格是否有填充颜色 If cell.Interior.ColorIndex = xlNone Then '判断单元格中是否包含要替换的字符 If InStr(cell.Value, replaceChar) > 0 Then '获取单元格的文本内容