内部会议：下周二（预计）和日本会议时间：下周四
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 '获取单元格的文本内容