Question

我需要检查一系列单元格，如果缺少-，我将仅在单元格以B开头时添加。以下是我尝试过的内容:(示例：B0401234应为B04-01234）。

Sub FixText()
  For Each x In Range("A1:A39534")
    If InStr(x.Value, "-") = -1 Then
      If InStr(x.Value, "B") = 0 Then
        x.Value = Left(x.Value, 3) & "-" & Right(x.Value, 5)
      End If
    End If
  Next
End Sub

运行宏后，我看不到任何变化。

Answer 1

请尝试：

Sub FixText()
  For Each x In Range("A1:A39534")
    If InStr(x.Value, 4) <> "-" And Left(x.Value, 1) = "B" Then
        x.Value = Left(x.Value, 3) & "-" & Right(x.Value, 5)
      End If
  Next
End Sub

丢失时有条件地插入一个角色

1 个答案: