excel - 如何为文本字符串使用 Select Case

Question

我想要一个读取文本字符串的案例，例如“从下个月 1 日开始的 Net 75”，如果该单元格包含此值，它将执行以下案例。

当值是“P”时，我的代码可以工作，但是一旦我让它变长，它就不再工作了？

  Option Explicit
  Sub CalcColB()

Dim x As Long
Application.ScreenUpdating = False

    For x = 1 To Cells(Rows.Count, "F").End(xlUp).Row
       Select Case UCase(Cells(x, 6))
          Case "Net 75 from 1st of following month"
                Cells(x, 2).FormulaR1C1 = "=A2*1.8"
          Case "F"
               Cells(x, 2).FormulaR1C1 = "=RC[-1]*1000"
          Case Else
               Cells(x, 2).Formula = "="""""
      End Select
  Next x
Application.ScreenUpdating = True
End Sub

标签： excelvba